Petit souci dont je n'arrive pas à me dépétrer.
J'ai un fichier avecune cinquantaine d'onglets. Chacun d'eux correspond
à une fiche de stock de format identique composée de 4 pages à l'impression.
Je voudrais imprimer la quatrième page de chacun de ces onglets sans
avoir à les ouvrir individuellement.
Quelqu'un peut il me guider?
Bon dimanche à tous
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
Patrick BASTARD
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ? -- Bien amicordialement, P. Bastard
Bonjour à tous
Petit souci dont je n'arrive pas à me dépétrer. J'ai un fichier avecune cinquantaine d'onglets. Chacun d'eux correspond à une fiche de stock de format identique composée de 4 pages à l'impression. Je voudrais imprimer la quatrième page de chacun de ces onglets sans avoir à les ouvrir individuellement. Quelqu'un peut il me guider? Bon dimanche à tous
amt
Bonjour, *amt*
Application.ScreenUpdating = False
For Each Sheet In ThisWorkbook.Sheet
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
:=True
Application.ScreenUpdating = True
Cela te convient-il ?
--
Bien amicordialement,
P. Bastard
Bonjour à tous
Petit souci dont je n'arrive pas à me dépétrer.
J'ai un fichier avecune cinquantaine d'onglets. Chacun d'eux
correspond à une fiche de stock de format identique composée de 4 pages à
l'impression. Je voudrais imprimer la quatrième page de chacun de ces
onglets sans avoir à les ouvrir individuellement.
Quelqu'un peut il me guider?
Bon dimanche à tous
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ? -- Bien amicordialement, P. Bastard
Bonjour à tous
Petit souci dont je n'arrive pas à me dépétrer. J'ai un fichier avecune cinquantaine d'onglets. Chacun d'eux correspond à une fiche de stock de format identique composée de 4 pages à l'impression. Je voudrais imprimer la quatrième page de chacun de ces onglets sans avoir à les ouvrir individuellement. Quelqu'un peut il me guider? Bon dimanche à tous
amt
amt
Cher amicordial
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ?
Cher amicordial
En première approche, ça ne marche pas
le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False
For Each Sheet In ThisWorkbook.Sheet
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
:=True
Application.ScreenUpdating = True
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ?
jps
bonjour amt remplace Sheet par Sh patrick devrait quand même savoir qu'il y a des mots protégés dont on ne peut pas se servir pour nommer une variable tout fout le camp, tiens... jps
"amt" a écrit dans le message de news:
Cher amicordial
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ?
bonjour amt
remplace Sheet par Sh
patrick devrait quand même savoir qu'il y a des mots protégés dont on ne
peut pas se servir pour nommer une variable
tout fout le camp, tiens...
jps
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
4401F0FE.7020603@wanadoo.fr...
Cher amicordial
En première approche, ça ne marche pas
le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False
For Each Sheet In ThisWorkbook.Sheet
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
:=True
Application.ScreenUpdating = True
bonjour amt remplace Sheet par Sh patrick devrait quand même savoir qu'il y a des mots protégés dont on ne peut pas se servir pour nommer une variable tout fout le camp, tiens... jps
"amt" a écrit dans le message de news:
Cher amicordial
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ?
amt
j'ai remplacé Sheet par Sh au bout de la deuxième ligne mais c'est toujours pareil le message est " erreur de compilation membre de méthodes ou de données introuvable OK ou Aide"
merci de votre aide!!
amt
bonjour amt remplace Sheet par Sh patrick devrait quand même savoir qu'il y a des mots protégés dont on ne peut pas se servir pour nommer une variable tout fout le camp, tiens... jps
"amt" a écrit dans le message de news:
Cher amicordial
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ?
j'ai remplacé Sheet par Sh au bout de la deuxième ligne
mais c'est toujours pareil
le message est " erreur de compilation membre de méthodes ou de
données introuvable OK ou Aide"
merci de votre aide!!
amt
bonjour amt
remplace Sheet par Sh
patrick devrait quand même savoir qu'il y a des mots protégés dont on ne
peut pas se servir pour nommer une variable
tout fout le camp, tiens...
jps
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
4401F0FE.7020603@wanadoo.fr...
Cher amicordial
En première approche, ça ne marche pas
le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False
For Each Sheet In ThisWorkbook.Sheet
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
:=True
Application.ScreenUpdating = True
j'ai remplacé Sheet par Sh au bout de la deuxième ligne mais c'est toujours pareil le message est " erreur de compilation membre de méthodes ou de données introuvable OK ou Aide"
merci de votre aide!!
amt
bonjour amt remplace Sheet par Sh patrick devrait quand même savoir qu'il y a des mots protégés dont on ne peut pas se servir pour nommer une variable tout fout le camp, tiens... jps
"amt" a écrit dans le message de news:
Cher amicordial
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
oups non, non, ce n'est pas celui-là de Sheet qu'il faut changer : c'est le premier essaie comme ceci
For Each sh In ActiveWorkbook.Worksheets
jps
"amt" a écrit dans le message de news:
j'ai remplacé Sheet par Sh au bout de la deuxième ligne mais c'est toujours pareil le message est " erreur de compilation membre de méthodes ou de données introuvable OK ou Aide"
merci de votre aide!!
amt
bonjour amt remplace Sheet par Sh patrick devrait quand même savoir qu'il y a des mots protégés dont on ne peut pas se servir pour nommer une variable tout fout le camp, tiens... jps
"amt" a écrit dans le message de news:
Cher amicordial
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ?
oups non, non, ce n'est pas celui-là de Sheet qu'il faut changer : c'est
le premier
essaie comme ceci
For Each sh In ActiveWorkbook.Worksheets
jps
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
440204FB.5090903@wanadoo.fr...
j'ai remplacé Sheet par Sh au bout de la deuxième ligne
mais c'est toujours pareil
le message est " erreur de compilation membre de méthodes ou de données
introuvable OK ou Aide"
merci de votre aide!!
amt
bonjour amt
remplace Sheet par Sh
patrick devrait quand même savoir qu'il y a des mots protégés dont on ne
peut pas se servir pour nommer une variable
tout fout le camp, tiens...
jps
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
4401F0FE.7020603@wanadoo.fr...
Cher amicordial
En première approche, ça ne marche pas
le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False
For Each Sheet In ThisWorkbook.Sheet
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
:=True
Application.ScreenUpdating = True
oups non, non, ce n'est pas celui-là de Sheet qu'il faut changer : c'est le premier essaie comme ceci
For Each sh In ActiveWorkbook.Worksheets
jps
"amt" a écrit dans le message de news:
j'ai remplacé Sheet par Sh au bout de la deuxième ligne mais c'est toujours pareil le message est " erreur de compilation membre de méthodes ou de données introuvable OK ou Aide"
merci de votre aide!!
amt
bonjour amt remplace Sheet par Sh patrick devrait quand même savoir qu'il y a des mots protégés dont on ne peut pas se servir pour nommer une variable tout fout le camp, tiens... jps
"amt" a écrit dans le message de news:
Cher amicordial
En première approche, ça ne marche pas le "Sheet" de la deuxième ligne se noircit quand je lance la macro
je reste perplexe
amt
Bonjour, *amt*
Application.ScreenUpdating = False For Each Sheet In ThisWorkbook.Sheet ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate :=True Application.ScreenUpdating = True
Cela te convient-il ?
Alain CROS
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" a écrit dans le message de news: | j'ai remplacé Sheet par Sh au bout de la deuxième ligne | mais c'est toujours pareil | le message est " erreur de compilation membre de méthodes ou de | données introuvable OK ou Aide" | | merci de votre aide!! | | amt | | > bonjour amt | > remplace Sheet par Sh | > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne | > peut pas se servir pour nommer une variable | > tout fout le camp, tiens... | > jps | > | > "amt" a écrit dans le message de news: | > | > | >>Cher amicordial | >> | >>En première approche, ça ne marche pas | >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro | >> | >>je reste perplexe | >> | >>amt | >> | >> | >>> Bonjour, *amt* | >>> | >>> | >>>Application.ScreenUpdating = False | >>>For Each Sheet In ThisWorkbook.Sheet | >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate | >>>:=True | >>>Application.ScreenUpdating = True | >>> | >>>Cela te convient-il ? | > | > | >
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news: 440204FB.5090903@wanadoo.fr...
| j'ai remplacé Sheet par Sh au bout de la deuxième ligne
| mais c'est toujours pareil
| le message est " erreur de compilation membre de méthodes ou de
| données introuvable OK ou Aide"
|
| merci de votre aide!!
|
| amt
|
| > bonjour amt
| > remplace Sheet par Sh
| > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne
| > peut pas se servir pour nommer une variable
| > tout fout le camp, tiens...
| > jps
| >
| > "amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
| > 4401F0FE.7020603@wanadoo.fr...
| >
| >>Cher amicordial
| >>
| >>En première approche, ça ne marche pas
| >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro
| >>
| >>je reste perplexe
| >>
| >>amt
| >>
| >>
| >>> Bonjour, *amt*
| >>>
| >>>
| >>>Application.ScreenUpdating = False
| >>>For Each Sheet In ThisWorkbook.Sheet
| >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
| >>>:=True
| >>>Application.ScreenUpdating = True
| >>>
| >>>Cela te convient-il ?
| >
| >
| >
"amt" a écrit dans le message de news: | j'ai remplacé Sheet par Sh au bout de la deuxième ligne | mais c'est toujours pareil | le message est " erreur de compilation membre de méthodes ou de | données introuvable OK ou Aide" | | merci de votre aide!! | | amt | | > bonjour amt | > remplace Sheet par Sh | > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne | > peut pas se servir pour nommer une variable | > tout fout le camp, tiens... | > jps | > | > "amt" a écrit dans le message de news: | > | > | >>Cher amicordial | >> | >>En première approche, ça ne marche pas | >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro | >> | >>je reste perplexe | >> | >>amt | >> | >> | >>> Bonjour, *amt* | >>> | >>> | >>>Application.ScreenUpdating = False | >>>For Each Sheet In ThisWorkbook.Sheet | >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate | >>>:=True | >>>Application.ScreenUpdating = True | >>> | >>>Cela te convient-il ? | > | > | >
amt
Merci à tous de vous déchainer sur ce petit sujet
ça imprime désormais en utilisant le code suivant:
"" Sub page2() Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Sheets ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True Application.ScreenUpdating = True Next End Sub""
(au passage j'ai choisi d'imprimer la page 2 au lieu de la 4) le problème est que cela imprime la page du premier onglet autant de fois qu'il y a d'onglets Bizarre!
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" a écrit dans le message de news: | j'ai remplacé Sheet par Sh au bout de la deuxième ligne | mais c'est toujours pareil | le message est " erreur de compilation membre de méthodes ou de | données introuvable OK ou Aide" | | merci de votre aide!! | | amt | | > bonjour amt | > remplace Sheet par Sh | > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne | > peut pas se servir pour nommer une variable | > tout fout le camp, tiens... | > jps | > | > "amt" a écrit dans le message de news: | > | > | >>Cher amicordial | >> | >>En première approche, ça ne marche pas | >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro | >> | >>je reste perplexe | >> | >>amt | >> | >> | >>> Bonjour, *amt* | >>> | >>> | >>>Application.ScreenUpdating = False | >>>For Each Sheet In ThisWorkbook.Sheet | >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate | >>>:=True | >>>Application.ScreenUpdating = True | >>> | >>>Cela te convient-il ? | > | > | >
Merci à tous de vous déchainer sur ce petit sujet
ça imprime désormais en utilisant le code suivant:
""
Sub page2()
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1,
Collate:=True
Application.ScreenUpdating = True
Next
End Sub""
(au passage j'ai choisi d'imprimer la page 2 au lieu de la 4)
le problème est que cela imprime la page du premier onglet autant de
fois qu'il y a d'onglets
Bizarre!
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news: 440204FB.5090903@wanadoo.fr...
| j'ai remplacé Sheet par Sh au bout de la deuxième ligne
| mais c'est toujours pareil
| le message est " erreur de compilation membre de méthodes ou de
| données introuvable OK ou Aide"
|
| merci de votre aide!!
|
| amt
|
| > bonjour amt
| > remplace Sheet par Sh
| > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne
| > peut pas se servir pour nommer une variable
| > tout fout le camp, tiens...
| > jps
| >
| > "amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
| > 4401F0FE.7020603@wanadoo.fr...
| >
| >>Cher amicordial
| >>
| >>En première approche, ça ne marche pas
| >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro
| >>
| >>je reste perplexe
| >>
| >>amt
| >>
| >>
| >>> Bonjour, *amt*
| >>>
| >>>
| >>>Application.ScreenUpdating = False
| >>>For Each Sheet In ThisWorkbook.Sheet
| >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
| >>>:=True
| >>>Application.ScreenUpdating = True
| >>>
| >>>Cela te convient-il ?
| >
| >
| >
ça imprime désormais en utilisant le code suivant:
"" Sub page2() Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Sheets ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True Application.ScreenUpdating = True Next End Sub""
(au passage j'ai choisi d'imprimer la page 2 au lieu de la 4) le problème est que cela imprime la page du premier onglet autant de fois qu'il y a d'onglets Bizarre!
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" a écrit dans le message de news: | j'ai remplacé Sheet par Sh au bout de la deuxième ligne | mais c'est toujours pareil | le message est " erreur de compilation membre de méthodes ou de | données introuvable OK ou Aide" | | merci de votre aide!! | | amt | | > bonjour amt | > remplace Sheet par Sh | > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne | > peut pas se servir pour nommer une variable | > tout fout le camp, tiens... | > jps | > | > "amt" a écrit dans le message de news: | > | > | >>Cher amicordial | >> | >>En première approche, ça ne marche pas | >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro | >> | >>je reste perplexe | >> | >>amt | >> | >> | >>> Bonjour, *amt* | >>> | >>> | >>>Application.ScreenUpdating = False | >>>For Each Sheet In ThisWorkbook.Sheet | >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate | >>>:=True | >>>Application.ScreenUpdating = True | >>> | >>>Cela te convient-il ? | > | > | >
amt
Merci à tous de vous déchainer sur ce petit sujet
ça imprime désormais en utilisant le code suivant:
"" Sub page2() Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Sheets ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True Application.ScreenUpdating = True Next End Sub""
(au passage j'ai choisi d'imprimer la page 2 au lieu de la 4) le problème est que cela imprime la page du premier onglet autant de fois qu'il y a d'onglets Bizarre!
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" a écrit dans le message de news: | j'ai remplacé Sheet par Sh au bout de la deuxième ligne | mais c'est toujours pareil | le message est " erreur de compilation membre de méthodes ou de | données introuvable OK ou Aide" | | merci de votre aide!! | | amt | | > bonjour amt | > remplace Sheet par Sh | > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne | > peut pas se servir pour nommer une variable | > tout fout le camp, tiens... | > jps | > | > "amt" a écrit dans le message de news: | > | > | >>Cher amicordial | >> | >>En première approche, ça ne marche pas | >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro | >> | >>je reste perplexe | >> | >>amt | >> | >> | >>> Bonjour, *amt* | >>> | >>> | >>>Application.ScreenUpdating = False | >>>For Each Sheet In ThisWorkbook.Sheet | >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate | >>>:=True | >>>Application.ScreenUpdating = True | >>> | >>>Cela te convient-il ? | > | > | >
Merci à tous de vous déchainer sur ce petit sujet
ça imprime désormais en utilisant le code suivant:
""
Sub page2()
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1,
Collate:=True
Application.ScreenUpdating = True
Next
End Sub""
(au passage j'ai choisi d'imprimer la page 2 au lieu de la 4)
le problème est que cela imprime la page du premier onglet autant de
fois qu'il y a d'onglets
Bizarre!
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" <jb.muret@wanadoo.fr> a écrit dans le message de news: 440204FB.5090903@wanadoo.fr...
| j'ai remplacé Sheet par Sh au bout de la deuxième ligne
| mais c'est toujours pareil
| le message est " erreur de compilation membre de méthodes ou de
| données introuvable OK ou Aide"
|
| merci de votre aide!!
|
| amt
|
| > bonjour amt
| > remplace Sheet par Sh
| > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne
| > peut pas se servir pour nommer une variable
| > tout fout le camp, tiens...
| > jps
| >
| > "amt" <jb.muret@wanadoo.fr> a écrit dans le message de news:
| > 4401F0FE.7020603@wanadoo.fr...
| >
| >>Cher amicordial
| >>
| >>En première approche, ça ne marche pas
| >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro
| >>
| >>je reste perplexe
| >>
| >>amt
| >>
| >>
| >>> Bonjour, *amt*
| >>>
| >>>
| >>>Application.ScreenUpdating = False
| >>>For Each Sheet In ThisWorkbook.Sheet
| >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate
| >>>:=True
| >>>Application.ScreenUpdating = True
| >>>
| >>>Cela te convient-il ?
| >
| >
| >
ça imprime désormais en utilisant le code suivant:
"" Sub page2() Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Sheets ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True Application.ScreenUpdating = True Next End Sub""
(au passage j'ai choisi d'imprimer la page 2 au lieu de la 4) le problème est que cela imprime la page du premier onglet autant de fois qu'il y a d'onglets Bizarre!
Bonjour,
ThisWorkbook.Sheets
Alain CROS
"amt" a écrit dans le message de news: | j'ai remplacé Sheet par Sh au bout de la deuxième ligne | mais c'est toujours pareil | le message est " erreur de compilation membre de méthodes ou de | données introuvable OK ou Aide" | | merci de votre aide!! | | amt | | > bonjour amt | > remplace Sheet par Sh | > patrick devrait quand même savoir qu'il y a des mots protégés dont on ne | > peut pas se servir pour nommer une variable | > tout fout le camp, tiens... | > jps | > | > "amt" a écrit dans le message de news: | > | > | >>Cher amicordial | >> | >>En première approche, ça ne marche pas | >>le "Sheet" de la deuxième ligne se noircit quand je lance la macro | >> | >>je reste perplexe | >> | >>amt | >> | >> | >>> Bonjour, *amt* | >>> | >>> | >>>Application.ScreenUpdating = False | >>>For Each Sheet In ThisWorkbook.Sheet | >>>ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate | >>>:=True | >>>Application.ScreenUpdating = True | >>> | >>>Cela te convient-il ? | > | > | >
