bonjour bonjour
voila la fin de la macro qui enregistre mon doc excel dans un dossier puis sous-dossier dont les noms se définissent en cours de procédure.
que faut-il changer pour arriver au même résultat avec un doc word créé lui aussi avec cette macro ???
Besoin d'un coup de pouce pour avancer.......
D'avance un grand MERCI
Sheets("devisA").Activate
Dim Nom_Fichier As String, Chemin As String, Dossier As String, Sous_Dossier As String
Nom_Fichier = Sheets("devisA").Range("B4") & "-" & Sheets("devisA").Range("C4") & "-Devis"
Chemin = "D:\Bureau\Partagé Lud\ORIGINAL\CLIENTS"
Dossier = Chemin & "\" & Sheets("devisA").Range("B4") & "-" & Sheets("devisA").Range("C4")
If Dir(Dossier, vbDirectory) = "" Then MkDir Dossier
Sous_Dossier = Dossier & "\" & Nom_Fichier
If Dir(Sous_Dossier, vbDirectory) = "" Then MkDir Sous_Dossier
ActiveWorkbook.SaveAs Dossier & "\" & Nom_Fichier & "\" & Nom_Fichier & "A"
ActiveWorkbook.Close