Anthonymctm
XLDnaute Occasionnel
Bonjour à tous,
Sur mon fichier j'ai une dizaine d'onglets, la plupart me servent à faire des calculs et 3 d'entre-eux pour en faire la synthèse et récapituler tout ça proprement.
J'aimerais pouvoir imprimer / enregistrer en format PDF/Word ces 3 onglets (enfin uniquement la zone sélectionnée en mise en page).
Pour imprimer j'ai trouvé ce bout de code qu'un utilisateur m'a amélioré ou on prenait le contenu de Z1 pour savoir si on selectionne ou pas l'onglet, mais en soit, comme 'jen ai que 3 et que leur titre ne changeront jamais, je peux écrire leur titre directement.
Si je fais imprimer avec PDF créator, il me l'imprime en 2 fois et j'ai deux fichier PDF, un peu compliqué à fusionner par la suite, faudrait que ça puisse se faire en une seule fois.
La cérise sur le gateau serait de pouvoir faire un export sur Word.
Voilà, qu'en pensez-vous ?
Sur mon fichier j'ai une dizaine d'onglets, la plupart me servent à faire des calculs et 3 d'entre-eux pour en faire la synthèse et récapituler tout ça proprement.
J'aimerais pouvoir imprimer / enregistrer en format PDF/Word ces 3 onglets (enfin uniquement la zone sélectionnée en mise en page).
Pour imprimer j'ai trouvé ce bout de code qu'un utilisateur m'a amélioré ou on prenait le contenu de Z1 pour savoir si on selectionne ou pas l'onglet, mais en soit, comme 'jen ai que 3 et que leur titre ne changeront jamais, je peux écrire leur titre directement.
VB:
Sub PrintingChoose()
Dim ws As Worksheet, n%
For Each ws In Worksheets
If ws.Range("Z1") = 1 Then
n = n + 1
ws.Select n = 1
End If
Next
ActiveWindow.SelectedSheets.PrintPreview
End SubSi je fais imprimer avec PDF créator, il me l'imprime en 2 fois et j'ai deux fichier PDF, un peu compliqué à fusionner par la suite, faudrait que ça puisse se faire en une seule fois.
La cérise sur le gateau serait de pouvoir faire un export sur Word.
Voilà, qu'en pensez-vous ?