Discussion :

[Babar09]

Bonjour,

J'ai plusieurs tableaux T1, T2, T3, T4 dans une feuille Excel et je voudrais enregistrer un seul PDF avec un tableau par page via un code VBA. J'ai beau tourner mon code et mes boucles dans tous les sens, seul le dernier tableau est exporté en PDF...
Auriez-vous des idées ?

Merci d'avance pour votre aide !

[Philippe Tulliez]

Bonjour,

Auriez-vous des idées ?

Et bien on aurait déjà plus d'idées si tu publiais le code que tu as créé et qui n'exporte que le dernier tableau

[Babar09]

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
30
31
32
33
34
35
36
37
Set LastNonEmptyCell2 = Sheets("Weekly Events").Cells(Rows.Count, 5).End(xlUp)
        Set A1 = LastNonEmptyCell2.End(xlUp).Offset(-2, -1)
        Set B1 = LastNonEmptyCell2.Offset(0, 8)
        T1 = Range(A1, B1).Address
 
        Set LastNonEmptyCell2 = Sheets("Weekly Events").Cells(Rows.Count, 16).End(xlUp)
        Set A2 = LastNonEmptyCell2.End(xlUp).Offset(-2, -1)
        Set B2 = LastNonEmptyCell2.Offset(0, 8)
        T2 = Range(A2, B2).Address
 
        Set LastNonEmptyCell2 = Sheets("Weekly Events").Cells(Rows.Count, 27).End(xlUp)
        Set A3 = LastNonEmptyCell2.End(xlUp).Offset(-2, -1)
        Set B3 = LastNonEmptyCell2.Offset(0, 8)
        T3 = Range(A3, B3).Address
 
        Set LastNonEmptyCell2 = Sheets("Weekly Events").Cells(Rows.Count, 38).End(xlUp)
        Set A4 = LastNonEmptyCell2.End(xlUp).Offset(-2, -1)
        Set B4 = LastNonEmptyCell2.Offset(0, 8)
        T4 = Range(A4, B4).Address
 
        formName = "G:\PDF\" & d & "_Recap" & ".pdf"
 
        myArr = Array("Weekly Events", "Weekly Events", "Weekly Events", "Weekly Events")
        rngArr = Array(T1, T2, T3, T4)
 
        For i = 0 To UBound(myArr)
            Set Ws = Sheets(myArr(i))
            With Ws
                .PageSetup.PrintArea = .Range(rngArr(i)).Address
            End With
        Next i
        'Sheets(myArr).Select
 
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        formName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

[Philippe Tulliez]

Bonjour,
Le problème vient de cette partie du code

Code :

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

1
2
3
4
5
6
For i = 0 To UBound(myArr)
Set Ws = Sheets(myArr(i))
With Ws
.PageSetup.PrintArea = .Range(rngArr(i)).Address
End With
Next i

Tu définis à chaque passage de la boucle une nouvelle zone d'impression. C'est donc normal que seule la dernière soit retenue.
Il faudrait définir une zone non contiguë comme par exemple E3:H10;P11:Q25;AA8:AE23 avec la fonction Join

Exemple

Code :

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

Worksheets("Weekly Events").PageSetup.PrintArea = Join(rngarr, ",")

Je ne comprends pas la raison de cette ligne de code puisque la feuille est la même.

Code :

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

myArr = Array("Weekly Events", "Weekly Events", "Weekly Events", "Weekly Events")

[Babar09]

Merci beaucoup, ca fonctionne, je ne connaissais pas la fonction Join

[Philippe Tulliez]

Bonjour,

je ne connaissais pas la fonction Join

Comme tu utilises les variables tableaux, je ne peux que te conseiller la lecture de ce tutoriel Utiliser les variables tableaux en VBA Excel