Rappatriement de données

[GUYANAIS]

Bonjour 🙂,

Je recherche une macro qui permet de rapatrier des données d'un fichier soit excel ou open office pour les intégrer dans mon classeur Excel. Je vous explique des utilisateurs remplissent un tableau que je leur fourni afin de rentrer des renseignements. Les utilisateurs me revoient en fin de mois leur tableau et je fais une consolidation dans mon excel.
Plutôt que de faire du copier coller, je voudrais automatiser la tache en ayant le choix du nom du fichier afin d'enregistrer les données dans mon tableau Excel.
SI vous avez un exemple je suis preneur.

 

[JNP]

Re : Rappatriement de données

Bonjour Guyannais, le forum 🙂,
Si tu passes par l'enregistreur de macro (récupération en copier/coller par exemple), tu obtiens cela :

Sub Macro1()
    Workbooks.Open Filename:="F:\Documents JNP\Alcootest.xls"
    Range("B9:G20").Select
    Selection.Copy
    Windows("Classeur2").Activate
    ActiveSheet.Paste
    Windows("Alcootest.xls").Activate
    ActiveWindow.Close
End Sub

Si tu veux déterminer le fichier à traiter avec une fenêtre d'ouverture, tu peux utiliser

CheminDépart = Application.GetOpenFilename("Fichier XLS (*.xls), *.xls")

Bon courage 😎