Vérifier la présence d'un fichier

  • Initiateur de la discussion Initiateur de la discussion LaurentG
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

LaurentG

XLDnaute Occasionnel
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 :

Code:
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
 
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. 😉

Code:
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,

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
511
Retour