Créer un fichier .txt depuis une macro vba : ?

[rdep01]

Bonjour à tous,

Voici mon code :

Open "FichierErreurs" For Append As #1
Write #1, msg_err

Voilà, cela ne plante pas à l'exécution, mais cela ne créé pas le fichier texte non plus.

Je souhaiterais enregistrer le fichier manuellement, car le chemin réseau change souvent.

Pensez-vous que mon projet est faisable ?

Merci par avance à toutes les réponses

 

[MJ13]

Re : Créer un fichier .txt depuis une macro vba : ?

Bonjour,

Cela manque de précision, voire de fichier!

 

[BOISGONTIER]

Re : Créer un fichier .txt depuis une macro vba : ?

Bonjour,

Open "x.txt" For Append As #1
Print #1,"xxxxxx"
Print #1,"yyyyy"
Close#1

JB
Formation Excel VBA JB

 

[RENAUDER]

Re : Créer un fichier .txt depuis une macro vba : ?

Bonjour,
Voici un exemple de fichier de log que j'utilise
Pour info :
Si le fichier indiqué n'existe pas, il est créé au moment où un fichier est ouvert en mode Append, Binary, Output ou Random. (Aide VBA)

Sub CreateFileLog()
    FileNumber = FreeFile    ' Lit le numéro de fichier inutilisé
    LogFile = "C:\Excel\Report.log"
    Open "C:\Excel\Report.log " For Append As #FileNumber
    Print #FileNumber, "Fin du traitement à : " & Now()
    Print #FileNumber, vbLf
    Print #FileNumber, "-----------------------------"
    Close #FileNumber
End Sub

 

[rdep01]

Re : Créer un fichier .txt depuis une macro vba : ?

Merci !

Merci pour l'info sur Append !

Pour préciser, je souhaiterais que la macro :
-ouvre un fichier texte
-"colle" dedans le contenu d'une variable string (plusieurs dizaines de lignes)
-n'enregistre pas le fichier car le chemin change souvent

Ensuite je pourrais enregistrer le fichier à la souris dans le bon répertoire

Je ne suis pas sûr qu'il soit possible de faire Open sans sauvegarder le fichier derrière (Close)

Pensez-vous que mon projet soit faisable ?

 

[RENAUDER]

Re : Créer un fichier .txt depuis une macro vba : ?

Bonjour,

Tu ne pourras pas enregistrer le fichier à la main car le fichier est "ouvert en mode invisible" puis à la fin il est fermé par Close#1
Ce qu'il faut faire c'est enregistrer ton fichier de manière standard puis tu fais :

FileSource= "Le chemin et nom de fichier qui vient d'être crée"
* Demander le nouveau chemin avec par ex. une Inputbox
FileDestination= "Le nouveau chemin" avec le nom de ton fichier
FileCopy FileSource, FileDestination

 

[rdep01]

Re : Créer un fichier .txt depuis une macro vba : ?

Hello !

J'imagine qu'il n'est pas possible d'ouvrir un fichier en mode visible ..

Cela ferait deux accès : un par vba et un par l'utilisateur

C'était exactement ce que je cherchais comme info

Merci beaucoup !