Problème de recherche avec une macro

Pipo -  
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,je réalise une macro en excel 5. Dans cette macro j'utilise "Séléction.rechercher" dans une colonne.Je sais pertinemment que la demande ne se trouve pas dans la colonne, mais je souhaite gérer l'erreur et effectuer derrière une autre instruction.
Configuration: Windows VistaInternet Explorer 7.0

4 réponses

  1. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    le seul moyen d'éviter le plantage
    s'est de récupérer l'erreur

    je n'ai plus excel 5 ( apparement en français dans ta version)

    regarde comment utiliser les ERREURs

    de mémoire je crois qu'il y avait quelque chose comme SI ERREUR
    0
  2. pipo
     
    Bonjour Bidouilleu_R,

    J'ai bien remarqué cette syntaxe Erreur, je vais approndir la question, et je reprendrai contact.
    A plus et merci

    Pipo
    0
  3. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    Voici un exemple qui teste si le fichier existe en VBA Excel2003 et +++
    Je met en Gras les parties importantes qui te permettront de trouver la structure

    le traitement se fait dans la fonction

    Sub test()
    chemin = "C:\DATA\"
    fichier = "essai.txt"
    If isFileExist(chemin + fichier) Then
    'existe

    Else
    'n'existe pas
    End If
    End Sub

    Function isFileExist(filename As String)
    Dim NumFichier As Integer, Errnum As Integer
    Err.Clear 'les erreurs précédentes sont effacées
    On Error Resume Next

    NumFichier = FreeFile()
    Open filename For Input Lock Read As #NumFichier
    Close NumFichier
    Errnum = Err ' après open ... il ya une erreur donc on la stocke dans Errnum
    On Error GoTo 0 ' ici on gère l'erreur selon les numeros d'erreur
    Select Case Errnum
    Case 0
    isFileExist = True
    Case 53
    isFileExist = False

    End Select

    End Function
    0
    1. Pipo
       
      Bidouilleu_R

      j'ai trouvé

      à mettre avant la recherche: Quand Erreur AllerA 0

      Merci
      A plus

      pipo
      0
  4. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    c'est ça maintenant que je le vois !
    mais oui mais c'est bien sur...

    A+
    0