Problème de recherche avec une macro
Pipo
-
Bidouilleu_R Messages postés 1209 Statut Membre -
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
-
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 -
Bonjour Bidouilleu_R,
J'ai bien remarqué cette syntaxe Erreur, je vais approndir la question, et je reprendrai contact.
A plus et merci
Pipo -
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 -
c'est ça maintenant que je le vois !
mais oui mais c'est bien sur...
A+