Discussion :

[gyver4000]

bonjour

voila j'ai une macro qui tourne depuis pas mal de temp sur des PC mais depuis la formatage du pc et la mise en place de excel 2003 une partie de mon prgramme ne marche plus

cette procedure faisait l'inventaire des fichiers dans un répertoire
cette macro marchait depuis un bout de temp

mais la je vois d'ou vient le pb ??

Le pc a été reformaté donc peut etre un pb de droit (je suis administrator normalement)
ou le faite d'etre passer sous excel 2003 (ca m'etonnerait )

en fait la macro ne genere pas d'erreur mais fais comme si il n y avait aucun fichier dans le repertoire



Merci de votre aide

bonne journée

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub liste_of()
 
 
Dim val, rep As String
Dim deb, tot, dif As Long
 
 
UserForm1.ComboBox2.Clear
 
rep = "G:\DP\pf_mcore\CR_Intégration\" & UserForm1.ComboBox1.Value & "\En cours de test\"
deb = Len(rep)
 
With Application.FileSearch
 
.LookIn = rep
.Filename = "*.*"
 
 
 
If .Execute = 0 Then
 
    Exit Sub
 
Else
 
UserForm1.ComboBox2.Clear
 
For i = 1 To .FoundFiles.Count
 
tot = Len(.FoundFiles(i))
dif = tot - deb
val = Right(.FoundFiles(i), dif)
tot = Len(val)
dif = tot - 4
val = Left(val, dif)
 
    UserForm1.ComboBox2.AddItem (UCase(val))
 
    Next i
 
End If
 
End With
 
End Sub

[Qwazerty]

Salut
Apriori je regarderais si le chemin est bien valide, en prenant garde aux caractères accentués qui sont dans ce chemin (
CR_Intégration) vérifies si tu as recréé ton arborescence de répertoire après ton formatage, que tu ne te sois pas trompé.
A++
Qwaz

[gyver4000]

salut

Merci pour ta réponse

mais en faite je travaille sur un lecteur réseau

G ==> lien vers un réseau

donc coté répertoire je suis sur de çà

j'ai essayé aussi de faire des essais en local sur le disque C mais idem

aucune erreur d'exécution mais pas de fichier trouvé

merci

a+

[Qwazerty]

Salut
Moi sur Excel 2003 ca ne pose pas de probleme
J'ai modifié ainsi pour tester et Val contient bien le nom du fichier, attention par contre le \ au debut du nom de fichier est concervé.
Attention aussi a declartion de variable

Code :

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

Dim a,b As string

n'est pas equivalent a

Code :

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

Dim a as string, b as sting

mais a

Code :

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

dim a as variant, b as string

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
28
29
Sub liste_of()
 
'Les declaration doivent se faire ainsi sinon celles qui non pas de As .. a la suite seront conciderées comme des variants
Dim val As String, rep As String
Dim deb As Long, tot As Long, dif As Long
 
    'UserForm1.ComboBox2.Clear
    rep = "D:\éssai" '"G:\DP\pf_mcore\CR_Intégration\" & UserForm1.ComboBox1.Value & "\En cours de test\"
    deb = Len(rep)
    With Application.FileSearch
        .LookIn = rep
        .Filename = "*.*"
        If .Execute = 0 Then
            Exit Sub
        Else
            'UserForm1.ComboBox2.Clear
            For i = 1 To .FoundFiles.Count
                tot = Len(.FoundFiles(i))
                dif = tot - deb
                val = Right(.FoundFiles(i), dif) 'attention ici tu concerve le \ avant le nom de ton fichier
                tot = Len(val)
                dif = tot - 4
                val = Left(val, dif)
                'UserForm1.ComboBox2.AddItem (UCase(val))
            Next i
        End If
    End With
 
End Sub

++
Qwaz

[gyver4000]

salut

merci pour ta reponse

je test des lundi au boulot

merci

++