Discussion :

[Prisme974]

Bonjour à tous,

Je souhaite sélectionner plusieurs feuilles Excel sauf 2 d'entre elles intitulées Feuil1 et Feuil2, puis créer un pdf comprenant toutes les feuilles sauf ces 2 citées.

J'ai écris ce code mais il ne fonctionne pas. Pourriez-vous me dire ce qui ne va pas ?

Merci par avance et bonne journée

Code :

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

1
2
3
4
5
6
7
8
9
10
ChDir "C:\Users\x\Desktop"
    For Each f In ThisWorkbook.Sheets
            If f.Name <> "Feuil1" And f.Name <> "Feuil2" Then
                f.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                "C:\Users\x\Desktop\Fichier-V9.pdf", Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                True
            End If
    Next
    End Sub

[hyperion13]

Salut
La balise code # svp !
en L3 remplacez And par Or

[Prisme974]

Merci de votre réponse.

Je souhaite retirer la Feuil1 et la Feuil2. Après avoir remplacé And par Or j'ai toujours un problème au niveau de la partie :

Code :

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

1
2
3
4
f.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
C:\Users\x\FICHIER-V9.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

Il me dit Erreur d'exécution '5'
Argument ou appel de procédure incorrect

[Prisme974]

J'ai eu du mal mais j'ai enfin réussi à ajouter la balise. J'espère que mon message conviendra ainsi.

[tee_grandbois]

bonjour,
après avoir corrigé le code, tu as supprimé un guillemet au début du nom du fichier, raison pour laquelle tu as le message d'erreur 5:
avant (correct):

Code :

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

"C:\Users\x\Desktop\Fichier-V9.pdf"

après (incorrect):

Code :

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

C:\Users\x\FICHIER-V9.pdf"

[Prisme974]

Oui, en effet je me suis trompée dans le recopiage du code mais j'avais bien mis les guillemets dans mon code.

Je ne comprends vraiment pas pourquoi il ne fonctionne pas. Est-ce qu'il ne faudrait pas rajouter une étape qui rassemble les différentes feuilles pour les combiner dans un même pdf ? Est-ce possible ?

Merci par avance !

[Prisme974]

J'ai essayé autre chose mais ça ne fonctionne toujours pas... :/

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
Dim groupesheet_imprim(), noimprim As String
noimprim = "Feuil1 Feuil2"
i = 0
    For Each Sh In ThisWorkbook.Sheets
        If Not noimprim Like "*" & Sh.Name & "*" Then
            ReDim Preserve groupesheet_imprim(i): groupesheet_imprim(i) = Sh.Name: i = i + 1:
        End If
    Next
 
     Sheets(groupesheet_imprim).Select
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        '"C:\Users\x\Desktop" & "\" & "fichier" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
      ActiveWorkbook.Save