Copie des données d'un fichier CSV vers fichier XLSM

corvelc

XLDnaute Occasionnel
Bonjour à tous,
Après recherche sur le forum, j'ai essayé via une macro de copier des données d'une feuille d'un fichier CSV vers une feuille d'un fichier XLSM.
Malgré le code récupéré et aménager, je n'arrive pas à copier les données sous le bon format.
J’ai certainement raté ou mal compris quelque chose dans l'exemple récupéré. Sachant que j’ai aussi utilisé le générateur de macro.
Si vous pouviez me dire ce qui ne colle pas dans mon code ci-dessous
Merci d'avance

Sub Mac_alim_ficFAP()
'****************************************************************
'** Macro pour alimentation fichier fichier Suivi_consommés DP **
'****************************************************************

' A partir du fichier cible : supression des données avant son alimentation
Range("A1").Select
Selection.CurrentRegion.Select
Selection.ClearContents
'Ouverture du fichier source CSV et copie des données
Workbooks.OpenText Filename:="C:\Documents\fichierFAP.csv", Origin:=xlWindows, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
' Copie des données du fichier source vers le fichier cible
Windows("Fichier_cible.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' fermeture fichier source
Windows("fichierFAP.csv").Activate
ActiveWindow.Close
' sauvegarde du fichier cible
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents\Fichier_cible.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
End Sub
 

Discussions similaires