voila j'essai de savoir si un fichier existe et on m'a donné ça:
Citation :
FileExists = ((GetAttr("./1 DIAGNOSTIC AMIANTE.xls" ) And vbDirectory) = 0)
If FileExists = True Then
MsgBox ("yes !!!!" )
End If
|
mais le problème c'est qu'il ne fonctionne qu'avec un chemin absolu alors que certaine fonctionne marche avec un chemin relatif... et étant plusieur à utiliser mon programme et bien le chemin absolu n'est jamais le même. j'ai essayé avec ./nomdufichier mais c pareil ca reste du relatif...
don g trouvé ca:
Citation :
Dim fso As FileSystemObject Dim fd As Folder
Set fso = New FileSystemObject Set fd = fso.GetFolder("chemin de ton dossier" )
|
mais m^me en ajoutant la librairie dans mes référence il me dit bibliotheque introuvable...
je travail sous excel je fais outils>>réf.>> et je coche la librairie??
si qqun pouvait me dire ce qui en pense et m'aider ca serait cool.merci
Message édité par OyT le 29-07-2005 à 11:34:48
---------------
yop yop