Discussion :

[karina218]

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!!~~

[SilkyRoad]

bonjour

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

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
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

[karina218]

Merci beaucoup!~~ Il marche tres bien!~