Discussion :

[sat478]

Bonjour, mon problème est le suivant. J'ai essayé les deux codes suivants pour vérifier la présence d'un fichier sur un lecteur réseau. Pourtant celui-ci ne me reconnaît pas un fichier déjà existant malgré les différentes explications que j'ai déjà trouvé sur différents posts.

Quelqu'un aurait-il une explication ? Piste d'idée ? Merci beaucoup

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
nomEnregistrement = nomLecteurReseau & "\" & nomRepertoire & "\" & nomFichier
    on vérifie que le fichier n'existe pas
    If Dir(nomRepertoire) = "" Then 'cas où le fichier n'existe pas
        ActiveWorkbook.SaveAs Filename:=nomEnregistrement
        frmEnregistrement.Hide
            Else
                MsgBox "Le fichier mensuel existe déjà. Merci de vérifier votre saisie"
    End If

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
nomEnregistrement = nomLecteurReseau & "\" & nomRepertoire & "\" & nomFichier
    Dim Fs As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
    If Fs.FileExists(nomRepertoire) = True Then
        MsgBox "Le fichier mensuel existe déjà. Merci de vérifier votre saisie"
        Exit Sub
            Else
                ActiveWorkbook.SaveAs Filename:=nomEnregistrement
                frmEnregistrement.Hide
   End If

[cavo789]

Pourquoi fais-tu un

Code :

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

DIR(NomRepertoire)

. Il me semble que tu devrais faire un

Code :

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

DIR(NomEnregistrement)

càd le nom complet du fichier.

[sat478]

oui tout à fait comme quoi je n'avais pas relu complètement mon code (c'est le cas à force d'être en continue dessus je pense)

pourtant, lorsque je modifie mon code, celui-ci rentre quand meme dans la boucle "nom de fichier inexistant" : le DIR(nomEnregistrement) ne retourne rien.

Donc il tente de créer le fichier et apparaît le message excel "le fichier existe déjà. Voulez vous l'écraser..." chose que mon test devrait éviter :-(

[sat478]

J'ai trouvé !

Il manquait tout simplement l'extension ".xls" pour correctement comparer les noms de fichiers.

C'est chose faite en prenant la précaution de faire un SaveAs avec un fileFormat:=xlNormal

Merci de votre aide

[cavo789]

Je t'en prie...