Discussion :

[delasoulsk]

Bonjour à tous,

Je suis nouveau sur le forum et débutant sur VBA, et j'aurai souhaité avoir de l'aide sur le sujet.
En effet, j'ai testé une macro me permettant de fusionner plusieurs classeur dans un seul, mais malheureusement elle ne fonctionne pas trop. En gros, j'ai 3 fichiers excel via une macro j'aurai souhaité copier toutes les lignes des des 3 fichiers et les copiers les une en dessous des autres dans un seul fichier.

ci-dessous le code que j'ai essayé sur MAC PRO avec EXCEL 2016, mais en vain :
Pourriez vous svp me débloqué ou si non me filer un autre tuyau
Je vous remercie par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Classeur2()
Range("A1").Select
Path_var = Directory_var & "/Users/delasoulsk/Documents/ALLIANZ/consolidation test/" --->>> 'est le chemin d'accès vers le dossier dans quel sont stockés les 3 fichiers excels. 
File_var = Dir(Path_var & "*.xls")
Do While Fichier <> ""
Workbooks.Open Filename:=Path_var & File_var
Range("Feuil1").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
Loop
End Sub

[kiki29]

Salut, commence par baliser ton code

voir fusion fichiers xls*, txt d'un dossier qu'il te faudra adapter à ton contexte, ne t'attends pas à trouver du tout cuit.

[delasoulsk]

Merci pour le tuyau mais je n'arrive pas à ouvrir ce document "fusion fichiers xls*, txt d'un dossier "

[RyuAutodidacte]

Bonjour,

PS : si tu es sur Mac, il est bien de le préciser au moment de créer la discussion, je pense qu'en modifiant ton post 1 tu peux encore le faire
en précisant via la liste sur quel excel tu es, je suppose que ici c'est 2011 (à moins que ça soit 2016) - pour baliser le code regarde ma signature il y a un exemple

en effet l'une des solutions est de passer par Dir en mettant les fichiers concernés dan un dossier précis

le chemin sur Mac sous Excel à une séparation qui est ":" et non "/"

ouvre l'un des fichiers à fusionner puis;
tu peux facilement avoir ce chemin (lorsque tu es dans l'onglet développeur) en activant la fenêtre d'exécution puis tu écris dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print ThisWorkbook.Path

puis valide avec la touche Enter/Retour

En écrivant ce code et en validant avec la touche Enter, tu peux récupérer le chemin sur un Mac
Ca ressemblera à qq ch comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Macintosh HD:Users:NomUtilisateur:Desktop:DeveloppezCom:UTF8"

il faudra rajouter ": à la fin comme cela mais avec ton chemin à toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Macintosh HD:Users:NomUtilisateur:Desktop:DeveloppezCom:UTF8:"

Donc pour l'utilisation d'un Dir Simple (non récursif ça sera pour bcp plus tard), teste d'abord cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Fusion()
Dim Chm As String, currentPath As String
Chm = "Mettre_Le_Chemin_Recupéré_par_ tes_ soins"
 
chemin = Dir(Chm)
Do Until chemin = vbNullString
    Debug.Print chemin
    chemin = Dir()
Loop
End Sub

Voit le résultat dans la fenêtre d'exécution

PS : salut kiki29 : il a envoyé :

ci-dessous le code que j'ai essayé sur macbook pro, mais en vain

[RyuAutodidacte]

Pour la suite comme tu es étudiant il te faut faire un minimum de travail personnel
Donc je vais te donner des indices; dans la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Do Until chemin = vbNullString
    Debug.Print chemin
    chemin = Dir()
Loop

il faudra :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Do Until chemin = vbNullString
    'obtenir la dernière ligne du classeur de destination
    'Ouvrir le classeur à copier
    'copier la plage source vers la plage de destination à partir de la dernière ligne obtenu
    'Fermer le classeur source sans l'enregistrer
    chemin = Dir()
Loop

Voilà à toi de jouer

[delasoulsk]

merci pour tes éléments de réponses, en effet, je suis étudiant en stage dans un cabinet de RH et je voulais gagner du temps en trouvant une macro me permettant de faire cette consolidation rapide de données. Je suis vraiment novice dans le sujet et j'y vais par tâtonnement...

[RyuAutodidacte]

ces réponses tu peux les trouver facilement soit en utilisant la Faq Excel soit en faisant des recherches internet du styles :
- "vba ouvrir fichier"
- "vba fermer fichier"
- "vba dernière ligne"
- … …
par exemple

[delasoulsk]

ok très bien je regarde, en tout cas merci pour l'aide je vais encore fouiller, pour info je suis sur mac avec excel 2016. Peut être qu'en codant sur un pc ça serait beaucoup plus simple, parce que là je galère vraiment et je ne suis pas habitué au mac !