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.
A voir également:
- Problème de recherche avec une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Je recherche une chanson - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
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
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
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
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
