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 Fred,
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur : Ceci est valide seulement pour ledit classeur.
'------------------------ Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .FitToPagesTall = 1 .FitToPagesWide = 1 End With End With Next End Sub '------------------------
Salutations!
"Fred" a écrit dans le message de news: Bonjour, Est-il possible d'avoir l'option "ajuster" cochée par défaut au lieu de l'options "réduire/agrandir" ? si oui, comment ? merci d'avance
Bonjour Fred,
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur :
Ceci est valide seulement pour ledit classeur.
'------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
End With
Next
End Sub
'------------------------
Salutations!
"Fred" <Fred@discussions.microsoft.com> a écrit dans le message de news: 12927624-A77D-48A4-8BAF-CA7A5F0E21D9@microsoft.com...
Bonjour,
Est-il possible d'avoir l'option "ajuster" cochée par défaut au lieu de
l'options "réduire/agrandir" ?
si oui, comment ?
merci d'avance
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur : Ceci est valide seulement pour ledit classeur.
'------------------------ Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .FitToPagesTall = 1 .FitToPagesWide = 1 End With End With Next End Sub '------------------------
Salutations!
"Fred" a écrit dans le message de news: Bonjour, Est-il possible d'avoir l'option "ajuster" cochée par défaut au lieu de l'options "réduire/agrandir" ? si oui, comment ? merci d'avance
Fred
merci pour ta réponse rapide.
j'ai essayé cette manip mais sans résultat... mais parce que je maitrise mal l'outil VBA. j'ai contourner le pb en effectuant la modification dans une nouvelle feuille vierge que j'ai enregistrée au format xlt. J'appelle ce fichier systématiquement afin d'avoir la mise en page souhaitée par défaut, au lieu d'utiliser le raccourci Excel standard.
encore merci et bonne continuation
Bonjour Fred,
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur : Ceci est valide seulement pour ledit classeur.
'------------------------ Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .FitToPagesTall = 1 .FitToPagesWide = 1 End With End With Next End Sub '------------------------
Salutations!
"Fred" a écrit dans le message de news: Bonjour, Est-il possible d'avoir l'option "ajuster" cochée par défaut au lieu de l'options "réduire/agrandir" ? si oui, comment ? merci d'avance
merci pour ta réponse rapide.
j'ai essayé cette manip mais sans résultat... mais parce que je maitrise mal
l'outil VBA.
j'ai contourner le pb en effectuant la modification dans une nouvelle
feuille vierge que j'ai enregistrée au format xlt. J'appelle ce fichier
systématiquement afin d'avoir la mise en page souhaitée par défaut, au lieu
d'utiliser le raccourci Excel standard.
encore merci et bonne continuation
Bonjour Fred,
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur :
Ceci est valide seulement pour ledit classeur.
'------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
End With
Next
End Sub
'------------------------
Salutations!
"Fred" <Fred@discussions.microsoft.com> a écrit dans le message de news: 12927624-A77D-48A4-8BAF-CA7A5F0E21D9@microsoft.com...
Bonjour,
Est-il possible d'avoir l'option "ajuster" cochée par défaut au lieu de
l'options "réduire/agrandir" ?
si oui, comment ?
merci d'avance
j'ai essayé cette manip mais sans résultat... mais parce que je maitrise mal l'outil VBA. j'ai contourner le pb en effectuant la modification dans une nouvelle feuille vierge que j'ai enregistrée au format xlt. J'appelle ce fichier systématiquement afin d'avoir la mise en page souhaitée par défaut, au lieu d'utiliser le raccourci Excel standard.
encore merci et bonne continuation
Bonjour Fred,
Essaie ceci en copiant ce qui suit dans le ThisWorkbook de ton classeur : Ceci est valide seulement pour ledit classeur.
'------------------------ Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .FitToPagesTall = 1 .FitToPagesWide = 1 End With End With Next End Sub '------------------------
Salutations!
"Fred" a écrit dans le message de news: Bonjour, Est-il possible d'avoir l'option "ajuster" cochée par défaut au lieu de l'options "réduire/agrandir" ? si oui, comment ? merci d'avance
