Consolidation fichiers

Est qu’il y a une macro qui pourrait m’aider à faire les étapes suivantes

Il y a une 50 de fichiers se trouvant dans un répertoire. Dans chaque fichier il y a un onglet nommé « base ».

Je souhaite copier tous ces onglet « base » dans un seul fichier et ensuite créer une consolidation de tous les onglets dans un seul onglet.

A noter qu’il y a une protection avec un mot de passe « cdg » sur les fichiers

Si quelqu'un pourrait m’aider ça me ferait gagner des heures de travail.

Merci d’avance

hello

à raison de 10 secondes pour copir coller un fichier, 50*10=500 secondes = 8 min et 30 sec

le temps de faire un programme VBA, de le tester, de le modifier, retester* et enfiin faire tourner...

sans compter le temps sur le forum

vois-tu j'adore l'informatique, et à titre d'exercice je comprends ta question (et je suis incapable d'y répondre), mais ce ne sera pas économiquement rentable.

*quoique : nos spécialistes sur ce site sont hyper-rapides pour faire du code VBA.

Bonsoir,

avec ce code, tu peux ouvrir les fichiers avec mot de passe

Quelques règles :

- le mot de passe est "cdg"

- tous les fichiers à ouvrir sont dans le même répertoire que le fichier de récapitulation, et uniquement ceux-ci (ils sont tous ouverts)

- ils contiennent tous un onglet nommé "base"

Pour la consolidation, il faudrait voir la structure de tes fichiers (Recap, et "base")

Sub ouvrir_avec_mdp()
Dim Fichier As String
Dim Fichier_Recap As String
Application.ScreenUpdating = False
ChDir ActiveWorkbook.Path
Fichier_Recap = ActiveWorkbook.Name
Fichier = Dir("*.xls")
If Fichier = "" Then Exit Sub
Do Until Fichier = ""
    If Fichier <> Fichier_Recap Then
        Workbooks.Open Fichier, Password:="cdg"
        Workbooks(Fichier).Sheets("base").Copy After:=Workbooks(Fichier_Recap).Sheets(1)
        Workbooks(Fichier).Close
    End If
    Fichier = Dir
Loop
End Sub

Merci pour ce retour rapide,

2 questions complémentaires

Comment est-ce que je pourrais rajouter le nom du fichier d'origine a l'onglet "base" qui a été copié dans le nouveau classeur

Pour la consolidation des données dans un seul onglet

Il y a :

180 lignes et 15 colonnes dans chaque onglet

L'idée est de mettre les données à la ligne

1

181

360

etc.......

merci d'avance