Bonsoir à tous,

Je suis coincé avec une macro VBA qui me donne un fichier PDF d'une partie d'une première feuille. Cette macro fonctionne bien en l'état, excepté que je ne sais pas insérer un message d'erreur lorsque le fichier que j'essaie de générer existe déjà : 1er problème !

Ensuite, j'ai cherché (sans succès) de mettre deux sélection de deux feuilles différentes dans le même PDF.

J'ai bien le code qui permet d'avoir 2 pages dans le même PDF mais ce sont les pages complètes alors que j'essaie de mettre dans le PDF 2 sélections de page... mais je ne parviens à avoir le résultat...
Je dois obtenir dans le même PDF :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    Sheets("DMI").Select
    Range("A15:H54").Select
    Sheets("DMI Accompagnement").Select
    Range("A15:J43").Select
Mais c'est pas bon...


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
25
26
27
28
29
Sub DMI_DMI_Accompagnement()
    Dim sRep As String
    Dim sFilename As String
 
    Sheets(Array("DMI", "DMI Accompagnement")).Select
    Sheets("DMI").Select
    Range("A15:H54").Select
    Sheets("DMI Accompagnement").Select
    Range("A15:J43").Select
    sRep = "C:\Users\Joe\Desktop\"     ' Répertoire de sauvegarde (si non spécifié, répertoire actif par défaut)
    sFilename = ThisWorkbook.Name
    sFilename = "Douanes" & "-" & "DMI" & "-" & Worksheets("DMI").Range("B18").Value & "-" _
    & Worksheets("DMI").Range("C20").Value & "." & "pdf"
 
    Selection.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & sFilename, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
 
    Sheets("DMI Accompagnement").Select
    Range("A6").Select
 
    Sheets("DMI").Select
    Range("A6").Select
 
End Sub
Systématiquement, je n'obtiens que la 2e page.

Bon, je vais voir si la nuit porte conseil

Bonne soirée,

Joe