Copier des cellules à partir d'un classeur fermé

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 :

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").Copy Destination:=FeuilleDestination.Range("A65536").En d(xlUp)(2)
End With

' On ferme le classeur
Sortie.Close
End If
End Sub

Merci de votre aide

Bonjour

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

Oui !!!! Message d'erreur ?

Ne copie pas les données ?

Dans la macro

.Range("A13:AJ13").Copy

Et toi tu veux

j'ai environ 50 données (A13:AM13)

A suivre

Bonjour,

Lorsque j'effectue le debogage :

Set FeuilleOrigine : Erreur d'exécution '9' L'indice n'appartient pas à la sélection

Idem pour set FeuilleDestination

La ligne à prendre est bien A13:AM13

Merci

Bonjour

As-tu la possibilité de mettre tous les fichiers à traiter dans le même répertoire ?

De cette façon, en une seule manip, il y a moyen de récupérer toutes les lignes A13:AM13 de chaque fichier sans avoir à choisir le fichier à ouvrir.

A te relire

Amicalement

Nad

Bonjour

Questions basiques

Tes feuilles on vraiment le même nom, respect des majuscules et majuscules

A lire

Bonne journée