Sélection d'objet multiple
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:
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.
