Enregistrement fichier excel via VBA

Bonjour,

Pour les pro de vba...
Je cherche via un "bouton magique"
A faire un enregistrement simultané vers deux répertoires. J'ai utilisé la formule:

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() ThisWorkbook.SaveCopyAs "M:\Planning.xls" ThisWorkbook.SaveCopyAs "U:\Planning.xls" End Sub

---

le pb est que si j'ai ouvert le fichier depuis le repertoire M, il y a un bug sur la 2eme ligne car le fichier est déjà ouvert et pareil depuis le U avec une erreur sur la 3eme ligne.

je pense que l'on peut résoudre ce pb avec des conditions "If" et "Then" mais la je cale un peu.
merci de votre aide.

Bonjour

Code:

---

ThisWorkbook.FullName

---

Te donne le chemin complet du fichier en cour

Si j'ai bien compris

Code:

---

1 2 3 4 5 6

if ThisWorkbook.FullName="M:\Planning.xls" then ThisWorkbook.SaveCopyAs "U:\Planning.xls" elseif ThisWorkbook.FullName="U:\Planning.xls" ThisWorkbook.SaveCopyAs "M:\Planning.xls" end if ThisWorkbook.Save

---

Sinon mais c'est bien moins joli

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() On Error Resume Next 'en cas d'erreur on passe a la suite ThisWorkbook.SaveCopyAs "M:\Planning.xls" ThisWorkbook.SaveCopyAs "U:\Planning.xls" On Error goto 0 'par habitude ca permet de refaire de la gesion d'erreur normal ThisWorkbook.Save End Sub

---

Salut
Je ne sais pas si j'ai bien saisi ton problème mais peut être :
Si c'est pour sauvegarder ton fichier au meme endroit :

Code:

---

ActiveWorkbook.Save

---

Si c'est pour sauvegarder ton fichier au meme endroit mais pas même nom:

Code:

---

1 2 3

ActiveWorkbook.SaveAs Filename:= _ "C:\(chemin)\Classeurz.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

si toujours problème :

Code:

---

1 2 3

ActiveWorkbook.SaveAs Filename:= _ "C:\(chemin)\(autre nom)", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

et pour déplacer ou renomer un fichier sans l'ouvrir :

Code:

---

1 2 3

Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile "d:\machepro.xyz", "d:\machin.etc"

---