Userform/Pb Fonction

Signaler
Messages postés
4
Date d'inscription
dimanche 30 octobre 2005
Statut
Membre
Dernière intervention
23 novembre 2007
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
Bonjour,

Je suis en train de developper un userform dans Excel pour gerer des fichiers mis a jour tous les jours.

Langage : VBA

Mon souci se situe :
J'utilise un fonction qui fonctionne impeccablement quand je l'affecte a un bouton dans une feuille excel directement.
Mais il me renvoi un message d'erreur quand je l'affecte a un autre bouton sur un userform:
Mssg d'erreur : variable non definie
1- chargement du useform :
2- declenchement du bouton :

------
Private Sub CMD_FIC_CI_Click()
Dim RepCourant


RepCourant = "[file://\\lien\dossier \\lien\dossier]"


'MsgBox RepCourant
Set fs = Application.FileSearch
With fs
    .LookIn = RepCourant & "02_Dossier de site"
    .Filename = "inventaire*.xls"
    If .Execute > 0 Then
        'MsgBox "There were " & .FoundFiles.Count & " file(s) found."
       For i = 1 To .FoundFiles.Count
            'MsgBox .FoundFiles(i)
            Workbooks.Open .FoundFiles(i)
           'Workbooks(1).Activate
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With


End Sub
-------
Avez vous une idée du pourquoi du comment ???

Ogham
[><]®

2 réponses

Messages postés
4
Date d'inscription
dimanche 30 octobre 2005
Statut
Membre
Dernière intervention
23 novembre 2007

Poiur info il faut declarer fs


dim fs as variant et ca repart

Ogham
[><]®
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,

Pour info,

Dans un module : Public Fs as Variant...Sans oublier de faire une fois ton traitement terminier : Set Fs = Nothing...

A+
Exploreur

 Linux a un noyau, Windows un pépin