Test existence fichier VB

piegre · 14 Octobre 2015

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 :

Code:

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 · 14 Octobre 2015

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 · 14 Octobre 2015

Re : Test existence fichier VB

Ça marche je vais regarder.

piegre · 14 Octobre 2015

Re : Test existence fichier VB

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

Code:

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

Test existence fichier VB

piegre

XLDnaute Junior

david84

XLDnaute Barbatruc

piegre

XLDnaute Junior

piegre

XLDnaute Junior

Discussions similaires