[Toutes versions] Fonction ExisteFichier vba

Fonction ExisteFichier vba

Bonjour tout le monde !!

Petit souci de programme...

Ma fonction pour détecter si mon fichier existe déjà ou non ne fonctionne pas et je ne comprends vraiment pas pourquoi... Peut-être aurez-vous une piste !

Mon code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function ExisteFichier(nomfic As String) As Boolean
ExisteFichier = (Dir(nomfic) <> "")
End Function
 
Sub stat_3C()
 
Dim semaine As Integer, jour As Integer, jour_mois As Integer, i As Integer, j As Integer
Dim chemin As String, date_jour As String, maquette As String, mois As String, res_jour As String
Dim feuille As String, donnees As String
 
 
maquette = "Maquette Résultats Journaliers"
chemin = "R:\3C\automatisation 3C\"
jour = Weekday(Date, vbMonday)
campagne = InputBox("Quel campagne est traitée ? (CCDEV, TLPU ou TLP)")
semaine = Format(Date, "ww", vbMonday, vbFirstFourDays)
If jour = 1 Then semaine = semaine - 1 Else semaine = semaine
res_jour = chemin & "Résultats journaliers " & campagne & " S" & semaine & ".xls"
 
'Création ou non du fichier de la semaine
 
If ExisteFichier(res_jour) = True Then
    Workbooks.Open Filename:=res_jour
Else
    Workbooks(maquette).SaveAs Filename:=res_jour
End If

Et que le fichier existe ou non, il passe direct au Else...

Merci d'avance pour votre aide !!

Auriane

bonjour, regarde ça

Code:

1
2
3
4
5
6
7
'Permet de vérifier si le fichier
Public Function Fichier_Existe_RD(Fichier As String) As Boolean
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
 Fichier_Existe_RD = FSO.FileExists(Fichier)
Set FSO = Nothing
End Function

Code:

1
2
3
4
5
If Fichier_Existe_RD(res_jour) = True Then
    Workbooks.Open Filename:=res_jour
Else
    Workbooks(maquette).SaveAs Filename:=res_jour
End If

Merci pour ta réponse mais j'ai trouvé la solution entre temps. Il suffisait que je précise le chemin et que j'ajoute le ".xls" à mon nom de fichier.