Ouvrir differents fichiers Word avec VBA

Version imprimable

15/11/2007, 15h50
karina218

Ouvrir differents fichiers Word avec VBA

Bonjour!~
Je suis nouvelle en Excel VBA et j'ai un probleme un peux difficil de resoudre.
je vais essayer de l'expliquer le plus clairement possible (Mon Francais n'est pas tres bien)

Dans le cellule A1 je dois mettre un variable que peut changer a main: ex. 1880 HK ou SINE SP etc.
D' autre cote, j'ai un dossier que contenir plusier .doc chaque sous le nom qui contenir le variable dans le celule. ex:
companyxyz 1880 HK.doc
ou
companyabc SINE SP.doc etc. (il y a une centaine)

Alors, je veux un fonction VBA que me permet ouvrir le fichier word qui contient le mot qu' est dans le cellule A1.

C'est a dire que si en le cellule A1 il a le mot: 1234, le macro dois me permetre de chercher dans le dossier et d'ouvrir le .doc : en ce cas: companyxer 1234 FR.doc

est- ce que il y a de macro qui fait ça?

Merci beaucoup!!~~

bonjour

j'espère que cet exemple pourra t'aider:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim Repertoire As String, Fichier 'As String
Dim WordApp As Object, WordDoc As Object
 
'Repertoire contenant les fichiers
Repertoire = "C:\Documents and Settings\mimi\dossier\excel\"
If Range("A1") = "" Then Exit Sub
 
'Vérifie si la chaine existe dans le repertoire
Fichier = Dir(Repertoire & "*" & Range("A1") & "*")
If Fichier = "" Then
    MsgBox "Pas de fichier correspondant"
Else
    'Vérifie s'il s'agit d'un document Word
    If Right(Fichier, 4) = ".doc" Then
        'Ouvre le document
        Set WordApp = CreateObject("Word.Application")
        WordApp.Visible = True
        Set WordDoc = WordApp.Documents.Open(Repertoire & Fichier)
        '
        '...
        '
    End If
End If

bonne soirée
michel

20/11/2007, 10h10
karina218

Merci beaucoup!~~ Il marche tres bien!~