Bonjour comment allez vous ? bien j'espere
je gere deux classeur a partir d'un seul userform
je voudrais faire la sauvegarde de mes deux classeurs a partir d'un bouton
voici le code du boutonle code va, il ya sauvegarde mais le deuxieme classeur ne s'ouvre pas, on me dit que le classeur a été soit renommé, supprimé ou deplacé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub BtnSauvegarde_Click() Dim Chemin As String, Fichier As String Chemin = "C:\Sauvegarde\" 'Ajoute la date du jour dans le nom du fichier Fichier = "NomClasseur_" & Format(Date, "yyyymmdd") & ".xls" ActiveWorkbook.SaveCopyAs Chemin & Fichier End Sub
Partager