Discussion :

[croky23]

Bonjour le forum
J’ai besoin de vos talents
A partir d’un fichier Excel prenant en charge les macros, je désire par le biais d’un commandbuttom transférer celui-ci vers un compte ftp au format csv (séparateur ; point virgule)
Pouvez-vous m’aider à construire le code si cela est possible
PS /mon niveau est très bas !

Merci

[jfontaine]

Bonjour,

Ci dessous un exemple de code pour l'exportation CSV d'une feuille de donné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
25
26
27
28
29
30
Sub CSV()
 
Dim i As Long
Dim j As Integer
Dim Col As Integer
Dim sh As Worksheet
Dim strligne As String
 
'Feuille contenant les données a exporter
Set sh = Sheets("feuil1")
 
'Chemin et nom du fichier CSV
Open "c:\export.csv" For Output As #1
 
Col = sh.Rows(1).End(xlToRight).Column
 
'Boucle sur les données pour création des lignes de données
For i = 1 To sh.Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To Col
        If strligne <> "" Then strligne = strligne & ";"
        strligne = strligne & sh.Cells(i, Col).Value
    Next j
    Print #1, strligne
    strligne = ""
Next i
 
'Fermeture du fichier
Close #1
 
End Sub

Pour le FTP, j'utilisais un freeware OCX trouvé sur le net qui s'appelait EZFTP.ocx qui était très simple d'utilisation

[croky23]

Merci de cette réponse rapide
si j'ai bien compris le code , celui ci m'enregistre ma feuille excel au format CVS.
ce qui est tres bien
mais pour le tranferer sur un compte ftp j'avous ne pas comprendre
merci

[croky23]

J'ai essayé le code
cela m'enregistre bien mon dossier CVS mais vide (aucune information)
merci

[jfontaine]

tes données commencent bien en A1 et A est une colonne obligatoire?

[croky23]

oui

[jfontaine]

le nom de la feuille a exporté est bien Feuil1. Si non, tu as bien changé le nom sur cette ligne

Code :

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

1
2
'Feuille contenant les données a exporter
Set sh = Sheets("feuil1")

[croky23]

oui ma feuille se nomme matrice j'ai bien remplacé feuil1 par matrice

j'ai quelques informations de transférées mais pas tout te un peu n'importe comment sur la feuille