mulraf
Messages postés18Date d'inscriptionvendredi 24 février 2006StatutMembreDernière intervention12 mai 2006
-
6 avril 2006 à 16:08
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007
-
7 avril 2006 à 14:43
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
MAXIMO71
Messages postés46Date d'inscriptionsamedi 25 mars 2006StatutMembreDernière intervention 7 juin 2007 7 avril 2006 à 14:43
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