Discussion :

[vwtroudy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Krovax]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.FullName

Te donne le chemin complet du fichier en cour

Si j'ai bien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[CRACOS38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  ActiveWorkbook.Save

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

si toujours problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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