Table des matières
Le code suivant validera si un nom de fichier est valide. Ceci est utile si votre code nécessite un nom de fichier entré par l'utilisateur. Il vérifiera que le nom de fichier est valide avant de continuer et éventuellement de générer une erreur.
Valider le nom du fichier
Cette fonction teste que la variable 'FileName' est un nom de fichier valide :
1234567891011121314151617181920212223242526272829303132333435363738394041 | Fonction ValidateFileName(ByVal FileName As String) As BooleanApplication.ScreenUpdating = FauxDim wb comme classeur' Vérifiez qu'il n'y a rien dans le nom de fichier.Si FileName = "" AlorsValidateFileName = FalseGoTo ExitProcFin si'Créer un fichier temporaireEn cas d'erreur GoTo InvalidName :Définir wb = Workbooks.Addwb.SaveAs Environ("temp") & "\" & FileName & ".xlsx", 51En cas d'erreur Reprendre ensuite'Fermer le fichier Excel temporairewb.Fermer Faux'Supprimer le fichier Excel temporaireTuer Environ("temp") & "\" & FileName & ".xlsx"'Nom de fichier validé - Quitter la fonctionValidateFileName = TrueGoTo ExitProc'Si le fichier ne peut pas être crééNom incorrect:En cas d'erreur Reprendre ensuite'Fermer le fichier Excel temporairewb.Fermer Faux'Nom de fichier non validé - Quitter la fonctionValidateFileName = FalseQuitterProc :Application.ScreenUpdating = FauxFonction de fin |
Vous pouvez appeler la fonction comme ceci :
12345 | Sous test_ValidateFileName()Debug.Print ValidateFileName("fda?/")Fin du sous-marin |
Cette procédure de test affichera TRUE ou FALSE dans la fenêtre d'exécution.