Remarque
La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivé si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Renvoie un nombre entier représentant le prochain numéro de fichier disponible pour utilisation par l’instruction Open .
Syntaxe
FreeFile[(rangenumber)]
L’argument facultatif rangenumber est une variante qui spécifie la plage à partir de laquelle le prochain numéro de fichier libre doit être retourné. Spécifiez un 0 (par défaut) pour renvoyer un numéro de fichier compris entre 1 et 255 inclus. Spécifiez un 1 pour renvoyer un numéro de fichier compris entre 256 et 511.
Remarques
Utilisez FreeFile pour fournir un numéro de fichier qui n’est pas déjà utilisé.
Exemple
Remarque
Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence développeur dans la liste déroulante en regard de Rechercher , puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction FichierLibre pour renvoyer le numéro de fichier disponible suivant. Cinq fichiers sont ouverts pour sortie dans la boucle, et des exemples de données sont écrits dans chacun d’eux.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex