Vérifier la présence d'un fichier

[LaurentG]

Bonjour,

J'ai besoin d'un macro qui vérifie l'existence d'un fichier.

En fait, j'ouvre un document word. C'est ce document dont je dois vérifier l'existence. J'avais fait de la façon suivante :

Set WordApp = New Word.Application
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open('C:\\section6.doc')
If WordDoc Is Nothing Then
MsgBox ('Fichier non existant')
End If

Mais il bloque avant le If.

Quelqu'un peut m'aider?

Merci beaucoup

Laurent

 

[porcinet82]

Salut Laurent,

Je te propose un code utilisé l'an dernier lorsque j'avais réalisé ma première petite appli en vba, c'est d'ailleur a ce moment que j'ai découvert ce merveilleu forum dont je ne peux plus me passer aujourd'hui.

Sub Ouvrir_fichier_word()
    Set wrdApp = CreateObject('Word.Application')
    On Error GoTo Line1
    Set wrdDoc = wrdApp.Documents.Open('C:\\Documents and Settings\\raymrom\\Bureau\\x.doc')
    wrdApp.Visible = True
    Exit Sub
Line1:
    MsgBox 'Le fichier 'x' doit être placé dans le répertoire 'C:\\x.doc'', vbOKOnly + vbExclamation, 'Attention'
End Sub

J'espère que ca te conviendra,

@+

 

[MichelXld]

bonjour Laurent , bonjour cher Porcinet82

tu trouveras d'autres exemples dans ce lien ,pour tester si un fichier existe

Lien supprimé


bonne soirée
MichelXld

 

[LaurentG]

Bonsoir,

Merci pour vos réponses. Je n'ai pas encore eu le temps de tester, mais je pense que je devrais pouvoir m'en sortir avec ce que vous m'avez donné.

Merci

Laurent