Bonjour,

J'ai un petit problème que je n'arrive pas à résoudre, ce n'est pas grand chose je pense mais ça me gène. En faite je fais une vérification sur le chemin d'accès à des fichiers et si ce chemin n'est pas correct, je l'affiche. Le souci c'est que celui-ci ne m'écrit pas tout le chemin d'accès au fichier (il note simplement : C:\ ). Je vous place mon code mais je pense que la solution doit-être simple, mais je sèche dessus là, je ne vois pas quoi changer.
J'ai essayé de changer le chemin d'accès mais rien n'y fait, il affiche toujours C:\ , même si mon chemin d'accès est sur le disque D:\.
Si quelqu'un avait une idée ... Merci d'avance.

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
19
20
21
22
23
24
25
26
27
Public Sub Test()
 
    Set fs = Application.FileSearch
 
    'Aller voir dans le dossier des fichiers.ini
    With fs
 
        .LookIn = "C:\Program Files\Traitement\Console"
        .Filename = "*.ini"
 
        'Vérification de présence de fichiers .ini dans le dossier de destination.
        If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
            Call MsgBox("Il y a présence de fichiers .ini, l'opération peut être éxécutée")
            If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
 
                'Si ok l'opération continue
                Call MsgBox("C'est ok")
            End If
        Else
            'Si ce n'est pas bon l'opération est annulée
            Call MsgBox("Opération annulée, il n'y a pas présence de fichiers .ini")
            Call MsgBox("Recommencer l'opération en changeant le chemin d'accès aux fichiers")
            Call MsgBox("Chemin actuel : " & fs.LookIn)
        End If
    End With
 
End Sub