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
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