Fichier existe t-il ou pas

[pierrof]

Bonjour forum
J'aimerai au moyen d'une macro tester si un fichier existe ou pas

emplacement du fichier: 'O:\Production\Données de production\Base de données\

je voudrai tester si le fichier existe dans ce repertoire alors faire macro1 sinon faire macro2

Merci d'avance pour votre aide😉

 

[Itori]

Re : Fichier existe t-il ou pas

tu peux utiliser une fonction telle que celle ci :

Function FileExists(S As String) As Boolean
FileExists = Dir(S) <> ""
End Function

ensuite tu appelle ta fonction avec ton chemin et nom de fichier, tu as true si il existe, false sinon

 

[pierrof]

Re : Fichier existe t-il ou pas

bonjour itori
tu peux plus détaillé car je vois pas comment faire
merci

 

[Itori]

Re : Fichier existe t-il ou pas

tu met la fonction que je t'ai donné dans un module.

ensuite lorsque tu as besoin de testé l'existance de ton fichier tu fais :
if FileExists("O:\Production\Données de production\Base de données\Monfichier.xls") then
call mamacro1
else
call mamacro2
end if

 

[ChTi160]

Re : Fichier existe t-il ou pas

Salut pierrof
Bonjour Itori
Bonjour le Forum
ARFFFF pas vu la réponse de Itori excuses !!!!!!!!!!!!!!
je me permets,pour imager la réponse de Itori

Sub test() 'ici on va tester si le fichier TEST.xls existe à la racine de C
Dim RepertoireStockage As String

            RepertoireStockage = "C:\" & "TEST.xls"
    MsgBox FileExists(RepertoireStockage) [COLOR=Green]'ici il me renvoie Vrai ou Faux [/COLOR]
End Sub

Function FileExists(S As String) As Boolean
FileExists = Dir(S) <> ""    [COLOR=Green]'renvoie Vrai ou Faux[/COLOR]
End Function

Donc il suffit de faire le test et d'exploité le retour

Sub test() 'ici on va tester si le fichier TEST.xls existe à la racine de C
Dim RepertoireStockage As String

            RepertoireStockage = "C:\" & "TEST.xls"
    Select Case  FileExists(RepertoireStockage) 
             Case is =True
                  [COLOR=Blue]'ici procèdure s'il existe[/COLOR]
             Case is False
                  [COLOR=Blue]'ici procèdure s'il n'existe pas[/COLOR]
    End Select
End Sub

non testé
merci à vous
Bonne journée

 

[pierrof]

Re : Fichier existe t-il ou pas

ça ne marche pas
quand le fichier n'existe pas il me demande ou aller le chercher..
je te laisse mon fichier
merci pour tes explications

 

[mutzik]

Re : Fichier existe t-il ou pas

Bonjour à tous,

quand le fichier n'existe pas, tu dis que la cellule b3 = à une cellule d'un autre fichier, mais tu n'as pas testé l'existence de cet autre fichier ...

 

[pierrof]

Re : Fichier existe t-il ou pas

Je voudrai :si le fichier n'existe pas passer a l'autre nom de fichier

si tu as remarquer j'ai 10 ligne pour le meme nom de fichier (meme jour)

 

[pierrof]

Re : Fichier existe t-il ou pas

je voudrai avoir:
Si le fichier existe récupérer la valeur dans la cellule
Si le fichier n'existe pas passer au suivant sans avoir de message me demandant où trouver le dossier

 

[Itori]

Re : Fichier existe t-il ou pas

Même avec ton fichier je ne suis pas sûr d'avoir bien compris ce que tu souhaite :/ Tu pourrai faire une explication plus précise stp ?
Par contre dans ce que tu as fait, tu test si le fichier existe, si oui tu ne fais rien, et si il n'existe pas tu met un lien dessus, ça me parait un peu illogique comme ça.