Discussion :

[AzelRoth]

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

[Krovax]

J'ai a peine touché au manipulation de fichier mais une idée toute simple pour esayer de contourner le problème (je contourne les obstacle plus que je l'ai franchis , mon coté fainéant).
par contre je te remplace tes 3 message box par une seul en allant a la ligne

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
 
Public Sub Test()
 dim chem as string
    Set fs = Application.FileSearch
 
    'Aller voir dans le dossier des fichiers.ini
    With fs
        chem= "C:\Program Files\Traitement\Console"
        .LookIn = chem
        .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" & vbCrLf & "Recommencer l'opération en changeant le chemin d'accès aux fichiers" & Chr(13) & "Chemin actuel : " & chem)
        End If
    End With
 
End Sub

Edit par contre j'ai un peut l'impression que tu test 2 fois la meme chose

Code :

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

1
2
3
        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

[AzelRoth]

Salut,

Ton code est très bon, il fonctionne à merveille, je te remercie.
Et pour ta question, depuis le début j'utilisais ces deux tests alors qu'un seul était nécessaire en fait.
Je commencais par faire une fois le test pour vérifier la présence des fichiers ensuite je lançais une msgbox pour confirmer la présence des fichiers.
Ma seconde boucle retestait la même chose plus le test si les fichiers n'étaient pas présents.
Ensuite si le test était validé, il faisait appel à une autre macro de mon projet.
Voila le but initial de ce test, mais il est vrai qu'il n'est pas necessaire de le faire deux fois de suite. Je viens donc de le retirer et ça marche mieux même, la macro réagit plus vite.
Merci à toi pour ton aide. Je te mets le code modifier. Pourrais tu m'expliquer un peu le but des fonctions vbCrLf? Merci.

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
Public Sub Test()
    Dim chem As String
 
    Set fs = Application.FileSearch
 
    'Aller voir dans le dossier des fichiers.ini
    With fs
        chem = "C:\Program Files\Traitement\Console"
        .LookIn = chem
        .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")
            'La macro MEP est une macro de mise en pages de mes feuilles Excel
            Call MEP
        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" & vbCrLf & "Recommencer l'opération en changeant le chemin d'accès aux fichiers" & Chr(13) & "Chemin actuel : " & chem)
        End If
    End With
 
End Sub

[Krovax]

insérer vbCrLf dans une chaine de caractère permet d'aller a la ligne

msgbox "ligne1" & vbCrLf & "ligne2"
renvoie dans la message box
ligne1
ligne2

Chr(13) renvoi les 13ème caractère de la table ascci (un lien ici)
Le 13ème correspondant au retour a la ligne il est donc identique à vbCrLf
Il permet juste d'utiliser n'importe quel caractère de la table

[Didier Gonard]

Bonjour,

pour ce dernier point, voir aussi l'aide vba à vbCr "Constantes diverses" et aussi selon le contexte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
 
MsgBox "tata" & vbCr & "toto"
MsgBox "tata" & vbLf & "toto"
MsgBox "tata" & vbCrLf & "toto"
MsgBox "tata" & vbCr & vbCr & "toto"
' etc...
Cells(2, 5) = "tata" & vbCr & "toto"
Cells(3, 5) = "tata" & vbLf & "toto"
Cells(4, 5) = "tata" & vbCrLf & "toto"
End Sub

cordialement,

Didier

[LeForestier]

Bonjour tous,
Il y a peut-être un peu plus simple...

Code :

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

1
2
3
4
5
6
Public Sub Test()
    If Dir("C:\Program Files\Traitement\Console\*ini") = "" Then
        MsgBox ("Opération annulée, il n'y a pas présence de fichiers .ini" _
        & vbCrLf & "Recommencer l'opération en changeant le chemin d'accès aux fichiers" 
    End If
End Sub

Si un fichier INI existe Dir va renvoyer sont nom.
A+

[AzelRoth]

Salut,

Ton code fonctionne très bien aussi, Le Forestier.
Et intégré dans ma macro il fonctionne aussi très bien avec quelques rajouts de code de ma macro.
Merci à toi.