bonjour Mibri, braters et le forum
bon je viens d'essayer ton fichier et s'enregistre bien ou je veux en ayant changer le chemin dans le code
Sub enregistrer()
Dim nom As String
Dim Chemin As String
nom = Range("D5") & "_" & Range("F5")
Chemin = "D:\essai perso\"
'Chemin = "E:\T.E.G\C2 - PREJUDICE EN ATTENTE D'ENVOI\"
If Format(a) <> False Then
ThisWorkbook.SaveAs Chemin & nom, xlOpenXMLWorkbookMacroEnabled
End If
End Sub
et pour te montrer que c'est bon voici l'apercu avec la barre du chemin bleutée car si tu veux enregistrer dans un dossier spécifique
chaque fois tu l'ouvre le chemin se met en haut ou j'ai bleuté la ligne et il te reste a le copier pour le mettre dans le code et je te rassure le fichier a été enregistrer a l'aide d'un bouton sur feuille