Dans le code qui suit, je me demande si c'est la partie "aperçu" qui rend
l'exécution du code si lente. L'affichage de l'aperçu est très très lent à
venir ...
J'ai essayé avec "Application.EnableEvents = False" (au cas où !) mais ça ne
change rien !
'------------------
Private Sub Voir_Synthèse_Click()
Dim SynthPlageExport As Range
Dim ZoneImpression As Variant '?
Dim reponse3 As Integer
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
Modeste
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Bonsoir,
Dans le code qui suit, je me demande si c'est la partie "aperçu" qui rend l'exécution du code si lente. L'affichage de l'aperçu est très très lent à venir ... c'est toute la partie PageSetup qui est la cause de ce probleme... :-(((
elimine toutes les instructions qui redefinissent le parametrage par défaut de ton imprimante en ne conservant que celle qui change réellement, cela devrait s'améliorer...
sinon il faut envisager l'utilisation de macro EXCEL 4 le MVP australien John Green avait parlé de ceci : http://usenet.p2preactor.com/index-t-1339095.html
@+ ;o)))
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Bonsoir,
Dans le code qui suit, je me demande si c'est la partie "aperçu" qui
rend l'exécution du code si lente. L'affichage de l'aperçu est très
très lent à venir ...
c'est toute la partie PageSetup qui est la cause de ce probleme... :-(((
elimine toutes les instructions qui redefinissent le parametrage par défaut de
ton imprimante
en ne conservant que celle qui change réellement, cela devrait s'améliorer...
sinon il faut envisager l'utilisation de macro EXCEL 4
le MVP australien John Green avait parlé de ceci :
http://usenet.p2preactor.com/index-t-1339095.html
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Bonsoir,
Dans le code qui suit, je me demande si c'est la partie "aperçu" qui rend l'exécution du code si lente. L'affichage de l'aperçu est très très lent à venir ... c'est toute la partie PageSetup qui est la cause de ce probleme... :-(((
elimine toutes les instructions qui redefinissent le parametrage par défaut de ton imprimante en ne conservant que celle qui change réellement, cela devrait s'améliorer...
sinon il faut envisager l'utilisation de macro EXCEL 4 le MVP australien John Green avait parlé de ceci : http://usenet.p2preactor.com/index-t-1339095.html
@+ ;o)))
MichDenis
Au lieu de définir ta mise en page dans ta macro par ces lignes de code :
Utilise plutôt la commande Fichier / Mise en page -> lorsque cette dernière respectera tous tes désirs, sauvegarde ton fichier....la mise en page sera aussi sauvegardé avec les données ... et lorsque tu appeleras la commande worksheets("Feuil1").PrintPReview , tu auras la même présentation que celle que tu avais défini.
Attention, la mise en page est liée à une feuille précise et s'appliquera seulement à cette feuille et non à tout le classeur.
PS. Tu peux exécuter ce bout de code seule dans une procédure et enregistrer ton fichier par la suite... le résultat sera le même N'oublie pas de sélectionner la feuille désirée avant d'exécuter la procédure. '----------------------------- With ActiveSheet.PageSetup
Tu as un fichier exemple que j'ai commis sur le site de Misange concernant cette problématique cité par Modeste : l'utilisation de macro EXCEL 4
Au lieu de définir ta mise en page dans ta macro par
ces lignes de code :
Utilise plutôt la commande Fichier / Mise en page ->
lorsque cette dernière respectera tous tes désirs,
sauvegarde ton fichier....la mise en page sera aussi
sauvegardé avec les données ... et lorsque tu appeleras
la commande worksheets("Feuil1").PrintPReview , tu
auras la même présentation que celle que tu avais défini.
Attention, la mise en page est liée à une feuille précise et s'appliquera
seulement à cette feuille et non à tout le classeur.
PS. Tu peux exécuter ce bout de code seule dans une procédure
et enregistrer ton fichier par la suite... le résultat sera le même
N'oublie pas de sélectionner la feuille désirée avant d'exécuter
la procédure.
'-----------------------------
With ActiveSheet.PageSetup
Au lieu de définir ta mise en page dans ta macro par ces lignes de code :
Utilise plutôt la commande Fichier / Mise en page -> lorsque cette dernière respectera tous tes désirs, sauvegarde ton fichier....la mise en page sera aussi sauvegardé avec les données ... et lorsque tu appeleras la commande worksheets("Feuil1").PrintPReview , tu auras la même présentation que celle que tu avais défini.
Attention, la mise en page est liée à une feuille précise et s'appliquera seulement à cette feuille et non à tout le classeur.
PS. Tu peux exécuter ce bout de code seule dans une procédure et enregistrer ton fichier par la suite... le résultat sera le même N'oublie pas de sélectionner la feuille désirée avant d'exécuter la procédure. '----------------------------- With ActiveSheet.PageSetup
Tu as un fichier exemple que j'ai commis sur le site de Misange concernant cette problématique cité par Modeste : l'utilisation de macro EXCEL 4
j-pascal
Bonsoir,
Merci pour ton conseil ... que je n'ai pas manqué de mettre en pratique. Le résultat est effectivement très concluant. Je reste surpris de la longueur d'exécution de cette partie du code ! y-a-t-il une explication simple ... pour un néophyte en vba ?
JP
"MichDenis" a écrit dans le message de news: Op%
Au lieu de définir ta mise en page dans ta macro par ces lignes de code :
Utilise plutôt la commande Fichier / Mise en page -> lorsque cette dernière respectera tous tes désirs, sauvegarde ton fichier....la mise en page sera aussi sauvegardé avec les données ... et lorsque tu appeleras la commande worksheets("Feuil1").PrintPReview , tu auras la même présentation que celle que tu avais défini.
Attention, la mise en page est liée à une feuille précise et s'appliquera seulement à cette feuille et non à tout le classeur.
PS. Tu peux exécuter ce bout de code seule dans une procédure et enregistrer ton fichier par la suite... le résultat sera le même N'oublie pas de sélectionner la feuille désirée avant d'exécuter la procédure. '----------------------------- With ActiveSheet.PageSetup
Tu as un fichier exemple que j'ai commis sur le site de Misange concernant cette problématique cité par Modeste : l'utilisation de macro EXCEL 4
Bonsoir,
Merci pour ton conseil ... que je n'ai pas manqué de mettre en pratique. Le
résultat est effectivement très concluant.
Je reste surpris de la longueur d'exécution de cette partie du code !
y-a-t-il une explication simple ... pour un néophyte en vba ?
JP
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
Op%23KArX9HHA.1208@TK2MSFTNGP05.phx.gbl...
Au lieu de définir ta mise en page dans ta macro par
ces lignes de code :
Utilise plutôt la commande Fichier / Mise en page ->
lorsque cette dernière respectera tous tes désirs,
sauvegarde ton fichier....la mise en page sera aussi
sauvegardé avec les données ... et lorsque tu appeleras
la commande worksheets("Feuil1").PrintPReview , tu
auras la même présentation que celle que tu avais défini.
Attention, la mise en page est liée à une feuille précise et s'appliquera
seulement à cette feuille et non à tout le classeur.
PS. Tu peux exécuter ce bout de code seule dans une procédure
et enregistrer ton fichier par la suite... le résultat sera le même
N'oublie pas de sélectionner la feuille désirée avant d'exécuter
la procédure.
'-----------------------------
With ActiveSheet.PageSetup
Merci pour ton conseil ... que je n'ai pas manqué de mettre en pratique. Le résultat est effectivement très concluant. Je reste surpris de la longueur d'exécution de cette partie du code ! y-a-t-il une explication simple ... pour un néophyte en vba ?
JP
"MichDenis" a écrit dans le message de news: Op%
Au lieu de définir ta mise en page dans ta macro par ces lignes de code :
Utilise plutôt la commande Fichier / Mise en page -> lorsque cette dernière respectera tous tes désirs, sauvegarde ton fichier....la mise en page sera aussi sauvegardé avec les données ... et lorsque tu appeleras la commande worksheets("Feuil1").PrintPReview , tu auras la même présentation que celle que tu avais défini.
Attention, la mise en page est liée à une feuille précise et s'appliquera seulement à cette feuille et non à tout le classeur.
PS. Tu peux exécuter ce bout de code seule dans une procédure et enregistrer ton fichier par la suite... le résultat sera le même N'oublie pas de sélectionner la feuille désirée avant d'exécuter la procédure. '----------------------------- With ActiveSheet.PageSetup
