Bonjour,
J'ai un fichier de données au format Excel que j'aimerais exporter en CSV à l'aide d'une macro.
Mon export fonctionne, mais je ne comprend pas pourquoi Excel saute des lignes à l'export...
Description du fichier de données :
un seul onglet
les intitulés des colonnes sont en ligne 9
Mes données à exporter sont donc sur la plage A9:AM3000
La macro crée bien le CSV mais il comporte les intitulés de colonnes en ligne 1
puis il saute 9 lignes blanches, et les données commencent à la ligne 10 (comme dans le fichier de données d'origine).
Voici le code de la macro que j'utilise :
Sub Export_DATA()
' Import des données de production
'Box de validation
Rep = MsgBox("Voulez-vous continuer ?", vbYesNo + vbQuestion, "création du CSV ?")
If Rep = vbYes Then
GoTo SUITE
Else
GoTo FIN
End If
SUITE:
' Selection et enregistrement CSV
ActiveSheet.Range("A9:AM3000").Select
Selection.Copy
'EnregistrerClasseur()
Dim strFichier As String
strFichier = ActiveWorkbook.Name & "-import_prod" & ".csv"
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strFichier, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
FIN:
ActiveWindow.Close
End Sub
Pouvez-vous me dire comment me débarrasser des lignes blanches dans le fichier CSV exporté ?
Merci
)
J'ai un fichier de données au format Excel que j'aimerais exporter en CSV à l'aide d'une macro.
Mon export fonctionne, mais je ne comprend pas pourquoi Excel saute des lignes à l'export...
Description du fichier de données :
un seul onglet
les intitulés des colonnes sont en ligne 9
Mes données à exporter sont donc sur la plage A9:AM3000
La macro crée bien le CSV mais il comporte les intitulés de colonnes en ligne 1
puis il saute 9 lignes blanches, et les données commencent à la ligne 10 (comme dans le fichier de données d'origine).
Voici le code de la macro que j'utilise :
Sub Export_DATA()
' Import des données de production
'Box de validation
Rep = MsgBox("Voulez-vous continuer ?", vbYesNo + vbQuestion, "création du CSV ?")
If Rep = vbYes Then
GoTo SUITE
Else
GoTo FIN
End If
SUITE:
' Selection et enregistrement CSV
ActiveSheet.Range("A9:AM3000").Select
Selection.Copy
'EnregistrerClasseur()
Dim strFichier As String
strFichier = ActiveWorkbook.Name & "-import_prod" & ".csv"
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strFichier, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
FIN:
ActiveWindow.Close
End Sub
Pouvez-vous me dire comment me débarrasser des lignes blanches dans le fichier CSV exporté ?
Merci