F
Fony
Guest
Bonjour,
On m'a donné qlq lignes de code pour enregistrer à la fermeture d'un classeur avec création de dossier et fichier :
Sub test()
Dim Chemin$, Client$, Fichier$
Chemin = "D:\Clients et Fournisseurs\"
Client = Range("AI4")
Fichier = Range("AG17") & (" ") & Range(" H15") & (" ") & Range("AI4") & ".xls"
If Dir(Chemin & Client, 16) = "" Then MkDir Chemin & Client
ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier
End Sub
Cela fonctionne parfaitement si le dossier n'existe pas mais si on ouvre à nouveau le classeur, à la fermeture, il demande "... voulez-vous le remplacer "
"
Le problème avec oui, il pose 3 x question! et avec non erreur "400" aussi 3 x ! A la longue cela est désagréable et long.
Merci de votre aide et agréable journée à vous
Fony
PS: je connais très peu le VBA et pas l'anglais, soyer svp indulgent...
On m'a donné qlq lignes de code pour enregistrer à la fermeture d'un classeur avec création de dossier et fichier :
Sub test()
Dim Chemin$, Client$, Fichier$
Chemin = "D:\Clients et Fournisseurs\"
Client = Range("AI4")
Fichier = Range("AG17") & (" ") & Range(" H15") & (" ") & Range("AI4") & ".xls"
If Dir(Chemin & Client, 16) = "" Then MkDir Chemin & Client
ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier
End Sub
Cela fonctionne parfaitement si le dossier n'existe pas mais si on ouvre à nouveau le classeur, à la fermeture, il demande "... voulez-vous le remplacer "
"
Le problème avec oui, il pose 3 x question! et avec non erreur "400" aussi 3 x ! A la longue cela est désagréable et long.
Merci de votre aide et agréable journée à vous
Fony
PS: je connais très peu le VBA et pas l'anglais, soyer svp indulgent...