Bonjour,
Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles
dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais
le contraire.
Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille
"Devis de production"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Yvan
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec
quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour,
Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles
dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais
le contraire.
Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille
"Devis de production"
Pour quoi ne pas inverser les feuilles avant et après impression avec quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
MichDenis
Bonjour docsii,
Dim Arr Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator" next
Salutations!
"docsii" a écrit dans le message de news: Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
Bonjour docsii,
Dim Arr
Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr
Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
next
Salutations!
"docsii" <docsii@discussions.microsoft.com> a écrit dans le message de news: 7BE3277E-8341-4730-B46A-4BDC9622298E@microsoft.com...
Bonjour,
Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles
dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais
le contraire.
Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille
"Devis de production"
Dim Arr Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator" next
Salutations!
"docsii" a écrit dans le message de news: Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
docsii
Merci, ça fonctionne ! par contre, la fonction "move before" a t elle des effets pervers ?
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
Merci, ça fonctionne !
par contre, la fonction "move before" a t elle des effets pervers ?
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec
quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour,
Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles
dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais
le contraire.
Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille
"Devis de production"
Merci, ça fonctionne ! par contre, la fonction "move before" a t elle des effets pervers ?
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
docsii
j'essaye !
Bonjour docsii,
Dim Arr Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator" next
Salutations!
"docsii" a écrit dans le message de news: Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
j'essaye !
Bonjour docsii,
Dim Arr
Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr
Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
next
Salutations!
"docsii" <docsii@discussions.microsoft.com> a écrit dans le message de news: 7BE3277E-8341-4730-B46A-4BDC9622298E@microsoft.com...
Bonjour,
Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles
dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais
le contraire.
Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille
"Devis de production"
Dim Arr Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator" next
Salutations!
"docsii" a écrit dans le message de news: Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
Denis Michon
Désolé, j'ai commis un impair avec un copier-coller
Cette ligne doit s'écrire de cette façon .. Arr = ("Devis de production", "Tableau de saisie")
Salutations!
"MichDenis" a écrit dans le message de news: Bonjour docsii,
Dim Arr Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator" next
Salutations!
"docsii" a écrit dans le message de news: Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
Désolé, j'ai commis un impair avec un copier-coller
Cette ligne doit s'écrire de cette façon ..
Arr = ("Devis de production", "Tableau de saisie")
Salutations!
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news: uftpRpKTFHA.3636@TK2MSFTNGP14.phx.gbl...
Bonjour docsii,
Dim Arr
Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr
Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
next
Salutations!
"docsii" <docsii@discussions.microsoft.com> a écrit dans le message de news: 7BE3277E-8341-4730-B46A-4BDC9622298E@microsoft.com...
Bonjour,
Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles
dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais
le contraire.
Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille
"Devis de production"
Désolé, j'ai commis un impair avec un copier-coller
Cette ligne doit s'écrire de cette façon .. Arr = ("Devis de production", "Tableau de saisie")
Salutations!
"MichDenis" a écrit dans le message de news: Bonjour docsii,
Dim Arr Arr = Sheets(Array("Devis de production", "Tableau de saisie")).
For each elt in arr Sheets(alt).PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator" next
Salutations!
"docsii" a écrit dans le message de news: Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
Yvan
Bonjour Docsii.
A mon avis pas d'effet pervers à redouter.
Sheets("Feuil2").Move Before:=Sheets(1) fait exactement ce que tu ferais en faisant glisser l'onglet Feuil2 devant l'onglet Feuil1. Les index et les noms de feuille sont conservés.
Si quelqu'un voit un problème quelconque...
@+
Merci, ça fonctionne ! par contre, la fonction "move before" a t elle des effets pervers ?
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
Avez vous une idée ? Merci
Bonjour Docsii.
A mon avis pas d'effet pervers à redouter.
Sheets("Feuil2").Move Before:=Sheets(1) fait exactement ce que tu ferais en
faisant glisser l'onglet Feuil2 devant l'onglet Feuil1. Les index et les noms
de feuille sont conservés.
Si quelqu'un voit un problème quelconque...
@+
Merci, ça fonctionne !
par contre, la fonction "move before" a t elle des effets pervers ?
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec
quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour,
Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles
dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True,
ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais
le contraire.
Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille
"Devis de production"
Sheets("Feuil2").Move Before:=Sheets(1) fait exactement ce que tu ferais en faisant glisser l'onglet Feuil2 devant l'onglet Feuil1. Les index et les noms de feuille sont conservés.
Si quelqu'un voit un problème quelconque...
@+
Merci, ça fonctionne ! par contre, la fonction "move before" a t elle des effets pervers ?
Salut Docsii.
Pour quoi ne pas inverser les feuilles avant et après impression avec quelque cose du genre
Sheets("Feuil2").Move Before:=Sheets(1)
Tu peux en tout cas essayer!
@+
Bonjour, Dans une application Excel, je souhaite imprimer le contenu de 2 feuilles dans un ordre précis, car je génére un fichier PDF.
les fonctions utilisées sont:
Sheets(Array("Devis de production", "Tableau de saisie")).Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:="PDFcreator"
Or la feuille "Tableau de saisie" est générée en 1er, alors que je voudrais le contraire. Pour info, la feuille "Tableau de saisie" a un n° inférieur à la feuille "Devis de production"
