aller prélever des donner dens un Fichier inexistant

Damarice

XLDnaute Nouveau
Salut le forum

Voilà j'ai coder un programme qui va chercher des données dans d'autre fichiers excel .Il fonctionne bien sauf quand l'un ou plusieurs des documents en question ne sont pas à leur place ou n'existent tous simplement pas, là il plente .Normal me direz vous alors j'ai voulu ajouter un if pour éviter qu'il aille chercher dans des documents si certaine condition sont remplis , le probléme c'est que je n'ai trouvé aucune condition à mettre dans ce if car l'abscence des documents excel ou mon prog va chercher des données est totalement imprevisible .Alors Je me suis demender s'il n'existerai pas une syntaxe du genre : If C: Doc.xls/Mes_document/Compta existe Then, En gros si le document existe bien alors tu vas chercher les données sinon tu fait rien.

Merci d'avance :D
 

tototiti2008

XLDnaute Barbatruc
Re : aller prélever des donner dens un Fichier inexistant

Bonjour Damarice

essaye avec:

Dim FSO

Set FSO = CreateObject("Scripting.FileSystemObject")
if FSO.FolderExists("C: Doc.xls/Mes_document") then
if FSO.FileExists("C: Doc.xls/Mes_document/Compta.xls") then
 

Larson

XLDnaute Junior
Re : aller prélever des donner dens un Fichier inexistant

Bonjour,
pour tester l'existance d'un fichier, rien ne vaut la simplicité :)

Code:
if Dir("c:toto.xls")="" then msgbox "le fichier est introuvable!"

Si le fichier est trouvé, la chaine renvoyée n'est pas nulle.

Cela doit repondre a ton soucis
 

Discussions similaires

Statistiques des forums

Discussions
312 848
Messages
2 092 786
Membres
105 534
dernier inscrit
EmilieG60