Bonjour ... etrange
j'avais ce sub qui fonctionnait parfaitement , j'ai du installer et deéinstaller d'autres produits en vb et je ne peut faire exécuter ce script ... je pense qu'il me manque une reférence ou ... une dlll ... je ne sais pas laquelle , j'ai vérifié
merci
ca fonctionne parfaitement sur un autre poste
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 Dim sql As String Dim Indice As Integer, mchaine As String Indice = 2 With Application.FileSearch .lookin = Application.CurrentProject.Path & "\transfert\" .FileName = "*.*" MsgBox .lookin .SearchSubFolders = False If .Execute > 0 Then mchaine = .FoundFiles(1) Me.FFichier.RowSource = Mid(mchaine, 26, Len(mchaine)) Me.FFichier.Value = Mid(mchaine, 26, Len(mchaine)) While Indice <= .FoundFiles.Count mchaine = .FoundFiles(Indice) FFichier.RowSource = FFichier.RowSource & ";" & Mid(mchaine, 26, Len(mchaine)) Indice = Indice + 1 Wend Else MsgBox "Pas de fichier de mise à jour trouvés" End If End With
Partager