Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée 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.
Retourne un entier représentant le numéro de fichier suivant disponible pour l’instruction Open .
Syntaxe
FreeFile[(rangenumber)]
L’argument facultatif rangenumber est un Variant qui spécifie la plage à partir de laquelle le numéro de fichier libre suivant doit être retourné. Spécifiez un 0 (valeur 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.
Notes
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 du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction FreeFile pour renvoyer le numéro de fichier disponible suivant. Cinq fichiers sont ouverts pour la sortie dans la boucle, et certains 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