Excel Gestion Error Résolu/Fermé

Question

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	emp\Desktop	esttoto.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

eljojo_e · Answer

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	emp\Desktop	esttoto.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,

f894009 · Answer

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	emp\Desktop	esttoto.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

amine69500 · Answer

merci pour votre aide merci beaucoup,

les deux solutions marche super 

merci encore 

Cordialement

Excel Gestion Error

3 réponses

Discussions similaires