Enregistrer sous...

[Karl22]

bonjour tout le monde
j'ai besoin d'enregistrer un fichier excel dans un répertoire (celui du client) et si le client n'as pas de dossier, il faut le créer. Le client fait référence a une cellule X
Merci à l'avance


Private Sub CommandButton1_Click()
Dim Facture As String
Dim NomClasseur As String
Dim CusTomer As String

CusTomer = Sheets("Claim A B").Range("G5").Value
Facture = Sheets("Claim A B").Range("U1").Value

NomClasseur = Facture & ".xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\Doc\Claim\(je veux avoir le client ici)\" & NomClasseur _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub

 

[wilfried_42]

Re : Enregistrer sous...

bonjour Karl

bonjour tout le monde
j'ai besoin d'enregistrer un fichier excel dans un répertoire (celui du client) et si le client n'as pas de dossier, il faut le créer. Le client fait référence a une cellule X
Merci à l'avance


Private Sub CommandButton1_Click()
Dim Facture As String
Dim NomClasseur As String
Dim CusTomer As String

CusTomer = Sheets("Claim A B").Range("G5").Value
Facture = Sheets("Claim A B").Range("U1").Value
chemin = "C:\Doc\Claim\" & range("X") ' X---> ref de la cellule
on error resume next ' prevoit l'existance du repertoire si oui on control l'erreur
MKDIR chemin ' creation du repertoire
on error goto 0 ' redonne la gestion de l'erreur à Excel
NomClasseur = Facture & ".xls"
ActiveWorkbook.SaveAs Filename:= chemin & "\" & nomclasseur, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub

 

[Karl22]

Re : Enregistrer sous...

Merci beaucoup wilfried_42 c'est exactement ce que je cherchais....
il m'en reste encore beaucoup a apprendre a VBA....
Merci Encore🙂