Pb fonction Dir avec Excel 2007

[fredetanne]

Bonjour à tous,

J'utilise la fonction Dir pour vérifier l'existance d'un fichier dans Excel 2007, cela fonction très bien sur mon poste et lorsque je lance cette macro sur un autre poste avec également un office 2007, la fonction dir fonctionne mail elle renvoie toujours "", même si le fichier existe.
Est-ce que vous auriez déjà rencontré des problèmes d'exécution de code entre 2 postes avec Excel 2007

Merci d'avance de vos réponses

Anne

 

[MJ13]

Re : Pb fonction Dir avec Excel 2007

Bonjour Anne

Il serait préférable de montrer ta macro pour que quelqu'un puisse t'aider plus facilement.

 

[fredetanne]

Re : Pb fonction Dir avec Excel 2007

Je ne pense pas que le pb vienne du code, puisque cela fonctionne sur mon poste (et pas sur l'autre) mais c'est vrai que cela peut être lié au code que j'utilise.
Donc voici une version un peu simplifié de ce que j'utilise
--------------------
vNomfic="toto.xls"
If Dir(ThisWorkbook.Path & "\" & vNomFic) = "" Then
msgbox "Fichier non trouvé"
else
msgbox "OK"
End If
--------------------

 

[fredetanne]

Re : Pb fonction Dir avec Excel 2007

Petit oubli,

Merci Michel ... Et moi, c'est Anne, pas Fred 😉

 

[MJ13]

Re : Pb fonction Dir avec Excel 2007

Re Anne

Merci pour le code.

Sur Xl2003 et XL2007, cela à l'air de fonctionner normalement.

Sinon, voir avec les références cochées (Alt+F11) ou les versions d'Excel (?) ou de Windows (? dans l'explorateur).

 

[Pierrot93]

Re : Pb fonction Dir avec Excel 2007

Bonjour Anne, Michel

essaye peut être ainsi, à tout hasard...

If Dir(ThisWorkbook.Path & "\" & vNomFic[COLOR="Blue"][B], vbDirectory[/B][/COLOR]) = "" Then

bon après midi
@+

 

[fredetanne]

Re : Pb fonction Dir avec Excel 2007

Merci Michel et Pierrot pour vos réponses,

Je testerai vos solutions sur l'autre poste quand j'y aurai accès.

Anne