Discussion :

[nicolas21240]

bonjours

je suis un debutant en excel vb
mais j'aimerais copier les valeurs d'une plage de cellules et de les mettre dans un fichier texte

voici une partie du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'copie des donnees
 
Range("I18:I20").Select
Selection.Copy
 
'ouverture du fichier et ecriture
 
Const ForWriting = 2
   Dim fso, f
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("C:\Documents and Settings\Nicolas.MAISON-7C036503\Bureau\essais.txt", ForWriting, True)
 
f.write "toto;tata"

et a la place de toto;tata je voudrais mettre la selection copier

y a t'il une autre instruction

merci d'avance

[ouskel'n'or]

Bonjour Nicolas, bienvenue sur le forum
Je te passe un code tout fait qui ne passe pas par FSO

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Ecrire()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
    DerniereLigne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerniereColonne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Open "D:\txt\LeFichier.txt" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula + ";";
            'pour séparateur ";" 
            'tu remplaces si tu souhaites que ton séparateur soit une virgule ou une tabulation
        Next j
        Print #1, f.Cells(i, j + 1).Value
    Next i
    Close #1
End Sub

A+

NB - Tu peux utiliser Write mais Write ajoute des guillemets à chaque mot

[nicolas21240]

merci beaucoup

et je tient a preciser que ce site est genial

[AlainTech]

Si tu as obtenu la réponse à ton problème, un petit clic sur le bouton , en bas de discussion, indiquera, à ceux qui cherchent à aider les autres, qu'ils ne doivent pas lire celle-ci.

Merci