Discussion :

[doudoum17]

Bonjour,
Je suis nouveau sur le site et novice dans le VBA. Dans le cadre professionnel j'ai créé un fichier excel avec plusieurs feuilles:


L'idée est quand je mets 1 comme sur la photo la macro imprime les feuilles correspondantes. Je souhaiterais maintenant faire un fichier PDF est-ce possible ?

Ci-dessous le code pour l'impression qui marche:

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
Sub Imprime_Feuilles()
 
' Macro Imprime_Feuilles>
' par  Le CFO masqué
 
Dim vararray() As String
Dim csname As Integer, c As Integer
Dim countarr As Integer, r As Integer
Dim sname As Worksheet
 
'set up location and counter variables
    csname = Range("A4").Column
    c = Range("C4").Column
    Set sname = ActiveSheet
    r = Range("C4").Row
    countarr = 0
 
'loop in sheets list
    While sname.Cells(r, csname) <> ""
 
'add to array if flag is on
        If sname.Cells(r, c) = 1 Then
            ReDim Preserve vararray(countarr)
            vararray(countarr) = sname.Cells(r, csname).Value
            countarr = countarr + 1
        End If
        r = r + 1
    Wend
 
  ActiveSheet.PrintOut
  Sheets(vararray).Select
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  sname.Activate
 
    End Sub

[Philippe Tulliez]

Bonjour,
Voici la ligne de commande que j'utilise pour exporter le classeur en pdf où obj est une variable objet de type Workbook soit ThisWorkbook soit ActiveWorkbook ou encore Workbooks("Nom_du_fichier")

Code :

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

obj.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullName

[doudoum17]

Bonjour Philippe,
Merci pour ta réponse. Mais je ne cherche pas à exporter en PDF tout le classeur, juste les feuilles 1,2 et 3 là où il y a le 1 dans le tableau. Comme la macro pour l'impression mais en PDF.

A+

[Philippe Tulliez]

Bonjour,
Oui obj peut également être une suite de feuille

J'ai dû réalisé pour un client un document pdf utilisant quelques feuilles d'un classeur mais dans un ordre différent de celui du classeur d'origine donc soit, j'effectuais un tri des feuilles dans un autre ordre, soit j'exportais les feuilles vers un nouveau classeur. C'est cette dernière option que j'ai choisie

Dans le code ci-dessous, la variable tableau tbl contient le nom des feuilles à copier

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
  ' Copie des feuilles à exporter si plus d'1 + définition de la variable obj (soit workbbok soit sheet
  If UBound(tbl) Then
     For s = 0 To UBound(tbl)
       If s Then
          With ActiveWorkbook
            oWorkbook.Sheets(tbl(s)).Copy After:=.Worksheets(.Worksheets.Count)
          End With
        Else
          oWorkbook.Sheets(tbl(s)).Copy
       End If
     Next
     Set obj = ActiveWorkbook
   Else
     Set obj = oWorkbook.Sheets(tbl(0))
  End If
  ' Exportation des feuilles
  obj.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullName
  If UBound(tbl) Then obj.Close SaveChanges:=False
  Set obj = Nothing

[doudoum17]

Salut Philippe,
N'oublies pas suis pas doué en codage , faut recréer une macro ou je peux l'intégrer dans mon code d'impression et où ?
Dois-je déclarer tbl ?
Merci à toi

[Philippe Tulliez]

Bonjour,

Dois-je déclarer tbl ?

Pour s'éviter des problèmes de maintenances et pour déboguer facilement, il faut toujours déclarer ses variables

N'oublies pas suis pas doué en codage , faut recréer une macro ou je peux l'intégrer dans mon code d'impression et où ?

Organisation :
Une table de mapping (Tableau structuré) contenant le nom des feuilles en colonne 1, le numéro d'ordre de sortie (page 1, 2, etc.) en colonne 2
Le classeur source contenant les feuilles
Le classeur cible qui contiendra les feuilles à exporter en pdf dans l'ordre souhaité

Les étapes de programmation

1. Chargement de la table de Mapping (Nom de la feuille et n° d'ordre) dans une variable tbl
2. Tri de cette table par l'ordre de sortie
3. Copie des feuilles vers le classeur cible
4. Exportation vers pdf

A lire éventuellement

1. Utiliser les variables tableaux en VBA Excel
2. Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
3. Excel: Les tables de données en VBA

[doudoum17]

Salut, super merci j'ai du boulot devant moi lol, je reviens vers toi si j'ai des questionsssssss j'en aurais sûrement.
A+

[Philippe Tulliez]

Bonjour,
Si l'ordre des feuilles à exporter est le même que celui du classeur voici sans doute un code plus simple à comprendre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub t_1()
  Dim obj As Object
  Dim tbl As Variant
  Dim FullName As String
  tbl = Array("Devis", "Electricité", "Menuiserie")
  Set obj = Worksheets(tbl)
  FullName = ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & " - Devis 2"
  ' obj(1) pour l'exemple = feuille "Devis"
  obj(1).ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullName
  Set obj = Nothing
End Sub