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.
Merci d'avance pour votre aide.
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
Partager