Microsoft 365 VBA Excel - Exporter en PDF plusieurs feuilles sélectionnées en variables

phemme

XLDnaute Nouveau
Bonjour,
J'ai un problème sur la sélection de plusieurs feuilles en vue d'un export PDF.
Je sélectionne les feuilles par flag dans un range de cellules..
Tout se passe bien, sauf qu'il ne me créé le pdf qu'avec une feuille, il ne prend pas les autres...

Voilà le code

VB:
For Each OngletSelect In Range("ListeOngletsSelect")
            
            If OngletSelect.Value <> "" Then
               idx = idx + 1
                ReDim Preserve TableauOnglets(1 To idx)
                TableauOnglets(idx) = OngletSelect.Value
               MsgBox (TableauOnglets(idx)) ''' pour verif selction de chaque feuille
               tableauFini = tableauFini & "," & TableauOnglets(idx) ''' pour verif construction array
            End If
Next
        MsgBox tableauFini '''pour verif construction array

Sheets(TableauOnglets).Select
Sheets("Titre").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        nom_du_fichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

quelqu'un a une idée?
merci d'avance
 

kiki29

XLDnaute Barbatruc
Salut, un pb se situe là , dans cet ordre de sélection
VB:
...
Sheets(TableauOnglets).Select
Sheets("Titre").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
    ...
Tente plutôt ceci :
VB:
...
Sheets(TableauOnglets).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF ...
Sheets("Titre").Activate
...
sinon à voir si tu es curieux : 1 2 3
 
Dernière édition:

phemme

XLDnaute Nouveau
précision : ca plante si un nom de feuille contient un point ou un espace...
et j'ai testé le chr(34)
TableauOnglets(idx) = Chr(34) & OngletSelect.Value & Chr(34)

ca me met un message d'erreur "Erreur d'execution 9 : L'indice n'appartient pas à la sélection" sur
Sheets(TableauOnglets).Select
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon