Discussion :

[alainpinpin]

bonjour,

je suis en train de développer une petite macro qui me permet d'imprimer tous les onglets d'un classeur excell en .PDF via "l'imprimante" PDFcreator

j'ai créé la macro en enregistrement automatique et ça me donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Application.ActivePrinter = "PDFCreator sur Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne01:", Collate:=True

quand je fais ca, la fenêtre d'enregistrement s'ouvre, je mets le nom, j'enregistre. Je peux ouvrir le fichier, tout va bien.

Maintenant, vu que j'ai plusieurs onglets à imprimer, j'aimerais pouvoir donner l'endroit où j'aimerais qu'il enregistre. Pour cela, j'ai modifié la macro et ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 ActiveSheet.PrintOut Copies:=1, Preview:=False, _
 ActivePrinter:="PDFCreator sur Ne01:", PrintToFile:=True, _
 Collate:=True, PrToFileName:="C:\Documents and Settings\A.Crettaz\Bureau\toto.PDF"

quand j'exécute la macro, le fichier se crée correctement sur mon bureau, mais impossible de l'ouvrir.

Est-ce que quelqu'un pourrait m'aider et me dire ce que je fais de faux, parce que j'ai passé ma journée la dessus et c'est mon boss qui ne va pas être extrêmement content

Je vous remercie d'avance

[alainpinpin]

pour ceux que cela intéresse, j'ai trouvé une solution alternative ou j'enregistre le fichier, puis le renomme avec le nom voulu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim OldName, NewName, FileName
 
FileName = ThisWorkbook.Name
FileName = Left(FileName, Len(FileName) - 4) 'enlève l'extension .xls
    Sheets(MonNomDeFichier).Select
 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
    OldName = "C:\Documents and Settings\...\Bureau\" & FileName & ".pdf"
    NewName = "C:\Documents and Settings\...\Bureau\" & MonNomDeFichier & ".pdf"
 
    Application.Wait (Now + TimeValue("0:00:04")) 'temps de création du fichier ( j'ai pas trouvé un moyen de vérifier qu'il est bien créé avant de le renommer)
    Name OldName As NewName ' Déplace et renomme le fichier.