ouvrir un fichier word dont on ne connait qu'une partie du nom

renaud7

XLDnaute Nouveau
Salut,
je cherche à ouvrir un fichier word à partir d'une macro... jusque là pas de pb mais en fait je veux récupérer la valeur d'une cellule et je sais que le fichier word à ds son nom la valeur de cette cellule mais je ne connais pas le nom entier du fichier... je pense qu'il y a une histoire avec des * mais je galere un peu...
quelqu'un peut m'aider???

Sub OuvrirFichier()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

Set WordApp = CreateObject("word.application") 'ouvre une session Word
Set WordDoc = WordApp.Documents.Open("E:\Users\Renaud\Desktop\FiCAQ 1\fait\FICAQ.doc") 'ouvre le document Word"
WordApp.Visible = True 'Word est masqué pendant l'opération


i = 2
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
WordApp.Documents.Open ("E:\Users\Renaud\Desktop\FiCAQ 1\fait\") & Cells(i, 1) & * ".doc ")
WordDoc.Bookmarks("NumFiche").Range.Text = Cells(i, 3)

WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'Pour imprimer le doc obtenu

'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word
End Sub
 

Discussions similaires

Réponses
11
Affichages
2 K

Membres actuellement en ligne

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16