Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Création d'un fichier txt

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion chrismydo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

chrismydo

Guest
Bonjour
Je souhaite créer un bouton avec un code qui :
- creer un fichier .txt
- copier le contenu de certaines cellules parmit du texte, genre
Bonjour Monsieur ("cellule 5" de la ligne active) retour a la ligne
adresse ("cellule 12" de la ligne active) etc....
nommer avec le contenu contenation de 2 cellules de la ligne active (ex 7 et 3) et enregistrer le fichier avec l'extention .mac dans un endroit bien precis du style c:\programmefiles\rep1\(cel7et3).mac

Quelqu'un sait il m'écrire le code ?
Cordialement
 
Trier par date Trier par votes
Re : Création d'un fichier txt

Bonjour le forum,

Le bout de code ci-dessous devrait répondre au besoin :

Public Sub P_EcrireDansFichier()
Dim L_Compteur As Long
Dim A_NomFichier As String
L_Compteur = FreeFile
'---construction du nom de fichier (à adapter si besoin)
A_NomFichier = "d:\" & Cells(ActiveCell.Row, 7) & Cells(ActiveCell.Row, 3) & ".mac"
'---Ouverture (ou création s'il n'existe pas) du fichier pour écriture
Open A_NomFichier For Append As #L_Compteur
'---Ecriture du "Monsieur"
Write #L_Compteur, Cells(ActiveCell.Row, 5)
'---Ecriture de l"adresse"
Write #L_Compteur, Cells(ActiveCell.Row, 12)
'---Fermeture du fichier
Close #L_Compteur
End Sub

Cdt, Hamcec.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
434
fd.30
F
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
217
pamino
P
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
327
Phil69970
D
  • Résolu(e)
Microsoft 365 Copier / coller données spécifiques documents txt vers Excel
Réponses
3
Affichages
772
Staple1600
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
F
  • Question Question
XL 2021 création d'un fichier "xlsm"
Réponses
5
Affichages
494
flag06
F
  • Question Question
Microsoft 365 Cellule multiligne dans fichier texte.
Réponses
2
Affichages
542
sylvanu
L
  • Question Question
XL 2013 Macro pour exporter sur excel certaines données d'un fichier txt
Réponses
1
Affichages
732
sylvanu
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
766
patricktoulon
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
L
  • Question Question
Microsoft 365 création de fichier .txt par ligne non vide en VBA
Réponses
3
Affichages
657
max.lander
M
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
985
oguruma
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
787
job75
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
F
  • Question Question
Microsoft 365 Exporter massivement le contenu de chaque cellule en .jpg ou .txt
Réponses
4
Affichages
1 K
Frank2000
F
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
3 K
TooFatBoy
L
  • Résolu(e)
XL 2019 Copier automatiquement une date tableau excel
Réponses
2
Affichages
680
lotislogan
L
K
  • Question Question
Microsoft 365 Comment afficher des infos d'un fichier ouvert avec "GetOpenFileName"
Réponses
11
Affichages
889
fanch55
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
1 K
A-F
A
T
  • Question Question
Microsoft 365 Copier/coller d'un onglet à l'autre correspondant au mois
2
Réponses
19
Affichages
2 K
TAL
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…