Discussion :

[Février_04]

Bonjour,

J'ai passé quelques heures à chercher la solution sans y arriver

J'arrive à sauvegarder la feuille active dans un fichier PDF mais je n'arrive pas à valider le code pour plusieurs feuilles dans un même fichier PDF.

Voici le code que j'utilise mais qui me lance une fenêtre avec une barre de progression "publication" qui plante ma machine.

Pour être plus explicite voici mon code inspiré de tuto.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub enregistrer_onglet_en_pdf()
 
'enregistrer plusieurs onglets en un pdf
Dim nom_PDF As String
Dim chemin_pdf As String
 
'identifier le nom du fichier pdf à créer
nom_PDF = "monPDF.pdf"
 
' identifier chemin d'accès du PDF à créer
chemin_pdf = "C:\Users\FAMILLE\Desktop\Dossier Test\" & nom_PDF
 
'choisir les onglets par leurs noms et les sélectionner
ActiveWorkbook.Sheets(Array("Suivi Activité", "Source", "Suivi Janvier")).Select
 
'les onglets des feuilles sont bien sélectionnés pas d'erreur sur les noms
 
' créer le pdf
ActiveSheet.ExportAsFixedFormat Type:= _
xlTypePDF, Filename:=chemin_pdf & nom_PDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
 
End Sub

J'ai également essayé ce bout de code en faisant une boucle fixe car ce sont les trois premières feuilles que je souhaite sauvegarder
le code passe bien sur le premier tour de la boucle mais au deuxième tour s'arrête me sort bien la première feuille mais plante Excel car lance une publication

Code :

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

1
2
3
4
5
6
7
8
9
Sub impression_plusieurs_PDF()
    Dim fin&, i&, fich$
        fin = 3
        For i = 1 To fin
                fich = ThisWorkbook.Path & "\" & x & " " & Format(Date, "yyyy-mm-dd")
                Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=fich, OpenAfterPublish:=True
        Next i
    'Feuil1.Select
End Sub

Merci encore pour votre lecture et vos conseils

[BENNASR]

bonjour
personnellement je fais avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub enregistPDF()
'*************************Enregistrement Rapport Format PDF*******************
Application.ScreenUpdating = False
 
Dim Ar(2) As String 
    Ar(0) = Feuil1.Name
    Ar(1) = Feuil2.Name
    Ar(2) = Feuil3.Name
 
 
       Sheets(Ar).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Budget de Fonctionnement Année 2022" & m _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
       Application.ScreenUpdating = True
End Sub

[Février_04]

Bonsoir BENNASR,

Merci pour ta réponse.

J'ai bien compris ton code et le tableau.

J'ai tenter ton code mais malheureusement j'ai une fenêtre qui s'ouvre de publication lente et qui finit par planter mon excel (2010).

A force d'avoir essayé de nombreuses solutions dont l'utilisation aussi de l'impression avec le code suivant :

Code :

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

1
2
3
ActiveWindow.SelectedSheets.PrintOut copies:=copies, Collate:=True, IgnorePrintAreas:=False, _
                                         ActivePrinter:="Microsoft Print to PDF", PrintToFile:=True, _
                                         PrToFileName:=Chemin_pdf

Je pense que le problème vient de mon code, de mes déclarations, d'option dans mon Excel car ça fonctionne avec trois feuilles sans autre code mais pas dans mon classeur avec 2 userform et 7 feuilles (aucun masquées).
Je ne sais pas vers ou me tourner pour chercher sans déconstruire !!

Merci pour votre aide