bonjour
j'ai le code ci-dessous pour enregistrer automatiquement un fichier :
Sub enregistrer_EXPORT()
Dim adr$, fichier$
fichier = Feuil2.Cells(31, 21)
adr = Feuil1.Cells(37, 21)
ActiveWorkbook.SaveAs (adr & "\" & fichier)
End Sub
le chemin d'accès pour...