Ogham_1
Messages postés4Date d'inscriptiondimanche 30 octobre 2005StatutMembreDernière intervention23 novembre 2007
-
23 nov. 2007 à 12:41
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 2016
-
23 nov. 2007 à 14:57
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
'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 ???