On Error Resume Next 'Place un gestionnaire d'erreurs qui saute l'instruction défectueuse Chemin = Application.GetOpenFilename("Texte, *.txt") 'Boite de dialogue If (Err.Number > 0) Then 'Indique le numéro de l’erreur. Ce numéro est unique et dépend également de l’application MsgBox Err.Description 'Cette propriété indique la description de l’erreur GOON = False 'Variable publique qui change d'état On Error GoTo 0 'Enlève le gestionnaire d'erreur s'il était mis en place Exit Sub End If On Error GoTo 0 'Enlève le gestionnaire d'erreur s'il était mis en place
Chemin = Application.GetOpenFilename("Texte, *.txt") 'Boite de dialogue
If len(chemin) > 250 Then ....ce que tu chois comme longueur maxi)
If len(chemin) > 250 Then ....ne fonctionne pas dès lors que le chemin d'accès est plus long que 250 caractères. Le programme plante à l'ouverture du fichier avant même de pouvoir tester le nombre de caractères de ce dernier. Et moi c'est justement sa que je veux mettre en évidence.
On Error Resume Next Chemin = Application.GetOpenFilename("Texte, *.txt") 'Boite de dialogue If (Err.Number = 1004) Then MsgBox "Fichier trop long dsl" GOON = False 'Variable publique qui change d'état Exit Sub End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOn Error Resume Next a = 1 / 0 On Error GoTo 0 a = 1 / 0