Excel Gestion Error

Résolu

amine69500 Messages postés 422 Date d'inscription Statut Membre Dernière intervention -
amine69500 Messages postés 422 Date d'inscription Statut Membre Dernière intervention - 6 sept. 2012 à 15:31

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

Afficher la suite

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
Déplacer colonne excel - Guide
Si ou excel - Guide

3 réponses

Réponse 1 / 3

eljojo_e Messages postés 1155 Date d'inscription Statut Membre Dernière intervention 154

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,

Réponse 2 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 3 / 3

amine69500 Messages postés 422 Date d'inscription Statut Membre Dernière intervention 12

merci pour votre aide merci beaucoup,

les deux solutions marche super

merci encore

Cordialement

Discussions similaires

Iptv smarters pro Network error occured! Please try again

Votre réponse

Discussions similaires