Trie des onglets dans un ordre définit

Bonjour,

Ton exemple ne doit pas correspondre car tu veux sans doute faire une boucle ?
Sinon

Sheets("Ouvrage").Move Before:=Sheets("tonchoix") 

J'essaye désespérément d'imprimer des onglets d'une feuille excel dans l'ordre que je désire sans avoir à modifier l'ordre des onglets dans mon fichier car c'est un fichier que j'ai récupéré alors Auriez vous une solution pour modifier seet(array("onglet3","onglet5","onglet2"....).select comment je peux faire pour donner cet ordre lorsque je génère le pdf merci si vous pouvez me donner une solution

Bonjour

tes demandes sont différentes
dans le message 1 tu veux trier les onglets en les déplaçant
dans le message 3, tu veux un ordre d'impression des onglets

Qu'est ce qu'on Fait ?

DOUBLON AVEC
https://forums.commentcamarche.net/forum/affich-33156927-ordre-d-impression-d-onglets-excel
:-(

 Michel

Bonjour Michel_m: je me suis surement mal exprimé! désolé je veux pour définir l'ordre d'impression de mes onglets sans avoir à les ranger dans le ruban. Soit lorsque je génère le PDF sortir par exemple l'onglet 3 avant l'onglet 1 et puis mettre après l'onglet 2.
Merci si vous pouvez m'aider.

Il est très mal vu de faire des doublons
https://forums.commentcamarche.net/forum/affich-33156927-ordre-d-impression-d-onglets-excel
Tu restes sur le premier et tu fais un Up


pour imprimer dans un ordre défini (sur une maquette pour tester le système)
Option Explicit

Sub ccc()
Dim list, Cptr As Byte
liste = Array("feuil3", "feuil1", "feuil2")
For Cptr = 0 To UBound(liste)
MsgBox liste(Cptr)
Next
End Sub

 Michel

Merci Michel, désolé encore pour le doublon!
voilà mon code, je n'arrive pas à le faire fonctionner au niveau de liste(array(...

'Impression Rapport

Sheets("Contrôle initial").Select
If Range("AA2") = 1 Then
'Sheets("Rapport").Move After:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste(Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End If

Sheets("Contrôle initial").Select
If Range("AA2") = 0 Then
'Sheets("Rapport").Move after:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste(Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If

Pouvez vous me donner une aide svp

Bonjour Michel m'a un peu aidé mais mon code ne marche pas, pouvez vous m'aider à le modidier
merci

Sheets("Contrôle initial").Select
If Range("AA2") = 1 Then
'Sheets("Rapport").Move After:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste=Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End If

Sheets("Contrôle initial").Select
If Range("AA2") = 0 Then
'Sheets("Rapport").Move after:=Sheets("Ouvrage")
Dim list, cptr As Byte
liste=Array("Rapport", "Ouvrage", "Contrôle initial", "Echantillonnage", "Doc", "Ecarts", "Annexe 1", "Ctrl visuels LA", "Paramètre")).Select
For cptr = 0 To UBound(liste)
MsgBox liste(cptr)
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Nom1 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If