Discussion :

[ouellet5]

Si qqn a deja fait cela, j'aimerais avoir de l'aide. Mon probleme est que j'ai 4 feuilles excel et je selectionne des cellules dans chacune d'elle.

Situation:

J'ai deja une application qui imprime 4 feuilles de papier don chacune correspond a 1 feuille Excel. Moi je voudrait faire en sorte que c'est 4 feuilles donne 1 fichier pdf seulement. Je me demande s'il es possible de faire un range incluant des cellules de plusieurs feuilles et également les séparer par page ds mon pdf.

Je crois bien que ce projet est tre compliqué et ne sera pas faisable.

Mais si qqn se sent d'attaque pour m'aider et bien MERCI.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
Sheets("Production").Select
    If (imp_prod) Then
        Range("Production!B1:N" & Ind_Prod).Select
 
        ActiveSheet.PageSetup.PrintArea = "$B$1:$T" & Ind_Prod
        With ActiveSheet.PageSetup
            .LeftMargin = 0.8
            .RightMargin = 0.7
            .TopMargin = 2.5
            .BottomMargin = 2.5
            '.HeaderMargin =
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            .PrintQuality = 600
            .CenterHorizontally = True
            .Orientation = xlLandscape
            .PaperSize = xlPaperLetter
            .Zoom = 80
            .PrintErrors = xlPrintErrorsDisplayed
        End With
        If (imp_pdf) Then
 
           oldPrinter = Application.ActivePrinter
          Application.ActivePrinter = "Adobe PDF sur Ne01:"
          myPath = "C:\"
          myFilename = NomFichierSom & "Prod"
          ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Adobe PDF sur Ne01:"
          Application.ActivePrinter = oldPrinter
 
 
     End If
 
        'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
 
    Sheets("SommaireMat").Select
    If (imp_prod) Then
        Range("SommaireMat!B1:E" & Ind_Prod2).Select
        ActiveSheet.PageSetup.PrintArea = "$B$1:$E" & Ind_Prod2
 
        With ActiveSheet.PageSetup
            .LeftMargin = 0.8
            .RightMargin = 0.7
            .TopMargin = 2.5
            .BottomMargin = 2.5
            '.HeaderMargin =
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            .PrintQuality = 600
            .CenterHorizontally = True
            .Orientation = xlPortrait
            .PaperSize = xlPaperLetter
            .Zoom = 100
            .PrintErrors = xlPrintErrorsDisplayed
        End With
          If (imp_pdf) Then
 
           oldPrinter = Application.ActivePrinter
          Application.ActivePrinter = "Adobe PDF sur Ne01:"
          myPath = "C:\"
          myFilename = NomFichierSom & "SommMAt"
         'ActiveWindow.SelectedSheets.PrintOut PrtoFileName:=myPath & myFilename & ".ps", PrintToFile:=True
          Application.ActivePrinter = oldPrinter
 
 
     End If

[ouskel'n'or]

Avec Acrobat Distiller, il est possible d'enregistrer plusieurs feuilles en pdf.
Je donnes toujours le code pour sélectionner tes feuilles :

Code :

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

    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Regarde si sans rien changer à "SelectedSheets" tu peux lancer "l'impression"

Code :

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

ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Adobe PDF sur Ne01:"

A+

[ouellet5]

Merci , j'avais reussi a faire la meme chose avec:

Code :

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

1
2
 
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="Adobe PDF sur Ne01:"

Cependant, jai des feuilles trop longues et cela fait 2 pages ds le pdf

je vais essayer de voir si on peut jouer avec les propriétés du pdf ou de la feuille Excel.

Merci encore

[ouskel'n'or]

Tu devrais regarder du côté de PageSetup. Je te mets ce que j'ai pour la syntaxe :

Code :

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

1
2
3
4
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1   ''Définit le Nbre de pages en largeur
        .FitToPagesTall = 1     'Définit le nbre de pages en hauteur
    End With

A+

[ouskel'n'or]

Tiens, justement, à propos de ceux qui répondent pas aux réponses, tu en es où...

A+