Bonjour à tous,
Pour faire des restitutions sur papier de données je suis amené à définir une zone d'impression dans des fichiers.xls
Problématique:
Les fichiers.xls à traiter changent de taille d'une fois à l'autre et par voie de conséquence la zone d'impression aussi.
J'ai enregistré un code que voici.
Sub zone_impression()
Range("A12").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A$12:$D$30"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Cependant "$A$12:$D$30" pour un fichier peut devenir "$A$12:$D$45" pour un autre fichier.
J'ai essayé --> ActiveSheet.PageSetup.PrintArea = ""
Cela me sélectionne toutes les données de la feuille active, ce n'est pas le but.
Merci à qui prendra un peu de son temps pour m'aider.
En pièce jointe, type de fichier d'où je fais des restitutions.
Bonne soirée.
Joël
Pour faire des restitutions sur papier de données je suis amené à définir une zone d'impression dans des fichiers.xls
Problématique:
Les fichiers.xls à traiter changent de taille d'une fois à l'autre et par voie de conséquence la zone d'impression aussi.
J'ai enregistré un code que voici.
Sub zone_impression()
Range("A12").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = "$A$12:$D$30"
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Cependant "$A$12:$D$30" pour un fichier peut devenir "$A$12:$D$45" pour un autre fichier.
J'ai essayé --> ActiveSheet.PageSetup.PrintArea = ""
Cela me sélectionne toutes les données de la feuille active, ce n'est pas le but.
Merci à qui prendra un peu de son temps pour m'aider.
En pièce jointe, type de fichier d'où je fais des restitutions.
Bonne soirée.
Joël
Pièces jointes
Dernière édition: