Pb fonction Dir avec Excel 2007

MJ13

XLDnaute Barbatruc

• 27 Janvier 2010

• #2

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.

 

Dernière édition: 27 Janvier 2010

Vote positif 0 Vote négatif

F

fredetanne

XLDnaute Nouveau

• 27 Janvier 2010

• #3

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
--------------------

 

Vote positif 0 Vote négatif

F

fredetanne

XLDnaute Nouveau

• 27 Janvier 2010

• #4

Re : Pb fonction Dir avec Excel 2007

Petit oubli,

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 27 Janvier 2010

• #5

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).

 

Dernière édition: 27 Janvier 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Janvier 2010

• #6

Re : Pb fonction Dir avec Excel 2007

Bonjour Anne, Michel

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

F

fredetanne

XLDnaute Nouveau

• 27 Janvier 2010

• #7

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

 

Vote positif 0 Vote négatif