voici la macro :
Sub Macro1()
Application.ActivePrinter = "SVGmaker sur LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="SVGmaker sur LPT1:", Collate:=True
End Sub
SVGmaker sur LPT1: est une imprimante qui créé un fichier SVG.
Lorsque j'imprime de cette façon, une fenetre de dialogue s'ouvre pour me demander le chemin ou je veux enregistrer mon svg.
Malheureusement je ne peux pas utiliser les option:
PrintToFile:=True, PrToFileName:monChemin
PS : Pour simuler ma macro Macro1 sans utiliser l'imprimante SVGmaker sur LPT1, il suffit de faire :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="SVGmaker sur LPT1:", Collate:=True, PrintToFile:=True
merci