Bonjour,

Quelques précisions :

Open "NomDeFichier" For mode [AccessRestriction] [LockType] As # numéro de fichier
------------------------------------------------------------------------------------------------------------------------------------------
Mode Description

Append Ouvre un fichier séquentiel, en commençant par la fin.
Les données seront inscrites à la fin de celles déjà présentes. Si le fichier n'existe pas, Visual Basic le crée.

Binary Ouvre un fichier en accès binaire.

Input Ouvre un fichier séquentiel en lecture, en commençant par le début.
Les données sont lues dans l'ordre selon lequel elles ont été envoyées au fichier.
Si le fichier n'existe pas, Visual Basic affiche un message d'erreur à l'exécution.

Output Ouvre un fichier séquentiel en écriture, en commençant par le début.
Si le fichier n'existe pas, Visual Basic le crée. S'il existe, il est écrasé (les anciennes données seront écrasées).

Random Ouvre un fichier pour lecture et écriture aléatoire.
Dans ce mode, les données sont lues et écrites dans n'importe quel ordre.
------------------------------------------------------------------------------------------------------------------------------------------
Les restrictions d'accès :
Cet argument optionnel (AccessRestriction) permet de restreindre l'exécution de l'instruction
Open aux modes d'accès Read (lecture), Write (écriture) ou Read Write (lecture-écriture).
Cet argument est surtout appliqué aux fichiers qui circulent sur un réseau. Dans l'accès en
lecture (Read), on peut seulement lire le fichier mais pas le modifier. L'accès en écriture
(Write) permet de modifier le fichier et l'accès en lecture-écriture (Read Write) permet de faire
les deux. Généralement, les fichiers qui sont appelés à circuler sur un réseau ont déjà chacun
leurs droits d'accès. C'est l'administrateur de réseau qui les accorde. C'est pour cette raison
que l'argument (AccessRestriction) n'est pas obligatoire.

Le verrouillage des fichiers :
L'autre argument optionnel, LockType, spécifie les opérations que d'autres processus peuvent
effectuer sur le fichier. Là encore, cet argument est surtout utilisé dans les applications réseau.
Il permet de restreindre l'accès au fichier à un seul utilisateur à la fois. LockType peut prendre
quatre valeurs: Shared, Lock Read, Lock Write et Lock Read Write. La valeur Shared permet
à tous les utilisateurs d'accéder simultanément au fichier. Lock Read verrouille le fichier, en
limitant la lecture à un seul utilisateur. Lock Write fait la même chose pour l'écriture.
Lock Read Write verrouille le fichier en interdisant à tous les autres utilisateurs de le lire ou d'y écrire.


Lupin ~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Re:

Localiser un numéro de fichier disponible

Dans la section Modes d'accès, il y a quatre exemples différents pour l'instruction Open.
Vous avez sans doute remarqué que chaque exemple ouvre un fichier sous un numéro différent.
Vous savez également que lorsque le numéro du fichier est connu, Visual Basic n'accède plus
au fichier par son nom, mais par le numéro propre au fichier. Visual Basic, supporte l'ouverture
simultanée de plusieurs fichiers, à condition que l'on attribue à chacun des fichiers un numéro différent.
Si votre application a besoin de plusieurs fichiers, vous devez être en mesure de déterminer le prochain
numéro disponible, notamment si des fichiers sont ouverts dans une fonction qui n'a aucun moyen de
savoir si d'autres fonctions ont ouvert des fichiers. Il existe pour cela la fonction FreeFile () qui renvoie
le prochain numéro disponible. Cette fonction garantit que le numéro retourné n'est pas utilisé dans une
autre instruction. Sa syntaxe est: FreeFile ([intRangeNumber]).

L'argument "intRangeNumber" est optionnel. Il spécifie la plage dans laquelle le numéro renvoyé doit
être compris: 1 à 255 ou 256 à 511. En l'absence de cet argument, la plage par défaut est 1 à 255.
Il est très rare qu'un programme ait à ouvrir simultanément plus de 256 fichiers. C'est pourquoi cet
argument est optionnel, et, s'il n'est pas spécifié, les parenthèses sont inutiles. L'instruction suivante
vous donne un exemple d'utilisation de cette fonction: intFileNum = FreeFile

Open "MonFichier.dat" For Output As intFileNum

Ainsi, vous êtes assurés d'avoir un numéro de fichier unique. Prenez l'habitude d'affecter FreeFile à une
variable comme dans l'exemple. De cette façon, vous aurez un moyen de connaître le numéro renvoyé
par la fonction.

Regardez l'instruction suivante:
Open "MonFichier.dat" For Output As FreeFile ()

Cette instruction fonctionne, mais vous n'avez aucun moyen de connaître le numéro de fichier pour
un usage ultérieur dans votre programme. Un fichier ouvert doit nécessairement être fermé.

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Merci bien ,mais j'obtiens rien en affichage.
En fait ce que je voulais c'est pas afficher le contenu d'un fichier mais l'afficher lui m^me et voir son contenu.

Sinon votre code marche bien mais en specifiant une zone de texte dans laquelle on doit visualiser le contenu du fichier.

Voici votre code auquel j'ai ajouté 1 ligne:

Dim Valeur As Variant
    Dim nomFichier As String
    Dim numFic As Integer
    

    numFic = FreeFile
    nomFichier = "C:\test1.doc"

    Open nomFichier For Input Shared As #numFic

    Do While Not EOF(numFic)
        Input #numFic, Valeur
        Text1.Text = Text1.Text & vbCrLf & Valeur
    Loop

    Close #numFic