aller prélever des donner dens un Fichier inexistant

[Damarice]

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

 

[tototiti2008]

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

 

[Damarice]

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

désolé ca ne marche pas mais je pense que c'est surement parce que je ne comprend pas comment marche ce code. Si tu pouvais me l'expliquer un peu.

 

[MJ13]

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

Bonjour

Avec on error

sub macro
On error goto TraiteErreur
 
'Ton code
 
TraiteErreur:
 
'code à rajouter en fonction du code
 
end sub

 

[Larson]

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

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

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