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

[phemme]

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

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]

Salut, un pb se situe là , dans cet ordre de sélection

...
Sheets(TableauOnglets).Select
Sheets("Titre").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
    ...

Tente plutôt ceci :

...
Sheets(TableauOnglets).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF ...
Sheets("Titre").Activate
...

sinon à voir si tu es curieux : 1 2 3

 

[phemme]

Super
Merci kiki29

juste un truc, ça plante si un onglet contient un point dans son nom, crois tu que e je puisse ajouter des chr (34) dans le tableauonglets ?

merci

 

[phemme]

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

 

[kiki29]

Re, je serais curieux de voir ce classeur.

sinon à voir si tu es curieux : 1 2 3

 

[phemme]

problème résolu après quelques recherches :
il faut mettre
TableauOnglets(idx) = Chv & OngletSelect.Value & Chv