Macro save print close
Bonjour,
je souhaite créer une macro qui imprime, enregistre et ferme le claseur.
Je demarre a partir d'un modele office personnalisé (.xltm), je préremplie l'entete du document ensuite je dois l'imprimer et enregistrer au format (.xlsx) dans répertoire bien précis avec un nom précis (dans la cellule Z1 j'ai fais une formule concatener qui me donne la syntaxe du nom du classeur pour son enregistrement) et fermer ensuite celui-ci.
Ma formule pour instant qui ne fonctionne pas est la suivante:
Sub Save_Print_Close()
'
' Save_Print_Close Macro
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ChDir _
"\\srv-files\0-Ressources\3-Technique\32-Methode\320-Liasse-de-definition\CARTES AUTOCONTROLES"
ActiveWorkbook.SaveAs Filename:= _
"\\srv-files\0-Ressources\3-Technique\32-Methode\320-Liasse-de-definition\CARTES AUTOCONTROLES\& Range("Z1").Value.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Mon erreur doit se situer au niveau de syntaxe de & Range("Z1").Value.xlsx" _
Merci d'avance.
'
Bonjour,
Fermer ta chaine avant le &
"\\srv-files\0-Ressources\3-Technique\32-Methode\320-Liasse-de-definition\CARTES AUTOCONTROLES\" & Range("Z1").Value.xlsx[/Inline], ...
eric
Merci pour ta réponse j'ai essayer mais sans succes.
La fin est à mettre d'aplomb aussi :
ActiveWorkbook.SaveAs Filename:= _
"\\srv-files\0-Ressources\3-Technique\32-Methode\320-Liasse-de-definition\CARTES AUTOCONTROLES\" & Range("Z1").Value & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Merci à toi Eric pour cette solution qui marche à merveille