aller prélever des donner dens un Fichier inexistant

Damarice · 26 Juin 2008

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 · 26 Juin 2008

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 · 26 Juin 2008

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 · 26 Juin 2008

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

Bonjour

Avec on error

Code:

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

Larson · 27 Juin 2008

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

aller prélever des donner dens un Fichier inexistant

Damarice

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Damarice

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

Larson

XLDnaute Junior

Discussions similaires