Bonjour,
Pour cette macro est-il possible de remplacer l’adresse du fichier par une adresse excel ou elle serait stockée. J’aurai un fichier nommé répertoire ou figurerai en A1 par exemple U:\A\cadeau.xls et ainsi dans ma macro j’aurai l’adresse du fichier repertoire.xls\feuille1\A1
Sub macro()
ChDir "U:\A"
ActiveWorkbook.SaveAs Filename:="U:\A\cadeau.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks("cadeau").Close
End Sub
Pour cette macro est-il possible de remplacer l’adresse du fichier par une adresse excel ou elle serait stockée. J’aurai un fichier nommé répertoire ou figurerai en A1 par exemple U:\A\cadeau.xls et ainsi dans ma macro j’aurai l’adresse du fichier repertoire.xls\feuille1\A1
Sub macro()
ChDir "U:\A"
ActiveWorkbook.SaveAs Filename:="U:\A\cadeau.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks("cadeau").Close
End Sub