Bonjour
Quelqu'un peut-il me dire comment remplacer le nombre de copie (7) par la
valeur contenue dans la cellule A1 ?
ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True
Antoine "Philippe" a écrit dans le message de news:
Bonjour Quelqu'un peut-il me dire comment remplacer le nombre de copie (7) par la valeur contenue dans la cellule A1 ? ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True
Merci
Philippe
Bonjour,
Essaie de remplacer :
ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True,Collate:=True
par
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").value,
Collate:=True
Antoine
"Philippe" <pounet69@free.fr> a écrit dans le message de news:
uJdu3jbRGHA.424@TK2MSFTNGP12.phx.gbl...
Bonjour
Quelqu'un peut-il me dire comment remplacer le nombre de copie (7) par la
valeur contenue dans la cellule A1 ?
ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True
Antoine "Philippe" a écrit dans le message de news:
Bonjour Quelqu'un peut-il me dire comment remplacer le nombre de copie (7) par la valeur contenue dans la cellule A1 ? ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True
Merci
Philippe
Philippe
Merci Antoine Les deux fonctionnent
Bon dimanche
Philippe
"Antoine" a écrit dans le message de news:
Bonjour, Essaie de remplacer : ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True,Collate:=True
par ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").value, Collate:=True
Tu pourrais éprouver un problème avec cette ligne de code
À quelle feuille appartient la cellule suivante ? Range("A1").value
Si la feuille active n'est pas celle qui contient LA CELLULE A1 où est définie le nombre de copies, tu vas avoir un problème.
Correction : ajoute le nom de la feuille (objet vba et non le nom de l'onglet"_ ActiveWindow.SelectedSheets.PrintOut Copies:þuil2.Range("A1").value, Collate:=True
Salutations!
"Philippe" a écrit dans le message de news: Merci Antoine Les deux fonctionnent
Bon dimanche
Philippe
"Antoine" a écrit dans le message de news:
Bonjour, Essaie de remplacer : ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True,Collate:=True
par ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").value, Collate:=True
Tu pourrais éprouver un problème avec cette ligne de code
À quelle feuille appartient la cellule suivante ? Range("A1").value
Si la feuille active n'est pas celle qui contient LA CELLULE A1 où
est définie le nombre de copies, tu vas avoir un problème.
Correction : ajoute le nom de la feuille (objet vba et non le nom de l'onglet"_
ActiveWindow.SelectedSheets.PrintOut Copies:þuil2.Range("A1").value, Collate:=True
Salutations!
"Philippe" <pounet69@free.fr> a écrit dans le message de news: eKsiuzbRGHA.4956@TK2MSFTNGP09.phx.gbl...
Merci Antoine
Les deux fonctionnent
Bon dimanche
Philippe
"Antoine" <awerelASUPPRIMER@mageos.com> a écrit dans le message de
news:OkCTwnbRGHA.5500@TK2MSFTNGP12.phx.gbl...
Bonjour,
Essaie de remplacer :
ActiveWindow.SelectedSheets.PrintOut Copies:=7,
Collate:=True,Collate:=True
par
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").value,
Collate:=True
Tu pourrais éprouver un problème avec cette ligne de code
À quelle feuille appartient la cellule suivante ? Range("A1").value
Si la feuille active n'est pas celle qui contient LA CELLULE A1 où est définie le nombre de copies, tu vas avoir un problème.
Correction : ajoute le nom de la feuille (objet vba et non le nom de l'onglet"_ ActiveWindow.SelectedSheets.PrintOut Copies:þuil2.Range("A1").value, Collate:=True
Salutations!
"Philippe" a écrit dans le message de news: Merci Antoine Les deux fonctionnent
Bon dimanche
Philippe
"Antoine" a écrit dans le message de news:
Bonjour, Essaie de remplacer : ActiveWindow.SelectedSheets.PrintOut Copies:=7, Collate:=True,Collate:=True
par ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").value, Collate:=True