Applies ToAccess pour Microsoft 365 Access 2021 Access 2019 Access 2016

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, FileNumberFor 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 #FileNumberNext MyIndex

Besoin d’aide ?

Vous voulez plus d’options ?

Explorez les avantages de l’abonnement, parcourez les cours de formation, découvrez comment sécuriser votre appareil, etc.

Les communautés vous permettent de poser des questions et d'y répondre, de donner vos commentaires et de bénéficier de l'avis d'experts aux connaissances approfondies.