Discussion :

[volubiliss]

Bonjour

Via un code vba je tente de faire une recherche de fichier dans un dossier excel via un inputbox dans lequel on met le nom du fichier recherché. Le code fonctionne pour le cas ou le fichier est présent dans le dossier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub open_file()
 
Dim opened_trade As String
 
opened_trade = InputBox("Entrer la reference recherché")  ‘
 
ChDir "C:\test\dossier1"    ‘définition du chemin d’accès
 
Workbooks.Open Filename:=opened_trade
 
 
End Sub

J’aimerai pouvoir établir une condition qui prend en compte l’éventualité que le fichier n’existe pas, une condition du type

Code :

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

1
2
3
4
5
IF le fichier existe dans le dossier THEN 
Open le fichier 
ELSE le fichier n’existe pas dans le dossier THEN 
MsgBox ‘’ aucun fichier trouvé ‘’
END IF

Je n’arrive pas à définir cette condition
Comment puis-je faire ?

Merci d’avance

[Duddy]

Bonjour le forum,

J'utilise cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'*******************************************************************************************
'***** Recherche si le fichier existe ******************************************************
'*******************************************************************************************
Public Function FichierExiste(ByVal CheminCompletfichier As String) As Boolean
    FichierExiste = False
    If Dir(CheminCompletfichier, vbHidden) <> "" Then
        FichierExiste = True
    End If
End Function
'---------------------------------------------------------------------------------------------------------------------------------------
'*************************************************************************************************
'---------------------------------------------------------------------------------------------------------------------------------------

Que tu peux utiliser dans ta condition ainsi:

Code :

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

1
2
3
4
5
IF FichierExiste("C:\....\tonfichier.xlsx") THEN 
Open le fichier 
ELSE
MsgBox ‘’ aucun fichier trouvé ‘’
END IF

[Daniel.C]

Bonjour,

Tu peux aussi procéder ainsi :

Code :

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

1
2
3
4
5
6
 Dim FSO As Object, Fichier As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Fichier = "c:\temp\test.xls"
    If FSO.fileexists(Fichier) = True Then
        Workbooks.Open Fichier
    End If

[volubiliss]

Bonjour

Merci beaucoup pour vos retours respectifs en fait dans le code j’utilise une inputbox pour insérer un fichier recherché
J’ai donc en fonction de vos idées procéder de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub  test_extfich()
 
 
Dim FSO As Object, Fichier As Variant, j as string
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
 j = InputBox("please insert the option reference") ‘utilisation de l’inputbox pour insérer le nom de fichier recherché
 
    Fichier = "C:\test\dossier_test  & " \ " & j & " ‘concaténation de l’extension au fichier inséré dans inputbox ‘’j’’
    If FSO.fileexists(Fichier) = True Then
        Workbooks.Open Fichier
    ElseIf FSO.fileexists(Fichier) = False Then
    MsgBox ("fichier non trouvé ")
    End If
 
 
End Sub

Malheureurement j’ai une erreur 13 au niveau de la ligne

Code :

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

Fichier = "C:\test\dossier_test  & " \ " & j & "

Est le type de variable déclaré qui pose problème (string) j’ai essayé avec un variant ca donne la même chose ?

Merci pour votre aide

[Sclarckone]

Et comme ça?

Code :

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

Fichier = "C:\test\dossier_test  & "\" & j & "

[volubiliss]

Bonjour

L’erreur type 13 disparaît bien par contre la condition ne fonctionne pas :

Disons que si un fichier j = 2 existe dans le dossier, la msgbox renvoyé par la condition est celle qui stipule que le fichier n’existe pas. J’ai l’impression que la concaténation n’est pas prise en compte ?