VBA une page en largeur et plusieurs pages en hauteur
6 réponses
Céline Brien
Bonjour à tous !
Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur.
Les codes suivants ne fonctionnent pas. Pourquoi ?
---------------------------------------
With ActiveSheet.PageSetup
.PrintQuality = -4
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
---------------------------------------
Merci de votre aide,
Céline
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
MichDenis
Bonjour Céline,
La propriété .PrintQuality = -4 , mais beaucoup de réserve pour la valeur -4. Je t'invite à regarde l'aide d'excel sur la façon de définir cette propriété. D'ailleurs, ce n'est pas tous les imprimantes qui sachent la gérer.
Salutations!
"Céline Brien" a écrit dans le message de news: Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet onglet : qualité d'impression haute, 1 page en largeur et 100 pages en hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Bonjour Céline,
La propriété .PrintQuality = -4 , mais beaucoup de réserve pour la valeur -4. Je t'invite à regarde l'aide d'excel sur la façon
de définir cette propriété. D'ailleurs, ce n'est pas tous les imprimantes qui sachent la gérer.
Salutations!
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de news: uBxB0K2SFHA.2128@TK2MSFTNGP15.phx.gbl...
Bonjour à tous !
Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur.
Les codes suivants ne fonctionnent pas. Pourquoi ?
---------------------------------------
With ActiveSheet.PageSetup
.PrintQuality = -4
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
---------------------------------------
Merci de votre aide,
Céline
La propriété .PrintQuality = -4 , mais beaucoup de réserve pour la valeur -4. Je t'invite à regarde l'aide d'excel sur la façon de définir cette propriété. D'ailleurs, ce n'est pas tous les imprimantes qui sachent la gérer.
Salutations!
"Céline Brien" a écrit dans le message de news: Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet onglet : qualité d'impression haute, 1 page en largeur et 100 pages en hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Philippe.R
Bonsoir Céline, Que te souffle l'enregistreur de macros sur ce coup là ? -- Amicales Salutations XL 97 / 2000 / 2002
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet onglet : qualité d'impression haute, 1 page en largeur et 100 pages en hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Bonsoir Céline,
Que te souffle l'enregistreur de macros sur ce coup là ?
--
Amicales Salutations
XL 97 / 2000 / 2002
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de news:
uBxB0K2SFHA.2128@TK2MSFTNGP15.phx.gbl...
Bonjour à tous !
Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur.
Les codes suivants ne fonctionnent pas. Pourquoi ?
---------------------------------------
With ActiveSheet.PageSetup
.PrintQuality = -4
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
---------------------------------------
Merci de votre aide,
Céline
Bonsoir Céline, Que te souffle l'enregistreur de macros sur ce coup là ? -- Amicales Salutations XL 97 / 2000 / 2002
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet onglet : qualité d'impression haute, 1 page en largeur et 100 pages en hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Céline Brien
Salut, Merci beaucoup de cette réponse. J'ai éliminé les codes PrintQuality et testé de nouveau. Les codes suivants ne font toujours pas le travail ? With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 100 End With Est-ce parce que je lance la macro dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé au moment du déplacement de l'onglet dans un nouveau classeur ?? Je n'obtiens aucun message d'erreur. Merci encore, Céline
"MichDenis" a écrit dans le message de news:utRh%
Bonjour Céline,
La propriété .PrintQuality = -4 , mais beaucoup de réserve pour la valeur -4. Je t'invite à regarde l'aide d'excel sur la façon
de définir cette propriété. D'ailleurs, ce n'est pas tous les imprimantes qui sachent la gérer.
Salutations!
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Salut,
Merci beaucoup de cette réponse.
J'ai éliminé les codes PrintQuality et testé de nouveau.
Les codes suivants ne font toujours pas le travail ?
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
Est-ce parce que je lance la macro dans un classeur et que ces codes
doivent s'appliquer à un autre classeur créé au moment du déplacement de
l'onglet dans un nouveau classeur ??
Je n'obtiens aucun message d'erreur.
Merci encore,
Céline
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:utRh%23v2SFHA.3144@TK2MSFTNGP09.phx.gbl...
Bonjour Céline,
La propriété .PrintQuality = -4 , mais beaucoup de réserve pour la
valeur -4. Je t'invite à regarde l'aide d'excel sur la façon
de définir cette propriété. D'ailleurs, ce n'est pas tous les
imprimantes qui sachent la gérer.
Salutations!
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de news: uBxB0K2SFHA.2128@TK2MSFTNGP15.phx.gbl...
Bonjour à tous !
Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à
cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur.
Les codes suivants ne fonctionnent pas. Pourquoi ?
---------------------------------------
With ActiveSheet.PageSetup
.PrintQuality = -4
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
---------------------------------------
Merci de votre aide,
Céline
Salut, Merci beaucoup de cette réponse. J'ai éliminé les codes PrintQuality et testé de nouveau. Les codes suivants ne font toujours pas le travail ? With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 100 End With Est-ce parce que je lance la macro dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé au moment du déplacement de l'onglet dans un nouveau classeur ?? Je n'obtiens aucun message d'erreur. Merci encore, Céline
"MichDenis" a écrit dans le message de news:utRh%
Bonjour Céline,
La propriété .PrintQuality = -4 , mais beaucoup de réserve pour la valeur -4. Je t'invite à regarde l'aide d'excel sur la façon
de définir cette propriété. D'ailleurs, ce n'est pas tous les imprimantes qui sachent la gérer.
Salutations!
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Céline Brien
Salut Philippe, Merci beaucoup pour cette réponse. Les codes ont été enregistré avec l'enregistreur de macros. Je les utilise régulièrement. Je me demande si le problème ne vient pas du fait que la macro est lancée dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé lors du déplacement de l'onglet dans un nouveau classeur ??? Merci encore, Céline
"Philippe.R" a écrit dans le message de news:%
Bonsoir Céline, Que te souffle l'enregistreur de macros sur ce coup là ? -- Amicales Salutations XL 97 / 2000 / 2002
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Salut Philippe,
Merci beaucoup pour cette réponse.
Les codes ont été enregistré avec l'enregistreur de macros.
Je les utilise régulièrement.
Je me demande si le problème ne vient pas du fait que la macro est
lancée dans un classeur et que ces codes doivent s'appliquer à un autre
classeur créé lors du déplacement de l'onglet dans un nouveau classeur
???
Merci encore,
Céline
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%23Iqsuw2SFHA.3620@TK2MSFTNGP09.phx.gbl...
Bonsoir Céline,
Que te souffle l'enregistreur de macros sur ce coup là ?
--
Amicales Salutations
XL 97 / 2000 / 2002
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de news:
uBxB0K2SFHA.2128@TK2MSFTNGP15.phx.gbl...
Bonjour à tous !
Par macro (codes dans un Module), je déplace un onglet dans un
nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à
cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages
en
hauteur.
Les codes suivants ne fonctionnent pas. Pourquoi ?
---------------------------------------
With ActiveSheet.PageSetup
.PrintQuality = -4
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
---------------------------------------
Merci de votre aide,
Céline
Salut Philippe, Merci beaucoup pour cette réponse. Les codes ont été enregistré avec l'enregistreur de macros. Je les utilise régulièrement. Je me demande si le problème ne vient pas du fait que la macro est lancée dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé lors du déplacement de l'onglet dans un nouveau classeur ??? Merci encore, Céline
"Philippe.R" a écrit dans le message de news:%
Bonsoir Céline, Que te souffle l'enregistreur de macros sur ce coup là ? -- Amicales Salutations XL 97 / 2000 / 2002
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
GD
Céline Brien wrote:
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 100 End With Est-ce parce que je lance la macro dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé au moment du déplacement de l'onglet dans un nouveau classeur ??
Oui Céline c'est probablement cela .... dans chaque classeur il y a toujours une ActiveSheet !!!! il faut donc qualifier ce ActiveSheet ou alors activer ce nouveau classeur...
quelquechose du genre :
Set NewWB=nouveau_classeur.name ../... With NewWB '-------v----- With .ActiveSheet.PageSetup .bla-bla .bla-bla End with End with
@+
Céline Brien wrote:
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
Est-ce parce que je lance la macro dans un classeur et que ces codes
doivent s'appliquer à un autre classeur créé au moment du déplacement
de l'onglet dans un nouveau classeur ??
Oui Céline c'est probablement cela ....
dans chaque classeur il y a toujours une ActiveSheet !!!!
il faut donc qualifier ce ActiveSheet
ou alors activer ce nouveau classeur...
quelquechose du genre :
Set NewWB=nouveau_classeur.name
../...
With NewWB
'-------v-----
With .ActiveSheet.PageSetup
.bla-bla
.bla-bla
End with
End with
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 100 End With Est-ce parce que je lance la macro dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé au moment du déplacement de l'onglet dans un nouveau classeur ??
Oui Céline c'est probablement cela .... dans chaque classeur il y a toujours une ActiveSheet !!!! il faut donc qualifier ce ActiveSheet ou alors activer ce nouveau classeur...
quelquechose du genre :
Set NewWB=nouveau_classeur.name ../... With NewWB '-------v----- With .ActiveSheet.PageSetup .bla-bla .bla-bla End with End with
@+
Philippe.R
Bonjour Céline, La piste est probablement à rechercher du côté de celle indiquée par GD. -- Amicales Salutations
"Céline Brien" a écrit dans le message de news:
Salut Philippe, Merci beaucoup pour cette réponse. Les codes ont été enregistré avec l'enregistreur de macros. Je les utilise régulièrement. Je me demande si le problème ne vient pas du fait que la macro est lancée dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé lors du déplacement de l'onglet dans un nouveau classeur ??? Merci encore, Céline
"Philippe.R" a écrit dans le message de news:%
Bonsoir Céline, Que te souffle l'enregistreur de macros sur ce coup là ? -- Amicales Salutations XL 97 / 2000 / 2002
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
Bonjour Céline,
La piste est probablement à rechercher du côté de celle indiquée par GD.
--
Amicales Salutations
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de news:
ehGhKL3SFHA.3156@TK2MSFTNGP15.phx.gbl...
Salut Philippe,
Merci beaucoup pour cette réponse.
Les codes ont été enregistré avec l'enregistreur de macros.
Je les utilise régulièrement.
Je me demande si le problème ne vient pas du fait que la macro est
lancée dans un classeur et que ces codes doivent s'appliquer à un autre
classeur créé lors du déplacement de l'onglet dans un nouveau classeur
???
Merci encore,
Céline
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%23Iqsuw2SFHA.3620@TK2MSFTNGP09.phx.gbl...
Bonsoir Céline,
Que te souffle l'enregistreur de macros sur ce coup là ?
--
Amicales Salutations
XL 97 / 2000 / 2002
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
de news:
uBxB0K2SFHA.2128@TK2MSFTNGP15.phx.gbl...
Bonjour à tous !
Par macro (codes dans un Module), je déplace un onglet dans un
nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à
cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages
en
hauteur.
Les codes suivants ne fonctionnent pas. Pourquoi ?
---------------------------------------
With ActiveSheet.PageSetup
.PrintQuality = -4
.FitToPagesWide = 1
.FitToPagesTall = 100
End With
---------------------------------------
Merci de votre aide,
Céline
Bonjour Céline, La piste est probablement à rechercher du côté de celle indiquée par GD. -- Amicales Salutations
"Céline Brien" a écrit dans le message de news:
Salut Philippe, Merci beaucoup pour cette réponse. Les codes ont été enregistré avec l'enregistreur de macros. Je les utilise régulièrement. Je me demande si le problème ne vient pas du fait que la macro est lancée dans un classeur et que ces codes doivent s'appliquer à un autre classeur créé lors du déplacement de l'onglet dans un nouveau classeur ??? Merci encore, Céline
"Philippe.R" a écrit dans le message de news:%
Bonsoir Céline, Que te souffle l'enregistreur de macros sur ce coup là ? -- Amicales Salutations XL 97 / 2000 / 2002
"Céline Brien" a écrit dans le message de news:
Bonjour à tous ! Par macro (codes dans un Module), je déplace un onglet dans un nouveau
classeur. Ensuite, je souhaite appliquer la mise en forme suivante à cet
onglet : qualité d'impression haute, 1 page en largeur et 100 pages en
hauteur. Les codes suivants ne fonctionnent pas. Pourquoi ? --------------------------------------- With ActiveSheet.PageSetup .PrintQuality = -4 .FitToPagesWide = 1 .FitToPagesTall = 100 End With --------------------------------------- Merci de votre aide, Céline
