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