Discussion :

[Mr_Exal]

Bonjour, je dois me mettre à VBA pour ma boîte, seulement, je n'en ai jamais fait ...

J'ai un document contenant plusieurs feuilles qui contiennent elles mêmes plusieurs pages.
On me demande la possibilité d'imprimer plusieurs pages de plusieurs feuilles les unes à la suite des autres.
Par exemple : Feuille 1 page 8, puis feuille 3 page 27, puis feuille 512 page 1, etc

J'e me suis servi de l'excellent Tutoriel trouvé sur votre site ici : http://heureuxoli.developpez.com/office/word/doc2pdf/

J'ai donc importé le formulaire fourni par PDFCreator, puis j'ai coché la référence PDF Creator, ensuite j'ai créé mon bouton et inséré le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Load frmPDFCreator
frmPDFCreator.Show

Donc voilà, le formulaire se charge mais j'aimerais offrir la possibilité d'imprimer telle ou telle page en particulier d'une feuille en particulier (en fait c'est un seul document éclaté en plusieurs feuilles excel ...) et je n'ai strictement aucune idée d'où partir mis à part que je vais travailler sur la partie suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
If OptionButton2.Value = True Then
  With PDFCreator1
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = ActiveWorkbook.Path
   Debug.Print outName & "-" & ActiveSheet.Name
   .cOption("AutosaveFilename") = outName & "-" & ActiveSheet.Name
   .cOption("AutosaveFormat") = 0                            ' 0 = PDF
   .cClearCache
  End With
  ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
  Do Until PDFCreator1.cCountOfPrintjobs = 1
   DoEvents
   Sleep 1000
  Loop
  Sleep 1000
  PDFCreator1.cPrinterStop = False
 End If

.

Merci à ceux qui sauront m'aiguiller.

[kiki29]

Salut, à partir de la version 2007 Office intègre en natif le format PDF, donc l'usage de PdfCreator ou autre devient souvent inutile, cependant tu peux jeter un œil sur http://www.developpez.net/forums/d43...bat-distiller/ à tout hasard ( en bas du Post #1 )

Un exemple très sommaire, à toi de l'adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Tst()
Dim Ar(2) As String
 
    Ar(0) = Feuil1.Name
    Ar(1) = Feuil2.Name
    Ar(2) = Feuil3.Name
    Application.ScreenUpdating = False
    Sheets(Ar).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Essai.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
    Sheets("Feuil1").Select
    Application.ScreenUpdating = True
End Sub

[Mr_Exal]

Merci Philippe, mais je n'y comprends vraiment rien du tout ...

Ce que je voudrais en fait c'est que quand j'appuie sur un bouton (en l'occurrence le bouton du mois de mars par exemple (je vais faire un bouton par mois)). Il imprime certaines pages de certaines feuilles, pas les feuilles complètes.

Par exemple :


On commence à la feuille 1 page 1 2 3

On passe à la feuille 2 pages 3 5 7

On passe à la feuille 5 pages 7 9 3

On passe à la feuille 1 page 8 5 3

Je ne vois absolument pas comment faire.

[kiki29]

Salut, l'exemple sous entend que la mise en page et donc la zone à imprimer pour chaque feuille a été sélectionnée avant de lancer l'impression Pdf

[Mr_Exal]

Le fonctionnement voulu nécessite une impression automatique et non une impression par sélection (si c'est ce que tu veux dire par "l'exemple sous entend que la mise en page et donc la zone à imprimer pour chaque feuille a été sélectionnée avant de lancer l'impression Pdf").

[kiki29]

Salut, as-tu seulement essayé le code fourni ?
De tout façon il faut que la mise en page ait été faite pour toutes les feuilles avant de lancer une impression, ensuite il y a des choses du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = "$A$1:$G$33"

[Mr_Exal]

Je n'ai pas encore testé je te redirai ça lundi si jamais je galère, merci pour tout en tous cas.

[Mr_Exal]

Je viens d'essayer. Cela fonctionne seulement il me sort les deux feuilles telles qu'elles l'une à la suite de l'autre et non en forme.
Dans mon fonctionnement je ne veux pas de sélection. Je voudrais que tout soit fait automatiquement.

En gros la personne appuie sur un bouton
la macro sélectionne feuil2 page1
puis feuil2 page 2
puis feuil2 page 3
(et ainsi de suite pour toutes mes pages)
Puis elle colle les pages les unes à la suite des autres et ensuite exporte tout ça en pdf.
C'est possible sans intervention de l'utilisateur ou il faut obligatoirement que l'utilisateur intervienne pour l'impression?

[kiki29]

Salut, bis repetita : l'impression dépend de la mise en page effectuée avant l'impression ,si cette mise en page n'a pas été effectuée ( choix des pages à imprimer, format etc ) l'impression se fera avec une mise en page par défaut

[Mr_Exal]

Si j'ai bien compris cette mise en page s'effectue au sein de la page elle même (et non dans la macro comme je voulais le faire).

Seulement, je ne comprends pas comment je peux faire pour imprimer certaines zones et non d'autres via la mise en page (je peux sélectionner certaines zones de ma feuille grâce aux numéros de cellulles et de colonnes pour les imprimer, mais comment faire pour savoir que ça sera la première zone à imprimer, puis la deuxième (car il me faut les pages dans un ordre précis)), passer à ma deuxième feuille, imprimer certaines pages de cette deuxième feuille, puis repasser à la première feuille, imprimer, puis repasser à la deuxième, etc, etc.

Ma mise en page c'est un croisement feuille1, feuille2, feuille1, feuille2, etc.

Je ne sais pas si je suis très clair dans ce que j'exprime.

[kiki29]

re, pour cela tu as l'enregistreur de macros, voir exemple plus haut

[Mr_Exal]

J'ai enregistré les zones à imprimer.

Mais je ne vois même pas quelle forme de code utiliser, ni où se place ActiveSheet.PageSetup.PrintArea ...

C'est la première fois que je fais du VBA (et à mon avis la dernière est pas loin).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub ImpressionJanvier()
    Dim Ar(1) As String
    Dim Impression(11) As String
 
    Impression(0) = "$A$1:$G$164"
    Impression(1) = "$A$2:$A$X40"
    Impression(2) = ""
    Impression(3) = ""
    Impression(4) = ""
    Impression(5) = ""
    Impression(6) = ""
    Impression(7) = ""
    Impression(8) = ""
    Impression(9) = ""
    Impression(10) = ""
    Impression(11) = ""
 
 
    Ar(0) = "entête bilans janvier"
    Ar(1) = "bilans janvier"
    Application.ScreenUpdating = False
 
    Sheets(Ar).Select
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Bilan.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
 
End Sub

Pour l'instant j'en suis "là", soit nul part.

Le tableau Impression va me servir à mettre les zones à imprimer.

Bon vu que j'ai pas trouvé comment faire autrement je vais générer un pdf par zone d'impression.

J'ai donc ce code ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub ImpressionJanvier()
    Dim Feuille As String
    Dim Impression(1 To 12) As String
    Dim i As Integer
 
    Impression(1) = "$A$2:$G$164"   'pages 1 à 3 feuille entête
 
    Impression(2) = "$A$2:$AX$40"   'pages 1 à 3 feuille bilans
    Impression(3) = "$A$41:$BO$80"   'pages 5 à 8 feuille bilans
    Impression(4) = "$A$81$AX$120"   'pages 9 à 11 feuille bilans
    Impression(5) = "$A$120$AX$156"   'pages 13 à 15 feuille bilans
 
    Impression(6) = "$A$165$G$219"   'page 4 feuille entête
    Impression(7) = "$H$57$N$164"   'pages 6 à 7 feuille entête
 
    Impression(8) = "$A$11$BO$80"   'pages 5 à 8 feuille bilans
 
    Impression(9) = "$H$165$N$219"   'page 8 feuille entête
    Impression(10) = "$O$57$U$164"   'pages 10 à 11 feuille entête
 
    Impression(11) = "$A$81$AX$120"   'pages 9 à 11 feuille bilans
    Impression(12) = "$A$120$AX$156"   'pages 13 à 15 feuille bilans
 
 
    For i = 1 To 12
    If (Impression(i) = "$A$2:$G$164" Or Impression(i) = "$A$165$G$219" Or Impression(i) = "$H$57$N$164" Or Impression(i) = "$H$165$N$219" Or Impression(i) = "$O$57$U$164") Then
     Feuille = "entête bilans janvier"
    Else
     Feuille = "bilans janvier"
    End If
    Sheets(Feuille).PageSetup.PrintArea = Impression(i)
    Sheets(Feuille).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Zone" & i & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Next i
 
 
 
 
End Sub

Seulement lors de la génération du pdf zone4 la macro plante, avec une erreur 1004, mes coordonnées sont pourtant bonnes.

Erreur de gros noob j'ai zappé les : pour les zones de sélection.

Par contre une piste pour les "fusionner" maintenant ?

[kiki29]

re, le principe de la fusion est énoncé dans le code donné plus haut via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(Ar).Select

avant le lancement de l'impression

[Mr_Exal]

Bon, finalement ça va pas le faire (il faut que la zone imprimable soit dynamique et retrouvée grâce au numéro des pages) de plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(MaFeuille).Select

ne fusionne pas du tout les pdf, je vais passer par PDF Creator ça sera moins chiant et plus simple. Merci quand même.

[kiki29]

Re, effectivement cela ne fusionnera rien du tout comme expliqué plus haut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Ar(0) = Feuil1.Name
    Ar(1) = Feuil2.Name
    Ar(2) = Feuil3.Name
 
    Sheets(Ar).Select
    ActiveSheet.ExportAsFixedFormat .....

[Mr_Exal]

Je suis toujours à la recherche d'une personne pouvant m'aider avec PDFCreator et VBA, ce que je veux faire étant impossible via le code de kiki29. Merci.