Test existence fichier VB

[piegre]

Bonjour à tous,

J'ai un fichier d'importation de donnée en VBA.Dans une partie de mon code, je dois importer des fichiers .txt avec un nom de fichier précis, cependant les fichiers ne sont pas toujours présent et le programme doit continuer quand même.

J'importe mon fichier de cette manière :

Set classeursourcePLAN1 = Application.Workbooks.Open("Q:\Specifications\" & numspe1 & "_Gamme IR2\Données_Usinage\" & numspe1 & "_Plancher_Usinage_Feuille1_Vue de mise en plan1_1.txt", , True)

Je pense qu'avec un IF cela pourrait être possible mais j'arrive jamais à adapter pour que cela fonctionne.

Avez vous des idées ?

 

[david84]

Re : Test existence fichier VB

Bonjour,
tu peux tester la validité du chemin du fichier avant de l'ouvrir.
Pour cela regarde l'utilisation de la fonction DIR.
Si le fichier n'existe pas DIR renvoie une chaîne vide.
A+

 

[piegre]

Re : Test existence fichier VB

Ça marche je vais regarder.

 

[piegre]

Re : Test existence fichier VB

C'est bon ça marche, j'ai fait ça :

If Dir("Q:\Specifications\" & numspe1 & "_Gamme IR2\Données_Usinage\" & numspe1 & "_Pavillon_Usinage_Feuille1_Vue de mise en plan1_1.txt", vbNormal) <> "" Then
    Set classeursourcePAV = Application.Workbooks.Open("Q:\Specifications\" & numspe1 & "_Gamme IR2\Données_Usinage\" & numspe1 & "_Pavillon_Usinage_Feuille1_Vue de mise en plan1_1.txt", , True)
    Set classeurDestination = ThisWorkbook
    classeursourcePAV.Sheets(1).Range("A1:A100").Cells.Copy classeurDestination.Sheets("PAV").Range("D1")
    classeursourcePAV.Close False
    Else
End If