Erreur 424 objet requis

[JeyJey]

Bonjour à tous !

J'ai un petit souci avec mon code sur VBA et je ne sais pas trop comment y remédier vu mon statut de débutante

voici mon code :
Private Sub Cancel_Click()
Unload Me
End Sub

Private Sub Lancer_Click()
'Partie vérification des données saisie par l'utilisateur
If DateImport.Text = "" Or Not IsDate(DateImport.Text) Then
MsgBox "Il faut impérativement saisir une date valide!", vbCritical, "Erreur d'importation"
DateImport.SetFocus
Exit Sub
End If

LireLeFichierTexte (Chemin.Text)
End Sub


Private Sub Parcourir_Click()
'Declarer la varibale FileDialog object.
Dim fd As FileDialog
'Creation de l'objet FileDialog object comme File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFilePicker)

'Declarer une variable string qui va contenir le chemin du fichier séléctionné
Dim vrtSelectedItem As String
'Puisque nous n'avons plus 1 seul fichier source mais 2 on doit autoriser le multiselect
fd.AllowMultiSelect = True

'Titre à affecter à la boite de dialogue de sélection du fichier
fd.Title = "Parcourir le fichier de sortie"
'Ajouter le filtre pour n'inclure que les fichiers .txt
fd.Filters.Add "Fichers Textes", "*.txt", 1

'Sets the initial file filter to number 2.
fd.FilterIndex = 1
'Use a With...End With block to reference the FileDialog object.
With fd
If .Show = -1 Then
'Affecter dans la varibale string le chemin
vrtSelectedItem = .SelectedItems(1)
'affecter le chemin dnas la zone de texte c'est pas obligatoire mais juste pour me rassurer que c'est le bon chemin
Chemin.Text = vrtSelectedItem

Else
MsgBox "Aucun fichier sélectionné", vbInformation, "Erreur d'import"
End If
End With

'destruction de la variable fd
Set fd = Nothing
Dim intFic As Integer
'variable qui contiendera une ligne entière
Dim strLigne As String
'pas d'importance
intFic = FreeFile
'ouverture du fichier
Do While Len(CheminFichiertxt) > 0
Open CheminFichiertxt For Input As #1
'intFic
Loop
Close #1

End Sub

et donc quand j'essaye de l'exécuter pour voir ce que ça donne jusqu'ici il me sort erreur 424 objet requis
et apparemment la ligne à la cause du prb est la suivante :

Chemin.Text = vrtSelectedItem

je vous remercie d'avance pour votre aide

 

[Dranreb]

Re : Erreur 424 objet requis

Bonjour.
Je vous recommande d'utiliser en tête de chaque module Option Explicit
Ainsi vous auriez dans la plupart des cas "Variable non déclarée", ce qui est tout de même plus clair pour un nom de contrôle mal orthographié. Vous n'auriez "objet Requis" que si Chemin n'avais pas à être un contrôle, était donc déclaré, mais d'un type autre qu'un type d'objet, ce qui n'irait pas puisque vous lui précisez une propriété Text.

 

[JeyJey]

Re : Erreur 424 objet requis

merci beaucoup dranreb
je vais tenter ça et je vous en dirais des nouvelles
A+

 

[JeyJey]

Re : Erreur 424 objet requis

Quand je déclare option explicit dans mon code ça me renvoie une erreur comme quoi elle ne peut pas figurer après sub ou function
je ne comprends pas pourquoi :/

 

[Dranreb]

Re : Erreur 424 objet requis

C'est en effet une directive à mettre en tête du module, avant toute autre instruction, y compris des déclarations de variables globales, communes à toutes les procédures du module avec Dim ou Private, voire de tout le projet avec Public.