[Excel] Copier le contenu de plusieurs fichier Excel dans un seul

Copier le contenu de plusieurs fichier Excel dans un seul [Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 10-09-2013 à 13:09:20    

:hello:

 

Je chercher à copier dans un seul et unique fichier Excel, le contenu de plusieurs fichiers Excel contenus dans le même répertoire.

 

Les fichiers sont au format csv
Les fichiers n'ont qu'un seul onglet mais pas le même nom (les onglets)
Les fichiers comportent 5 colonnes
Il ne doit être repris que les lignes à partir de la ligne 2 des fichiers

 

Mon niveau de programmation: 1/20

 

Voici ce que j'ai trouvé sur internet:

 
Code :
  1. Sub Compilation()
  2. Dim Temp As String
  3. Dim Ligne As Long
  4. Temp = Dir(ActiveWorkbook.Path & "\*.csv" )
  5. Application.DisplayAlerts = False
  6. Do While Temp <> ""
  7. If Temp <> "Recap.xls" Then
  8. Workbooks.Open ActiveWorkbook.Path & "\" & Temp
  9. Workbooks(Temp).Sheets(1).Range("A1" ).CurrentRegion.Copy
  10. Workbooks("Recap.xls" ).Sheets(1).Activate
  11. Ligne = Sheets(1).Range("A65536" ).End(xlUp).Row + 1
  12. Range("A" & CStr(Ligne)).Select
  13. ActiveSheet.Paste
  14. Workbooks(Temp).Close
  15. End If
  16. Temp = Dir
  17. Loop
  18. Range("A1" ).Select
  19. Application.DisplayAlerts = True
  20. End Sub
 

Le problème est:
Cela me copie toutes les lignes y compris la première.
Cela me copie les lignes en remplaçant les colonnes par des point virgule.

 

Par avance merci pour votre aide précieuse.

Message cité 1 fois
Message édité par albibak le 10-09-2013 à 14:35:51

---------------
Petit forum Retro (gaming, films, BD...) : https://www.gamers-things.com/forum
Reply

Marsh Posté le 10-09-2013 à 13:09:20   

Reply

Marsh Posté le 10-09-2013 à 13:56:05    

 
             Bonjour,
 
             il y a des exemples sur le net mieux conçu que celui-ci …
 
             Rien qu'en lisant l'aide de la méthode Range.Copy
             on s'aperçoit que l'on peut préciser sa Destination, donc une seule ligne de code suffit !
 
             Et c'est justement parce l'on est débutant  (toute sa vie ?!  :sarcastic:)  que l'on se doit de lire l'aide …
 

albibak a écrit :

Les fichiers sont au format csv


             Hélas ne veut rien dire car le délimiteur change d'un fichier .csv à un autre …
             Donc ouverture du fichier avec le Bloc-notes pour vérifier sa structure …
             
             Ne pas oublier aussi la possibilité de l'ouvrir manuellement dans Excel en utilisant l'Enregisteur de macros,
             donnant ainsi une base de code fiable quant à son ouverture …
 

albibak a écrit :

Les fichiers n'ont qu'un seul onglet mais pas le même nom (les onglets)


             Normal car il ne peut y avoir d'onglet vu que ce ne sont pas des fichiers Excel !
             A la limite on s'en moque car pas de rapport avec la problématique …
 

albibak a écrit :

Les fichiers comportent 5 colonnes
Il ne doit être repris que les lignes à partir de la ligne B des fichiers


             Qu'est-ce donc qu'une ligne B des fichiers ?‼
             Une ligne B n'existe pas dans Excel, une colonne si !
 
             De toute manière, rien qu'en renseignant bien la source de la copie …
 

albibak a écrit :

Cela me copie les lignes en remplaçant les colonnes par des point virgule.


             ???   Peut-être le code ne correspond pas aux besoins
                    (normal car un copier/coller du net sans rien y connaitre donne rarement quelque chose de bon sans s'investir),
                    et dans ce cas je peux me répéter :

Citation :

       Ne pas oublier aussi la possibilité de l'ouvrir manuellement dans Excel en utilisant l'Enregisteur de macros,
       donnant ainsi une base de code fiable quant à son ouverture …


 

Reply

Marsh Posté le 10-09-2013 à 14:10:41    

Bonjour,
 
Merci d'avoir prit le temps de me répondre, mais je constate que la plupart de tes réponses sont toujours dans le même ton, et c'est dommage.
Etre débutant n'est pas une tare, et prendre les gens pour des imbéciles n'aide pas forcément à faire avancer au contraire :/
 
Si je demande de l'aide sur la macro que j'ai trouvé pour essayer de l'adapter, je m'attends à autre chose qu'à ça :(


---------------
Petit forum Retro (gaming, films, BD...) : https://www.gamers-things.com/forum
Reply

Marsh Posté le 10-09-2013 à 14:32:16    

 
             Nan, nan, nan, faut pas pousser Mémé dans les orties !
 
             Déjà c'est limite vis à vis des règles du forum, j'aurais pu aussi bien faire appel à la marmotte
 
             Je note au passage les demandes d'éclaircissements de mon message sont sans réponse, cela revient donc à ceci :
 
            http://smileys.sur-la-toile.com/repository/Grands_Smileys/voyante-2943.gif
 
             A bon entendeur …
 
 
            _________________
            Lire, c'est s'investir …
 

Reply

Marsh Posté le 10-09-2013 à 14:35:29    

[:fred999]  
 
 
Sinon, quelqu'un pour m'aider dans ma demande?


---------------
Petit forum Retro (gaming, films, BD...) : https://www.gamers-things.com/forum
Reply

Marsh Posté le 10-09-2013 à 20:38:06    

bonjour
 
http://msdn.microsoft.com/en-us/li [...] 37760.aspx


Message édité par qmike le 10-09-2013 à 20:42:57
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed