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
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, -
Re,
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 -
merci pour votre aide merci beaucoup,
les deux solutions marche super
merci encore
Cordialement
