Discussion :

[Aurelien27]

Bonjour,

J'essaie d'exporter une feuille d'un classeur en xlsm dans un nouveau classeur csv.

L'exportation se fait correctement cependant le problème est que toutes les données s'écrivent uniquement dans la première colonne, alors que les données devraient être réparties de la colonne A à M.

Voici mon code :

'Création du dossier s'il n'existe pas
On Error Resume Next
MkDir ThisWorkbook.Path & "\Intégration Tickets"

'Chemin d'accès du et nom du fichier
MyFile = ThisWorkbook.Path & "\Intégration Tickets\Incidents" & Year(Date) & "_" & Right("0" & Month(Date), 2) & "_" & Right("0" & Day(Date), 2) & ".csv"

'Sélection, copie et collage des données
Set Plage = Sheets("Modèle").Range("A:M")
Plage.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close

'Effacement de l'onglet "Modèle"
Sheets("Modèle").Range("A2:M500").Clear

Merci d'avance de votre aide

[deedolith]

Salut,

Les fichiers CSV ne sont que des fichiers texte où les données sont séparées par un (ou des) caractères particuliers.
Le meilleur moyen de le vérifier est de l'ouvrir dans un éditeur de texte (Excel interprète les données, pas toujours de la meilleur façon).

[fraflt69]

Bonjour Aurelien27

Je suis assez rompu en VBA avec les exports Excel vers des fichiers CSV et inversement.
Si besoin https://www.developpez.net/forums/d1...ees-sensibles/

[fraflt69]

Pardon hors sujet : ici import
avant de faire un code VBA avez vous essayer de faire dans le menu "Données", "Obtenir des données à partir d'un fichier ", "A partir d'un fichier Texte/ CSV" , c'est l'assistant d'import qui est plus difficile à trouver que dans office2000 pour ceux qui connaissent Excel depuis quelques temps

[fraflt69]

Des fois , il faut rajouter à la ligne SaveAs le parametre Local:=True