Excel Gestion Error
Résolu
amine69500
Messages postés
471
Statut
Membre
-
amine69500 Messages postés 471 Statut Membre -
amine69500 Messages postés 471 Statut Membre -
Bonjour,
voila j'ai un code qui me permet de realiser une recherche dans un ficher CSV mais le probleme est que parfois il ne trouve rien, donc il me retourne une erreur,
mon but est lorsque ya une erreur, il m'affiche un msgbox qui me dis "ya une erreur"
et sort du code
merci de votre aide
voici mon code avec ce que j'ai essai mais il me l'affiche a chaque fois meme quand ya pas d'erreur
merci de votre aide
Code
Private Sub CommandButton1_Click()
Dim fich, qq
qq = Range("D14").Value
lqq = Len(qq)
'Chemin a adapter par vous
fic = "D:\Utilisateurs\temp\Desktop\testtoto.CSV"
Close
Open fic For Input As #1
Do While Not EOF(1)
'lecture enregistremnt
Line Input #1, buffer
'Recherche chaine test
If InStr(1, buffer, qq) Then
'ecriture mot devant chaine test
y = Right(buffer, Len(buffer) - Len(qq) - 1)
On Error GoTo xxx
xxx:
MsgBox "ya une erreur"
Fin:
Exit Sub
Debug.Print y
'sortie
Exit Sub
End If
Loop
Close
End Sub
Merci de votre aide
Cordialement
voila j'ai un code qui me permet de realiser une recherche dans un ficher CSV mais le probleme est que parfois il ne trouve rien, donc il me retourne une erreur,
mon but est lorsque ya une erreur, il m'affiche un msgbox qui me dis "ya une erreur"
et sort du code
merci de votre aide
voici mon code avec ce que j'ai essai mais il me l'affiche a chaque fois meme quand ya pas d'erreur
merci de votre aide
Code
Private Sub CommandButton1_Click()
Dim fich, qq
qq = Range("D14").Value
lqq = Len(qq)
'Chemin a adapter par vous
fic = "D:\Utilisateurs\temp\Desktop\testtoto.CSV"
Close
Open fic For Input As #1
Do While Not EOF(1)
'lecture enregistremnt
Line Input #1, buffer
'Recherche chaine test
If InStr(1, buffer, qq) Then
'ecriture mot devant chaine test
y = Right(buffer, Len(buffer) - Len(qq) - 1)
On Error GoTo xxx
xxx:
MsgBox "ya une erreur"
Fin:
Exit Sub
Debug.Print y
'sortie
Exit Sub
End If
Loop
Close
End Sub
Merci de votre aide
Cordialement
A voir également:
- Excel Gestion Error
- Liste déroulante excel - Guide
- Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
3 réponses
Bonjour,
Private Sub CommandButton1_Click()
on error goto a:
Dim fich, qq
qq = Range("D14").Value
lqq = Len(qq)
'Chemin a adapter par vous
fic = "D:\Utilisateurs\temp\Desktop\testtoto.CSV"
Close
Open fic For Input As #1
Do While Not EOF(1)
'lecture enregistremnt
Line Input #1, buffer
'Recherche chaine test
If InStr(1, buffer, qq) Then
'ecriture mot devant chaine test
y = Right(buffer, Len(buffer) - Len(qq) - 1)
On Error GoTo xxx
xxx:
MsgBox "ya une erreur"
Fin:
Exit Sub
Debug.Print y
'sortie
Exit Sub
End If
Loop
Close
exit sub
a:
msgbox("Erreur")
End Sub
Cordialement,
Private Sub CommandButton1_Click()
on error goto a:
Dim fich, qq
qq = Range("D14").Value
lqq = Len(qq)
'Chemin a adapter par vous
fic = "D:\Utilisateurs\temp\Desktop\testtoto.CSV"
Close
Open fic For Input As #1
Do While Not EOF(1)
'lecture enregistremnt
Line Input #1, buffer
'Recherche chaine test
If InStr(1, buffer, qq) Then
'ecriture mot devant chaine test
y = Right(buffer, Len(buffer) - Len(qq) - 1)
On Error GoTo xxx
xxx:
MsgBox "ya une erreur"
Fin:
Exit Sub
Debug.Print y
'sortie
Exit Sub
End If
Loop
Close
exit sub
a:
msgbox("Erreur")
End Sub
Cordialement,
Re,
Une autre facon de voir, le fait de ne pas trouver n'est pas une erreur.
Une autre facon de voir, le fait de ne pas trouver n'est pas une erreur.
Private Sub CommandButton1_Click()
Dim fich, qq
qq = Range("D14").Value
If qq = "" Then
MsgBox "Pas de texte a chercher!!!!"
Exit Sub
End If
lqq = Len(qq)
'Chemin a adapter par vous
fic = "D:\Utilisateurs\temp\Desktop\testtoto.CSV"
Close
Open fic For Input As #1
Do While Not EOF(1)
'lecture enregistremnt
Line Input #1, buffer
'Recherche chaine test
If InStr(1, buffer, qq) Then
'ecriture mot devant chaine test
y = Right(buffer, Len(buffer) - Len(qq) - 1)
Exit Sub
End If
Loop
MsgBox "Pas trouve " & qq
Close
End Sub
