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
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
ca fonctionne parfaitement sur un autre poste