Problème de recherche avec une macro
Fermé
Pipo
-
12 févr. 2009 à 11:42
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 12 févr. 2009 à 16:00
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 12 févr. 2009 à 16:00
A voir également:
- Problème de recherche avec une macro
- Recherche musique - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Rechercher ou entrer l'adresse mm - recherche google - Guide
4 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
12 févr. 2009 à 12:08
12 févr. 2009 à 12:08
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
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
12 févr. 2009 à 12:50
12 févr. 2009 à 12:50
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
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
289
12 févr. 2009 à 16:00
12 févr. 2009 à 16:00
c'est ça maintenant que je le vois !
mais oui mais c'est bien sur...
A+
mais oui mais c'est bien sur...
A+