Macro - importation de données

[Julietta]

Bonjour à tous!

Je suis débutante en Macro...je n'y connais donc rien.

Je dois réaliser un fichier excel de synthèse de plusieurs autres fichiers excel. Je dois donc aller chercher des données dans d'autres fichiers et différents onglet pour les mettre dans mon fichier synthèse qui comporte lui aussi différents onglet.

Pour compliquer la chose...ce fichier sera réutiliser tous les mois...mais les fichiers de base auront changer de nom étant donné qu'on change de mois.

Dans un premier temps je cherche à savoir comment il est possible de prendre la valeur d'une cellule d'un fichier et de l'importer dans mon fichier.
Après j'aurais des opérations à faire entre certaines cellules...
Enfin...si je peux avoir quelque chose d'utomatique pour un suivie mensuel...

J'espère que c'était clair...si jamais hésitez pas!

Je rappelle juste que je suis une vrai débutant en macro...

Merci d'avance

 

[KenDev]

Re : Macro - importation de données

Bonjour Julietta,

Ci joint un zip contenant un classeur excel et un dossier contenant un autre classeur. A extraire n'importe ou tel quel, ouvrir le premier classeur et lancer la sub Recup qui va aller chercher la cellule B7 de
la Feuille "Source" dans le classeur "Data" situé dans le sous-répertoire "Dossier" pour la recopier
dans la feuille "Exploit" en cellule F10.

Cordialement

KD

Option Explicit
Sub Recup()
'déclarations des 2 classeurs et des 2 feuilles concernées
Dim oWb1 As Workbook, oWb2 As Workbook, oWs1 As Worksheet, oWs2 As Worksheet
'initialisation classeur et feuille receveurs
Set oWb1 = ThisWorkbook: Set oWs1 = oWb1.Worksheets("Exploit")
'ouverture et initialisation classeur source et feuille source
Set oWb2 = Workbooks.Open(ThisWorkbook.Path & "\Dossier\Data.xls"): Set oWs2 = oWb2.Worksheets("Source")
'récupère la valeur
oWs1.Cells(10, 6) = oWs2.Cells(7, 2)
'fermer classeur data
Workbooks(oWb2.Name).Close
End Sub

 

[Julietta]

Re : Macro - importation de données

Merci beaucoup!!! Ca va me servir de base à tout mon fichier!