Copier feuille Excel puis coller dans txt

Signaler
Messages postés
18
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
12 mai 2006
-
Messages postés
46
Date d'inscription
samedi 25 mars 2006
Statut
Membre
Dernière intervention
7 juin 2007
-
Je voudrais copier le contenu d'une feuille Excel et le coller dans un fichier txt. Une fonction spécifique ?
Tout cela en VBA
merci d'avance

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Salut
Sauvegardes-le au format CSV, c'est du texte

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
Messages postés
46
Date d'inscription
samedi 25 mars 2006
Statut
Membre
Dernière intervention
7 juin 2007

Bonjour à vous tous, je te livre un code que tu devra adapter à ton
problème, il te permettra d'appréhender l'utilisation des fichiers txt
pour sauvegarder des feuilles de calculs



Sub Save_tableau()

'Cette macro charge les valeurs des cellules de la plage A1:K25

'dans le fichier txt MonPath\MonNomDeFichier.txt



Open "MonPath\MonNomDeFichier.txt" For Output As #1



'Les données sont stockées dans la feuille 1

For Each c In Worksheets(1).Range("A1:K25")

a = c.Value

Write #1, a

Next c



Close #1



End Sub



Sub Charge_tableau()

Dim a As String



'Cette macro charge les valeurs contenues dans le fichier

'MonPath\MonNomDeFichier.txt

'dans les cellules de la plage A1:K25



Open "D:\Mes Documents\MACRO\EXEL\Save tableau.txt" For Input As #1



j = 0

i = 1



Do While Not EOF(1)

j = j + 1

'La fonction mod vérifie si il y un multiple de 11 colonnes

'déja rempli, si c'est le cas, on repart à la ligne



If j Mod (12) = 0 Then

i = i + 1

j = 1

End If

Input #1, a

Worksheets(2).Cells(i, j).Value = a

Loop



Close #1



End Sub



Bon courage à toi en espérant que celà t'aide un peu

Je reste en ligne si tu as besoin d'un complément.

MAXIMO71
PS Si la réponse vous satistait
pensez à la valider