Fs.FileExists ==> pour excel 97

[Thomas®]

Bonjour le forum,

j'ai vu dans les postes de ces dernier jour une commande

If Fs.FileExists('c:.........doc') = True Then _

sous excel 97 j'ai un message d'erreur.

je pense que c'est là mon problème.

si quelqu'un connait un code similaire pour excel 97 ?

D'avance merci
Thomas®

 

[PascalXLD]

Bonjour

As-tu bien copier la fonction ??

Regarde ce fil en archives


Lien supprimé

Attention ne prends pas le premier post il y a une erreur de copie prends le 2ème avec le rectificatif (de 15:20)

Bon courage

Message édité par: Pascal76, à: 31/05/2005 11:13

 

[Thomas®]

Bonjour Pascal76, le forum,

merci pour ta reponse

grace à ce lien je n'ai plus de message d'erreur mais il ne se passe rien.

j'ai modifier mon code pour faire cela

If FileExists(Filesss & Nom1 & '.doc') = True Then
Label102.Visible = True
Else
Label102.Visible = False
End If

et j'ai copier ceci dans un module

Function FileExists(FileName as string) as Boolean
FileExists=Dir(FileName)<>''
end Function

Peux tu me dire si c'est faisable

D'avance merci
Thomas&reg;

 

[PascalXLD]

re

Il faut lui indiquer le path également

quelle est la valeur de Filesss et de Nom1 ??

 

[Thomas®]

Re,

Merci pascal76,

j'ai trouvé en fait ta solution etait la bonne.

mon problème etait que effectivement filesss = l'adresse (qui ce trouve dans une feuille excel) mais dans filessse il manquait le '/'

franchement un grand merci
Thomas&reg;