bonjour j'utilise une macro pour sauvegarder plusieurs documents dans chaque dossier specifique
les 3 premier code marche sans probleme
et le dernier qui est en xlsm bloque sur ce que j'ai souligné
et en plus j'ai un message disant:
Les fonctionnalite suivantes ne peuvent etre enregistrees dans les classeurs sans macro.......
comment corrigé et ne plus avoir ce message
le nom de mon fichier final devrait etre:Reporting Photobox du(avec date en l1 de la feuille reporting complet)
voivi le code
Sheets("Way Bill Arvato").Copy
ChDir "C:\Archives photobox\WAY BILL Arvato"
ActiveWorkbook.SaveAs chemin & "WAY BILL Arvato du " & _
Format(Worksheets("Way Bill Arvato").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
Sheets("Way Bill Londres").Copy
ChDir "C:\Archives photobox\WAY BILL LONDRES"
ActiveWorkbook.SaveAs chemin & "WAY BILL Londres du " & _
Format(Worksheets("Way Bill Londres").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
Sheets("Way Bill Sartrouville").Copy
ChDir "C:\Archives photobox\WAY BILL SARTROUVILLE"
ActiveWorkbook.SaveAs chemin & "WAY BILL Sartrouville du " & _
Format(Worksheets("Way Bill Sartrouville").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
Sheets(Array("Reporting palettes par mois", "Reporting complet")).Copy
ChDir "C:\Archives photobox\Archives reporting"
ActiveWorkbook.SaveAs chemin & "Reporting Photobox du " & _
Format(Worksheets("Reporting complet").Range("L1"), "d\-mm\-yyyy") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.Close
merci julie
les 3 premier code marche sans probleme
et le dernier qui est en xlsm bloque sur ce que j'ai souligné
et en plus j'ai un message disant:
Les fonctionnalite suivantes ne peuvent etre enregistrees dans les classeurs sans macro.......
comment corrigé et ne plus avoir ce message
le nom de mon fichier final devrait etre:Reporting Photobox du(avec date en l1 de la feuille reporting complet)
voivi le code
Sheets("Way Bill Arvato").Copy
ChDir "C:\Archives photobox\WAY BILL Arvato"
ActiveWorkbook.SaveAs chemin & "WAY BILL Arvato du " & _
Format(Worksheets("Way Bill Arvato").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
Sheets("Way Bill Londres").Copy
ChDir "C:\Archives photobox\WAY BILL LONDRES"
ActiveWorkbook.SaveAs chemin & "WAY BILL Londres du " & _
Format(Worksheets("Way Bill Londres").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
Sheets("Way Bill Sartrouville").Copy
ChDir "C:\Archives photobox\WAY BILL SARTROUVILLE"
ActiveWorkbook.SaveAs chemin & "WAY BILL Sartrouville du " & _
Format(Worksheets("Way Bill Sartrouville").Range("c15"), "d\-mm\-yyyy") & ".xls"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.Close
Sheets(Array("Reporting palettes par mois", "Reporting complet")).Copy
ChDir "C:\Archives photobox\Archives reporting"
ActiveWorkbook.SaveAs chemin & "Reporting Photobox du " & _
Format(Worksheets("Reporting complet").Range("L1"), "d\-mm\-yyyy") & ".xlsm"
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWindow.Close
merci julie