Comment utiliser l’instruction Put dans VBA ?

En VBA (Visual Basic for Applications), l’instruction `Put` est utilisée pour écrire des données dans des fichiers sous la forme de données binaires. Elle est souvent utilisée en combinaison avec l’instruction `Open` pour ouvrir un fichier dans lequel vous souhaitez écrire. Voici un guide étape par étape sur la manière d’utiliser l’instruction `Put` :

Étapes pour utiliser l’instruction `Put`

Ouvrir un fichier :

Utilisez l’instruction `Open` pour ouvrir un fichier en mode binaire. Cela se fait généralement avec un code similaire à celui-ci :

   Open "C:CheminVersVotreFichier.dat" For Binary As #1

Ici, `”C:CheminVersVotreFichier.dat”` est le chemin vers le fichier que vous souhaitez ouvrir, et `#1` est le numéro de fichier unique attribué à ce fichier.

Écrire des données avec `Put` :

Utilisez l’instruction `Put` pour écrire des données dans le fichier. Vous devez spécifier le numéro de fichier et, généralement, la position à laquelle vous souhaitez commencer à écrire (un positionnement facultatif si vous ajoutez simplement à la fin du fichier).

   Dim maValeur As Integer
   maValeur = 123

   Put #1, , maValeur

Dans ce cas, `maValeur` est la donnée que vous voulez écrire dans le fichier.

Fermer le fichier :

Une fois que vous avez terminé d’écrire les données, assurez-vous de fermer le fichier pour libérer les ressources système.

   Close #1

Exemple complet

Voici un exemple complet de comment utiliser `Put` pour écrire un nombre entier dans un fichier :

Sub EcrireDansFichier()

    Dim numFichier As Integer
    Dim maValeur As Integer

    ' Attribue un numéro de fichier unique
    numFichier = FreeFile

    ' Nom du fichier de destination
    Dim cheminFichier As String
    cheminFichier = "C:CheminVersVotreFichier.dat"

    ' Assigner une valeur
    maValeur = 123

    ' Ouvrir le fichier en mode binaire
    Open cheminFichier For Binary As #numFichier

    ' Écrire la valeur dans le fichier
    Put #numFichier, , maValeur

    ' Fermer le fichier
    Close #numFichier

    MsgBox "Écriture dans le fichier terminée."

End Sub

Dans cet exemple, nous avons utilisé `FreeFile` pour obtenir un numéro de fichier disponible et avons écrit un entier dans un fichier spécifié. Le `Put` peut être ajusté pour travailler avec différents types de données, y compris des chaînes et d’autres types de variables, en s’assurant que les données sont correctement formatées pour un stockage binaire.

facebooklinkedin