Discussion :

[fthem]

SAlut
Est ce qu'il est possible depuis un fichier excel de créer un fichier .txt ou .csv ne reprenant qu'une partie de ce fichier excel
enfait dans mon fichier excel, j'ai une entête et dessous un tableau qui peut étre plus ou moins long et je ne voudrais mettre dans mon fichier .txt ou . csv que les données du tableau
Quelqu'un aurait-il un code permettant de faire ce genre de manip???
Merci
Voila une partie de mon code qui me permet d'enregistrer mon fichier excel entier en .csv (par contre lorsque je veu ouvrir ce .csv , je n'arrive pas à le voir avec des ; il me l'ouvre au format excel j'ai l'impression que ça ne change que l'extension???

Code :

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

1
2
3
4
5
If Dir("C:\TEMP\", vbDirectory) <> "" Then
        'enregistrement de la FDM à envoyer par FTP
        are = Left(Worksheets(1).Range("L2"), 3)
        fdm1 = "C:\TEMP\" & Range("L2") & ".CSV"
        ThisWorkbook.SaveAs (fdm1)

[JackOuYA]

Bonjour :

Tiens voila par exemple comment créer un .csv des lignes sélectionnées :

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
17
18
19
20
21
22
23
24
'
' Fonction d'export en Csv de la sélection
'
Private Sub ExporteCSV()
 Dim stF As String
 Dim c As Range
 Dim rL As Range
 Dim iC As Integer 'Nombre de colone déterminé par 1° ligne sélectionné
 Dim i As Integer
 Dim f As Integer
  stF = Application.GetSaveAsFilename
  If stF <> "Faux" Then
    f = FreeFile
    iC = Intersect(Selection.Rows(1), Selection.Cells(1, 1).CurrentRegion).Columns.Count
    Open stF For Output As #f
    For Each rL In Selection.Rows
      For i = 1 To iC
        Print #f, rL.Cells(1, i) & ";";
      Next
      Print #f, ""
    Next
    Close #f
  End If
End Sub

[fthem]

merci pour ton code qui devrait me faire avancer
pour les colonnes il faut toutes les compter sans tenir compte des cellules fusionnées????
En fait il faut que je cré un fichier csv dans lequel j'envoie les données des cellules sélectionnées
mon code ne fait qu'enregistrer xls en csv il n'est donc plus valable??
PUpuis-je activer ta fonction en cliquant sur un bouton et en plus je voudrais enregistrer le .csv créé avec ce nom:

Code :

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

1
2
are = Left(Worksheets(1).Range("L2"), 3)
         fdm1 = "C:\TEMP\" & Range("L2") & ".CSV"

Excuses mais je ne suis pas trés fort ...

[fthem]

je n'arrive pas à modifier ton code pour ne sélectionner qu'une plage de cellules
y-aurait-il quelqu'un qui pourrait m'aider?
MERCI

[JackOuYA]

Bonsoir,

le code précédent fonctionne avec une selection de lignes..

pour une selection d'une plage quelconque:

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
17
18
Private Sub ExporteCSV()
 Dim stF As String
 Dim c As Range
 Dim rL As Range
 Dim f As Integer
  stF = Application.GetSaveAsFilename
  If stF <> "Faux" Then
    f = FreeFile
    Open stF For Output As #f
    For Each rL In Selection.Rows
      For Each c In rL.Cells
        Print #f, c & ";";
      Next
      Print #f, ""
    Next
    Close #f
  End If
End Sub

[fthem]

Excelent
j'ai mis ton code sous un bouton ç afonctionne du tonnerre
mais, j'aimerai ne pas sélectionner manuellement,
en fait je voudrait lui prédéfinir une plage de cellules (de A17 à O78 mon soucis c'est que cela part toujours de A16 mais 78 peut varier )
en cliquant sur le bouton cela crée le fichier .csv sans demander ou je l'enregistre,( je défini le dossier temporaire) et ensuite moi j'ai le code pour pousser ce fichier dans mon ftp
Tout cela en transparence
excuses moi mais j'en profite tu as l'air d'avoir les compétences pour m'aider
Merci encore