Copier et ajouter cellules dans un fichier txt

Bonjour,

Par le biais d'une macro, je cherche à copier les cellules C4:J14 (dans l'exemple du fichier Excel joint) dans un fichier txt (voir fichier txt exemple).

Autre demande Je voudrais que les valeurs s'ajoutent dans le même fichier txt dans le cas d'un nouvel export de données. (je crois qu'il faut utiliser la fonction Append).

Merci pour votre.

Bonne soirée.

David_25

Bonsoir David_25

Mets cette macro dans ton fichier excel et teste, en changeant bien sûr le chemin de ton fichier texte

Sub Copie()

Application.ScreenUpdating = False
On Error GoTo CodeErreur
Dim Tabl() As Variant
Dim IndexFichier As Integer
Dim MonFichier As String
Tabl = Range("C4:J14").Value
MonFichier = "C:\Test\Fich.txt" '<-- mettre ici le nom du fichier à lire
IndexFichier = FreeFile()
Open MonFichier For Append As #IndexFichier 'ouverture
L = ""

Print #IndexFichier, ""

For i = 1 To UBound(Tabl)
    For j = 1 To UBound(Tabl, 2)
        L = L & Tabl(i, j) & Chr(9)
    Next j
    Print #IndexFichier, L
    L = ""
Next i

Close #IndexFichier
Exit Sub
CodeErreur:
MsgBox "Une erreur s'est produite..."
Application.ScreenUpdating = True
End Sub

Bonne soirée

Re

Supprime

Print #IndexFichier, ""

au début si ce n'est pas nécessaire

Bye

bonsoir Patty5046.

Merci c'est exactement ce que je voulais. Parfait

Bonne soirée

David_25

Bonjour David_25, bonjour le forum

Contente pour toi

Bonne journée et bonne continuation

Rechercher des sujets similaires à "copier ajouter fichier txt"