Discussion :

[noir_desir]

J''ouvre plusieurs classeurs excel, gràce à workbooks.open "chemin" .
Parfois il se retrouve avec une chemin non valide, et donc j'ai une erreur.
Je voudrai savoir si quelqu'un connaitrai une facon de tester si le fichier existe, sinon faire autre chose (ici j'ignorer se chemin).

[zazaraignée]

Il faut vérifier si le fichier existe avant d'essayer de l'ouvrir.

Regarde dans l'aide la fonction Dir et la méthode FileExists.

[noir_desir]

L'aide excel me dit que ce mot clef n'existe pas

Quant à DIR je ne vois pas trop comment m'ne servir dans mon cas dans l'aide excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim MyFile, MyPath, MyName
' Renvoie "WIN.INI" (sur Microsoft Windows) si ce fichier existe.
MyFile = Dir("C:\WINDOWS\WIN.INI")

Je suis sous excel 2003

[Phifi]

L'aide excel me dit que ce mot clef n'existe pas

Et l'aide VB6 ?

Si c'est du VBA, tu t'es trompé de forum !

Dir, fonction


Renvoie une valeur de type String représentant le nom d'un fichier, d'un répertoire ou d'un dossier correspondant à une chaîne de recherche, à un attribut de fichier ou au nom de volume d'un lecteur.

Syntaxe

Dir[(pathname[, attributes])]

La syntaxe de la fonction Dir comprend les éléments suivants :

Élément Description
pathname Facultatif.Expression de chaîne définissant un nom de fichier. Cet argument peut préciser le répertoire ou dossier et le lecteur. Une chaîne de longueur nulle est renvoyée si l'argument pathname est introuvable.
attributes Facultatif.Constante ouexpression numérique, dont la somme définit des attributs de fichier. Si cet argument est omis, tous les fichiers sans attributs correspondant à l'argument pathname sont renvoyés.


Valeurs

L'argument attributes peut prendre les valeurs suivantes :

Constante Valeur Description
vbNormal 0 (Par défaut) Spécifie les fichiers sans attributs.
vbReadOnly 1 Spécifie les fichiers accessibles en lecture seule ainsi que les fichiers sans attributs.
vbHidden 2 Spécifie les fichiers cachés ainsi que les fichiers sans attributs.
vbSystem 4 Spécifie les fichiers système ainsi que les fichiers sans attributs.
vbVolume 8 Spécifie un nom de volume ; si un autre attribut est spécifié, la constante vbVolume est ignorée.
vbDirectory 16 Spécifie les dossiers ainsi que les fichiers sans attributs.


Note Ces constantes sont définies par Visual Basic pour Applications et peuvent remplacer des valeurs réelles partout dans votre code.

Remarques

La fonction Dir permet d'utiliser des jokers ou caractères génériques (* ou ?) pour sélectionner plusieurs fichiers..

[noir_desir]

donc j'ai du me tromper de forum .
Serait possible de le mettre dans le bon forum

[SilkyRoad]

bonjour

Quant à DIR je ne vois pas trop comment m'ne servir dans mon cas dans l'aide excel:

Code :
Dim MyFile, MyPath, MyName
' Renvoie "WIN.INI" (sur Microsoft Windows) si ce fichier existe.
MyFile = Dir("C:\WINDOWS\WIN.INI")

Tu as la réponse dans l'exemple proposé: le nom du fichier est renvoyé si le fichier existe .
MyFile renvoie une chaine vide si le fichier n'existe pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim MyFile As String
 
MyFile = Dir("C:\WINDOWS\WIN.INI")
If MyFile = "" Then MsgBox "Le fichier n'existe pas"

bonne soirée
michel

[noir_desir]

J'ai utilisé finalement ce code la :
chemin est le chemin complet du fichier +nom du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim toto As Variant
 
Set toto = CreateObject("Scripting.FileSystemObject")
 
            If toto.FileExists(chemin) Then