Lorsque vous utilisez une macro pour écrire des informations dans un fichier texte, vous souhaiterez peut-être ajouter des informations à un fichier existant plutôt que de créer un nouveau fichier texte à partir de zéro. Pour ce faire, tout ce que vous avez à faire est d’ouvrir le fichier pour Ajouter plutôt que Sortie. Le code suivant montre ce processus:

Open "MyFile.Dat" For Append As #1 For J = 1 to NewValues     Print #1, UserVals(OrigVals + J)

Next J Close #1

Lorsque le fichier est ouvert en mode Ajouter, toute nouvelle information est ajoutée à la fin du fichier, sans perturber le contenu existant.

Sachez que les informations de cette astuce montrent comment ajouter des données à un fichier texte; il n’indique pas d’où devraient provenir ces données. En d’autres termes, si vous souhaitez que les données proviennent d’informations stockées dans des variables de votre macro, vous devrez déterminer le contenu de la variable à écrire dans le fichier. (L’exemple de code utilise en fait des variables – le tableau UserVals – pour écrire des informations dans le fichier texte.)

Toutefois, si vous souhaitez que les informations soient extraites d’une feuille de calcul, vous devrez créer le code qui récupère les informations des cellules souhaitées et, à son tour, les écrit dans le fichier texte. (Cette astuce ne consiste pas à saisir les données, mais à les écrire dans le fichier.)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2536) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

lien: / excelribbon-Appending_to_a_Non-Excel_Text_File [Ajout à un fichier texte non Excel].