Bonjour,
Je vous sollicite car je cherche a créer une macro Excel qui permets de compiler plusieurs fichiers: des feuilles de mon classeur, un document Word et de nouveau des feuilles et un pdf. Je souhaiterai compiler tout ces fichiers et créer un pdf, et donc je vous copie la macro que j'ai commencé jusqu'a la sélection de plusieurs document que je n'arrive pas à écrire.
Mon problème concerne la sélection multiple d'objet, je ne sais pas comment faire pour tous les sélectionner afin de créer le pdf.

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
 
Sub pdf()
 
    Dim AwKN As String
    Dim NomFichier As String
 
    AwKN = ActiveWorkbook.Name
    SplitAwKN = Split(AwKN, ".")
    NomFichier = SplitAwKN(0)
 
        '---ouvre la note technique ---
        'necessite d'activer la reference Microsoft Word xx.x Object Library
        Dim appWrd As Word.Application
        Dim docWord As Word.Document
        Dim Fichier As String
 
        'recuper le chemin du doc Word
        Fichier = Worksheets("Variables").Cells(7, 2)
 
        Set appWrd = CreateObject("Word.Application") 'creation session Word
        appWrd.Visible = False 'pour que word reste masqué pendant l'operation
        Set docWord = appWrd.Documents.Open(Fichier)
 
    ' ---selection des données a compiler---
  Sheets (Array("Page de garde", "note_technique")) & docWord.Select
 
  SaveAsPDF NomFichier & " " & Date 'ActiveWorkbook.Name permet de recuper le non du fichier
Merci d'avance pour votre aide.