Salut,
je voudrais fusionner des fichiers csv ( du même format) en un seul fichier csv. Puis supprimer ces fichiers csv avant de sauvegarder le fichier fusionné dans un répertoire.
En soit c'est tout simple, j'ai trouvé quelques exemples de codes mais aucun ne fonctionne...
J'ai une base mais ça ne fonctionne pas:
Je pensais que se serait tout bidon à faire mais au final..
Si quelqu'un a déjà travaillé la dessus, je suis preneur d'un petit coups de main. ^^
je voudrais fusionner des fichiers csv ( du même format) en un seul fichier csv. Puis supprimer ces fichiers csv avant de sauvegarder le fichier fusionné dans un répertoire.
En soit c'est tout simple, j'ai trouvé quelques exemples de codes mais aucun ne fonctionne...
J'ai une base mais ça ne fonctionne pas:
Code:
Sub FusionCSV()
Dim newCSVDesarchivage As Object
Set newCSVDesarchivage = CreateObject("Excel.Sheet") 'Créé un objet pour fusionner tous les .csv
newCSVDesarchivage.Sheets(1).Range("A1").Select 'sélectionner la cellule de début
Chemin = "S:\GS-PF\Sécurisation du désarchivage\test" 'Chemin ou se trouvent les fichiers CSV
Fichier = Dir(Chemin & "*.csv") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("bd_export").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
newCSVDesarchivage.SaveAs Filename:="S:\GS-PF\Sécurisation du désarchivage\test\Demande de Desarchivage du.csv", FileFormat:=xlCSV, Local:=True
Set newCSVDesarchivage = Nothing
End Sub
Je pensais que se serait tout bidon à faire mais au final..
Si quelqu'un a déjà travaillé la dessus, je suis preneur d'un petit coups de main. ^^