Comment utiliser l’instruction Print # dans VBA ?

En VBA (Visual Basic for Applications), l’instruction `Print #` est utilisée pour écrire des données dans des fichiers texte. Voici comment l’utiliser :

  • Ouvrir un fichier pour écriture : Utilisez l’instruction `Open` pour ouvrir le fichier pour écriture. Vous devez spécifier le chemin du fichier, le mode d’accès et un numéro de fichier unique que vous allez utiliser avec l’instruction `Print #`.
  • Écrire dans le fichier : Utilisez `Print #` pour écrire des données dans le fichier. Vous pouvez écrire des chaînes de texte, des nombres, etc.
  • Fermer le fichier : Après avoir fini d’écrire dans le fichier, assurez-vous de le fermer avec l’instruction `Close`.

Voici un exemple simple pour illustrer l’utilisation de l’instruction `Print #` :

Sub EcrireDansFichier()
    Dim numFichier As Integer
    Dim cheminFichier As String

    ' Définir le chemin du fichier
    cheminFichier = "C:CheminVersVotreFichier.txt"
    
    ' Obtenir un numéro de fichier libre
    numFichier = FreeFile
    
    ' Ouvrir le fichier en mode Output (écriture)
    Open cheminFichier For Output As #numFichier
    
    ' Écrire des données dans le fichier
    Print #numFichier, "Ceci est une ligne de texte."
    Print #numFichier, "Voici une autre ligne."

    ' Fermer le fichier
    Close #numFichier

    MsgBox "Écriture terminée!"
End Sub

Points à noter :

  • Modes d’accès : Vous pouvez utiliser différents modes comme `Output` pour écrire, `Append` pour ajouter à la fin du fichier ou `Input` pour lire.
  • Numéro de fichier : Utilisez `FreeFile` pour obtenir un numéro de fichier qui n’est pas actuellement utilisé.
  • Formatage : `Print #` insère par défaut des espaces entre les expressions. Pour plus de contrôle, considérez l’utilisation de l’instruction `Write #` qui encadre les chaînes entre guillemets et sépare les éléments par des virgules.

Veillez toujours à bien fermer le fichier après l’avoir utilisé pour libérer les ressources et éviter les conflits d’accès ultérieurs.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project