A voir également:
- Dans le document, les références des pièces détachées sont affichées par pays, puis par type de pièces. réorganisez le document pour avoir : les pays dans l'ordre alphabétique : allemagne, espagne, france et italie ; et pour chaque pays, les pièces d'auto, de bateau et de moto dans cet ordre. quelle est la référence de la pièce en ligne 500 ?
- Comment trier par ordre alphabétique sur excel - Guide
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Comment reduire la taille d'un document - Guide
- Pièce d'identité - Accueil - Services publics
- Comment récupérer un document dans le presse-papier samsung - Guide
7 réponses
Bonjour,
Ton exemple ne doit pas correspondre car tu veux sans doute faire une boucle ?
Sinon
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
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.
Merci si vous pouvez m'aider.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
Michel
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
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
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
C'est pas vrai !!!!
Je t'ai passé une maquette démo !!!
le msgbox est fait UNIQUEMENT pour vérifier qu'on a l'ordre marqué dans liste
déjà, dans un 1° temps, tu me dis "Ca marche pas" parce que tu as oublié de mettre le signe "=" !!!!
tu supprimes le msgbox et tu mets le lancement de l'impression à la place
Adieu
Je t'ai passé une maquette démo !!!
le msgbox est fait UNIQUEMENT pour vérifier qu'on a l'ordre marqué dans liste
déjà, dans un 1° temps, tu me dis "Ca marche pas" parce que tu as oublié de mettre le signe "=" !!!!
tu supprimes le msgbox et tu mets le lancement de l'impression à la place
Adieu