Bonjour a tous
Je reviens vers vous car un nouveau probléme se pose a moi.
j'ai une macro qui m'ouvre un fichier modéle automatiquement quand je suis sur le poste serveur
Workbooks.Open Filename:= _
C:\BASES DEVIS\Base_clients2008"
Windows("Base_clients2008.xls").Visible = True
ActiveSheet.ShowDataForm
Range("L2").Select
Selection.Copy
Windows("DEVIS COMPLET1").Activate
Range("C19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False[/COLOR]
quand je l'active a l'aide d'un bouton, ca marche sans problèmes!! Je veut mettre mes deux ordis en réseau et là Bug car le chemin d'accés n'est forcément plus le même car je suis sur le poste "secrétariat" et la macro recherche sur le C de ce poste.
Est-il possible de modifier cette macro afin qu'elle disE : si le fichier n'est pas trouvé sur le C , recherche sur le C:\direction\BASES DEVIS\Base_clients2008"
ou peut etre avez vous une autre solution a me proposer?
Merci d'avance a tous
Je reviens vers vous car un nouveau probléme se pose a moi.
j'ai une macro qui m'ouvre un fichier modéle automatiquement quand je suis sur le poste serveur
Workbooks.Open Filename:= _
C:\BASES DEVIS\Base_clients2008"
Windows("Base_clients2008.xls").Visible = True
ActiveSheet.ShowDataForm
Range("L2").Select
Selection.Copy
Windows("DEVIS COMPLET1").Activate
Range("C19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False[/COLOR]
quand je l'active a l'aide d'un bouton, ca marche sans problèmes!! Je veut mettre mes deux ordis en réseau et là Bug car le chemin d'accés n'est forcément plus le même car je suis sur le poste "secrétariat" et la macro recherche sur le C de ce poste.
Est-il possible de modifier cette macro afin qu'elle disE : si le fichier n'est pas trouvé sur le C , recherche sur le C:\direction\BASES DEVIS\Base_clients2008"
ou peut etre avez vous une autre solution a me proposer?
Merci d'avance a tous