Regrouper pls classeurs en un seul
Résolu
Mistral_13200
Messages postés
636
Date d'inscription
Statut
Membre
Dernière intervention
-
Mistral_13200 Messages postés 636 Date d'inscription Statut Membre Dernière intervention -
Mistral_13200 Messages postés 636 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Regrouper pls classeurs en un seul
- Comment regrouper plusieurs pdf en un seul - Guide
- Regrouper plusieurs feuilles excel en une seule - Guide
- Comment regrouper des applications sur android - Accueil - Guide Android
- Comment imprimer un tableau excel sur une seule page - Guide
- Assistant google se lance tout seul avec écouteurs - Forum Accessoires & objets connectés
7 réponses
Merci pour ta réponse mais ce n'est pas ce que je demande.
J'ai 30 classeurs *.csv d'un onglet chacun avec les colonnes A, B et C utilisées.
Je voudrais regrouper ces 30 classeur dans un seul classeur (donc 30 onglets) qui s'appellera Synthèse.xlsx.
Je travail avec Excel 2010.
Merci d'avance pour votre aide
J'ai 30 classeurs *.csv d'un onglet chacun avec les colonnes A, B et C utilisées.
Je voudrais regrouper ces 30 classeur dans un seul classeur (donc 30 onglets) qui s'appellera Synthèse.xlsx.
Je travail avec Excel 2010.
Merci d'avance pour votre aide
Re,
Merci pour ta réponse mais ce n'est pas ce que je demande. Ben si, a faire 30 fois, vu que vous ne dites pas si cela doit etre automatique ou manuel
Merci pour ta réponse mais ce n'est pas ce que je demande. Ben si, a faire 30 fois, vu que vous ne dites pas si cela doit etre automatique ou manuel
Effectivement!
Je me suis mal exprimé et je te présente toutes mes excuses.
Je souhaite effectivement une solution automatique, car c'est une tâche que je dois faire tous les mois.
Si tu as une solution je suis preneur.
Je me suis mal exprimé et je te présente toutes mes excuses.
Je souhaite effectivement une solution automatique, car c'est une tâche que je dois faire tous les mois.
Si tu as une solution je suis preneur.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
je te présente toutes mes excuses. Y a pas de lezard
Ces fichiers sont au meme endroit (chemin et repertoire) ??
Les fichier du mois remplacent les fichiers du mois precedent avec mise a jour je suppose !!
je te présente toutes mes excuses. Y a pas de lezard
Ces fichiers sont au meme endroit (chemin et repertoire) ??
Les fichier du mois remplacent les fichiers du mois precedent avec mise a jour je suppose !!
Oui les fichiers csv sont tous dans un même répertoire et j'ai un répertoire par mois.
Je souhaite donc avoir un classeur de synthèse par mois.
A la fin de mois je crée un nouveau classeur dans lequel je colle la macro pour regrouper tous les classeur csv.
Je souhaite donc avoir un classeur de synthèse par mois.
A la fin de mois je crée un nouveau classeur dans lequel je colle la macro pour regrouper tous les classeur csv.
Re,
exemple de code qui cree un classeur, adaptez le disque et le chemin
exemple de code qui cree un classeur, adaptez le disque et le chemin
Sub Import_CSV()
'disque
ChDrive "D"
'repertoire fonction du mois
'pourrait etre une inputbox si besoin de choisir le mois
ChDir "D:\_ACSV\" & Format(Date, "mmmm") & "\"
'fichier existe
Nom_Fichier = Dir("*.CSV")
If Nom_Fichier <> "" Then 'fichier ok
'nouveau classeur
Workbooks.Add
Do While Nom_Fichier <> ""
'nouvel onglet
ActiveWorkbook.Worksheets.Add
'import fichier cvs
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Nom_Fichier, Destination:=Range("$A$1"))
'.CommandType = 0
'.Name = Nom_Fichier ' voir pour le nom de l'onglet
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
'renomme l'onglet
ActiveSheet.Name = Nom_Fichier ' voir pour le nom de l'onglet
Nom_Fichier = Dir
Loop
'voir pour le repertoire de sauvegarde
ActiveWorkbook.SaveAs Filename:="Synthese_" & Format(Date, "mmmm") & ".xlsx"
ActiveWorkbook.Close False
Else
MsgBox "Attention, pas de fichier ou repertoire !!!!!!"
End If
End Sub