Bonjour à tous,

Je reçoit régulièrement plusieurs fichiers de différents utilisateurs sur lequel j'ai environ 50 données (A13:AM13)
Je récapitule les données de tous ces fichiers sur un autre fichier, les unes après les autres.

Je souhaite pouvoir effectuer la manip suivante :

J'ouvre mon fichier récapitulatif
Je lance la macro
Celle-ci me demande quel classeur ouvrir, une fois le classeur choisi, la macro copie les cellules de la bonne feuille, puis les colle (uniquement les valeurs) dans mon fichier récapitulatif au bon endroit, après la dernière ligne utilisée.

A partir d'internet, j'ai trouvé ces lignes de code, mais ça ne fonctionne pas :

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
18
19
20
21
22
23
24
25
26
27
Sub COPIEDONNEES()
Dim NomFichierEntree
Dim Sortie As Workbook
Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
 
'Choisir fichier
NomFichierEntree = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
' On verifie que l'on a selectionné un nom de classeur
If NomFichierEntree <> False Then
' On ouvre le classeur
Set Sortie = Workbooks.Open(NomFichierEntree)
 
'Référence feuille origine des données à copier 
Set FeuilleOrigine = ThisWorkbook.Sheets("ExportQP")
 
'Référence la feuille de destination des cellules copiées
Set FeuilleDestination = Sortie.Sheets("Fichier")
 
' On copie les cellules de la feuille désirée vers la feuille de sortie
With FeuilleOrigine
.Range("A13:AJ13").Value = FeuilleDestination.Range("A65536").En d(xlUp)(2).Value
End With
 
' On ferme le classeur
Sortie.Close
End If
End Sub
Set FeuilleOrigine = ThisWorkbook.Sheets("ExportQP") : Erreur 9 L'indice n'appartient pas à la sélection
Même remarque pour la ligne Set FeuilleDestination


Merci de votre aide