Comment dans une macro ou VBA

[H@nnoun]

Bonjour, le forum

Comment faire dans une macro ou de preference en VBA remplacer dans cette formule

ActiveWorkbook.SaveAs Filename:="G:\annuaire\Liste Telephone.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Le ( G:\annuaire\ ) du filename :="G:\annuaire\Liste Telephone.xls"

si le fichier ( Liste Telephone.xls) est ouvert sur c:\toto\ alors G:\annuaire\ devient c:\toto\


merci pour la reponse

 

[maraboul]

Bonjour,

Essaies ça:

mypath=activeworbook.path 'reconnait le chemin du classeur ouvert (Liste Telephone.xls)
chdir mypath ' change le dossier d'ouverture
ActiveWorkbook.SaveAs Filename:="Liste Telephone.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Ca devrait fonctionner, ou au moins te donner une idée pour résoudre ton problème.

Bonne continuation

Maraboul

 

[H@nnoun]

Merci Maraboul pour ta reponse
je vais tester

@ ++

 

[H@nnoun]

Bonjour Maraboul

j'ai tester le code mais j'ai une errreur objet requis
desole j'ai peut etre pas compris comment utuilise ce code

Merci
@+ H@nnoun