|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Excel ajuter sur 1 page [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (Rodrigue)
 Informations & options pour cette discussion
|
lundi 17 mars 2003 à 22:23:52 |
Excel ajuter sur 1 page
Rodrigue
|
Bonjour, J'aurais besoin de savoir comment faire pour faire la fonction Ajuster sur 1 page en hauteur et 1 page en largeur du menu Fichier -> Mise en page dans mon code... avec des variable de type Excel.Application et Excel.Workbook Merci beaucoup, Rod P.S.: Je m'excuse si ce msg est posté 2 fois, j'ai eu quelque problèmes et je ne voulais pas prendre de chance.
|
|
|
|
mardi 18 mars 2003 à 09:34:49 |
Re : Excel ajuter sur 1 page
pelw
|
Par exemple pour ajuster la feuille "Feuil1" :
With Worksheets("Feuil1").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
@+
pelw
-------------------------------
Réponse au message :
-------------------------------
> Bonjour,
>
> J'aurais besoin de savoir comment faire pour faire la fonction
>
> Ajuster sur 1 page en hauteur et 1 page en largeur
>
> du menu Fichier -> Mise en page
>
> dans mon code... avec des variable de type Excel.Application et Excel.Workbook
>
> Merci beaucoup,
> Rod
>
> P.S.: Je m'excuse si ce msg est posté 2 fois, j'ai eu quelque problèmes et je ne voulais pas prendre de chance.
|
|
|
|
mardi 18 mars 2003 à 10:13:42 |
Re : Excel ajuter sur 1 page
CapDeBoro
|
Adiu
Pense à utiliser l'enregistreur de macros d'Excel !
Il évite souvent des recherches laborieuses
Cordialement
CapDeBoro
-------------------------------
Réponse au message :
-------------------------------
> Par exemple pour ajuster la feuille "Feuil1" :
>
> With Worksheets("Feuil1").PageSetup
> .Zoom = False
> .FitToPagesTall = 1
> .FitToPagesWide = 1
> End With
>
>
> @+
>
> pelw
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> >
> > J'aurais besoin de savoir comment faire pour faire la fonction
> >
> > Ajuster sur 1 page en hauteur et 1 page en largeur
> >
> > du menu Fichier -> Mise en page
> >
> > dans mon code... avec des variable de type Excel.Application et Excel.Workbook
> >
> > Merci beaucoup,
> > Rod
> >
> > P.S.: Je m'excuse si ce msg est posté 2 fois, j'ai eu quelque problèmes et je ne voulais pas prendre de chance.
>
|
|
|
|
mardi 18 mars 2003 à 15:50:45 |
Re : Excel ajuter sur 1 page
Rodrigue
|
Merci pewl,
La ligne de code fonctionne mais n'a aucun effect sur mon rapport.
wsRapport.Columns.AutoFit wsRapport.PageSetup.FitToPagesWide = 1 wsRapport.PageSetup.FitToPagesTall = 1
wsRapport.Range("a2").Select
objApp.Visible = True
Mon rapport continue toujours à s'imprimer sur 2 page de large. Je ne comprend pas pourquoi, je n'ai aucune erreur, j'ai vérifié avec le pas à pas et je passe vraiment sur la ligne de code. Si quelqu'un à une solution...
Pour ce qui est de CapdeBoro,
Je n'ai aucune idée comment utilisé l'enregistreur de macros d'Excel et en plus je ne crois pas que je puisse l'utilisé étant donnée que l'appli est destiné à être utilisé par plusieurs personne et que je n'ai pas de modèle de base (workbook que j'ouvre pour écrire dedans) pour mon rapport, je recommence tjrs avec un nouveau workbook.
Merci
Rod
-------------------------------
Réponse au message :
-------------------------------
> Adiu
>
> Pense à utiliser l'enregistreur de macros d'Excel !
> Il évite souvent des recherches laborieuses
>
> Cordialement
> CapDeBoro
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Par exemple pour ajuster la feuille "Feuil1" :
> >
> > With Worksheets("Feuil1").PageSetup
> > .Zoom = False
> > .FitToPagesTall = 1
> > .FitToPagesWide = 1
> > End With
> >
> >
> > @+
> >
> > pelw
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour,
> > >
> > > J'aurais besoin de savoir comment faire pour faire la fonction
> > >
> > > Ajuster sur 1 page en hauteur et 1 page en largeur
> > >
> > > du menu Fichier -> Mise en page
> > >
> > > dans mon code... avec des variable de type Excel.Application et Excel.Workbook
> > >
> > > Merci beaucoup,
> > > Rod
> > >
> > > P.S.: Je m'excuse si ce msg est posté 2 fois, j'ai eu quelque problèmes et je ne voulais pas prendre de chance.
> >
>
|
|
|
|
mardi 18 mars 2003 à 20:00:46 |
Re : Excel ajuter sur 1 page
pelw
|
Il faut impérativement indiquer (comme dans mon exemple) :
wsRapport.PageSetup.Zoom = False
Sans cela. les propriétés FitToPagesTall et FitToPagesWide sont IGNOREES.
@+
pelw
-------------------------------
Réponse au message :
-------------------------------
>
> Merci pewl,
>
> La ligne de code fonctionne mais n'a aucun effect sur mon rapport.
>
> wsRapport.Columns.AutoFit wsRapport.PageSetup.FitToPagesWide = 1 wsRapport.PageSetup.FitToPagesTall = 1
> wsRapport.Range("a2").Select
> objApp.Visible = True
>
> Mon rapport continue toujours à s'imprimer sur 2 page de large. Je ne comprend pas pourquoi, je n'ai aucune erreur, j'ai vérifié avec le pas à pas et je passe vraiment sur la ligne de code. Si quelqu'un à une solution...
>
> Pour ce qui est de CapdeBoro,
>
> Je n'ai aucune idée comment utilisé l'enregistreur de macros d'Excel et en plus je ne crois pas que je puisse l'utilisé étant donnée que l'appli est destiné à être utilisé par plusieurs personne et que je n'ai pas de modèle de base (workbook que j'ouvre pour écrire dedans) pour mon rapport, je recommence tjrs avec un nouveau workbook.
>
> Merci
> Rod
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Adiu
> >
> > Pense à utiliser l'enregistreur de macros d'Excel !
> > Il évite souvent des recherches laborieuses
> >
> > Cordialement
> > CapDeBoro
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Par exemple pour ajuster la feuille "Feuil1" :
> > >
> > > With Worksheets("Feuil1").PageSetup
> > > .Zoom = False
> > > .FitToPagesTall = 1
> > > .FitToPagesWide = 1
> > > End With
> > >
> > >
> > > @+
> > >
> > > pelw
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Bonjour,
> > > >
> > > > J'aurais besoin de savoir comment faire pour faire la fonction
> > > >
> > > > Ajuster sur 1 page en hauteur et 1 page en largeur
> > > >
> > > > du menu Fichier -> Mise en page
> > > >
> > > > dans mon code... avec des variable de type Excel.Application et Excel.Workbook
> > > >
> > > > Merci beaucoup,
> > > > Rod
> > > >
> > > > P.S.: Je m'excuse si ce msg est posté 2 fois, j'ai eu quelque problèmes et je ne voulais pas prendre de chance.
> > >
> >
>
|
|
|
|
mardi 18 mars 2003 à 20:04:29 |
Re : Excel ajuter sur 1 page
Rodrigue
|
Merci pelw,
Je m'excuse de l'oubli, je crois que je ne l'avais meme pas vu la première fois, mais avec le zoom = false, ca fonctionne très bien.
Merci
Rod
-------------------------------
Réponse au message :
-------------------------------
> Il faut impérativement indiquer (comme dans mon exemple) :
>
> wsRapport.PageSetup.Zoom = False
>
> Sans cela. les propriétés FitToPagesTall et FitToPagesWide sont IGNOREES.
>
>
> @+
>
> pelw
|
|
|
|
mercredi 19 mars 2003 à 11:31:50 |
Re : Excel ajuter sur 1 page
CapDeBoro
|
Adiu
L?intérêt majeur du générateur de macros sous Excel, Word et Powerpoint est de générer le code VBA correspondant à une série d?action. Il est ensuite possible de s?inspirer de ce code, voire de le copier-coller directement.
Dans ton cas, par le menu « Outils ? Macros ? Nouvelle macro », lance l?enregistreur. Ensuite, configure la mise en page, puis arrête l?enregistreur. Il te suffit ensuite de passer par « Outils ? Macros ? VB Editor » pour consulter le code.
Cordialement
CapDeBoro
-------------------------------
Réponse au message :
-------------------------------
>
> Merci pewl,
>
> La ligne de code fonctionne mais n'a aucun effect sur mon rapport.
>
> wsRapport.Columns.AutoFit wsRapport.PageSetup.FitToPagesWide = 1 wsRapport.PageSetup.FitToPagesTall = 1
> wsRapport.Range("a2").Select
> objApp.Visible = True
>
> Mon rapport continue toujours à s'imprimer sur 2 page de large. Je ne comprend pas pourquoi, je n'ai aucune erreur, j'ai vérifié avec le pas à pas et je passe vraiment sur la ligne de code. Si quelqu'un à une solution...
>
> Pour ce qui est de CapdeBoro,
>
> Je n'ai aucune idée comment utilisé l'enregistreur de macros d'Excel et en plus je ne crois pas que je puisse l'utilisé étant donnée que l'appli est destiné à être utilisé par plusieurs personne et que je n'ai pas de modèle de base (workbook que j'ouvre pour écrire dedans) pour mon rapport, je recommence tjrs avec un nouveau workbook.
>
> Merci
> Rod
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Adiu
> >
> > Pense à utiliser l'enregistreur de macros d'Excel !
> > Il évite souvent des recherches laborieuses
> >
> > Cordialement
> > CapDeBoro
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Par exemple pour ajuster la feuille "Feuil1" :
> > >
> > > With Worksheets("Feuil1").PageSetup
> > > .Zoom = False
> > > .FitToPagesTall = 1
> > > .FitToPagesWide = 1
> > > End With
> > >
> > >
> > > @+
> > >
> > > pelw
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Bonjour,
> > > >
> > > > J'aurais besoin de savoir comment faire pour faire la fonction
> > > >
> > > > Ajuster sur 1 page en hauteur et 1 page en largeur
> > > >
> > > > du menu Fichier -> Mise en page
> > > >
> > > > dans mon code... avec des variable de type Excel.Application et Excel.Workbook
> > > >
> > > > Merci beaucoup,
> > > > Rod
> > > >
> > > > P.S.: Je m'excuse si ce msg est posté 2 fois, j'ai eu quelque problèmes et je ne voulais pas prendre de chance.
> > >
> >
>
|
|
|
|
dimanche 28 septembre 2008 à 23:29:59 |
Re : Excel ajuter sur 1 page
TheSimpsons_lover
|
Merci, cette solution m'a aussi aidé pelw Vive Vb.France.com, combien de fois m'as-tu sauvé?! 
|
|
|
Cette discussion est classé dans : page, excel, ajuter
 Répondre à ce message
 Sujets en rapport avec ce message
Mise en page de Excel avec un composant - comment faire ? [ par Nascimo ]
BonjourJe travaille avec une appli excel sous asp. C'est mon composant qui fait tout. Il ouvre un nouveau excel, fait le calcul et enregistre le xls s
mise en page excel [ par nikos ]
Je pilote excel via VB et j'aimerais savoir s'il existe une fonction pour centrer le texte des cases que j'ai rempli dans excel et pendant qu'on y est
Changer la page active d'excel avec VB [ par stage ]
Je cherche comment faire pour changer la page active d'un document excel en VBWorksheet, workbook ?!Merci !
Generation de page HTML [ par Philippe ]
salut,je suis a la recherche d'un moyen de faire genere a excel des pages HTML par rapport un a nom de fichier (une photo) puis de l'enregistre dans u
Excel VBA : connaitre le nombre de page(s) avant impression [ par GTY ]
Bonjour,Je fais des pages excel au moyen de Vb, mais avant d'imprimer je vroudrais connaitre le nombre de pages que mon document contient.Merçi à tous
connection a excel [ par juste ]
Bonjour,voici mon probleme: je veux crée un petit programme pour modifier une page excell existante et deja ouverte, donc je dois me connecter a celle
mise en page Excel a partir de vb6 [ par nicboi ]
Dans une application vb6 je cree un tableau excel ou je place des donnees issu d'une base access.Est t'il possible de faire une mise en page automatiq
ouvrir un fichier Excel et atteindre la feuille voulu dans une page html [ par jeriani ]
Bonjour,J'ai un page html avec 5 liens, chacun de ces liens corresponde à une des 5 feuilles de calculs presentent dans le meme fichier Excel.Par exem
affichage re-actualisable de fiches excel dans une page html [ par coolangel ]
Bonjour,Je suis en stage informatique pour une entreprise qui utilise VBA et je voudrais savoir s'il est possible d'afficher des feuilles de calcul ex
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|