Microsoft 365 Extraire données Excel

[Vadg]

Bonjour,

Je souhaiterai extraire 2 données de plusieurs fichiers Excel qui se trouvent toutes sur les mêmes cellules (D16 et E16) pour les rapatrier sur un autre fichier.

Merci de votre aide !!

Vadim

 

[Staple1600]

Bonsoir le fil, Vadg

•>Vadg
Tu as consulté les archives du forum?
Cette question a été abordée de nombreuses fois.

EDITION: Bonsoir job75

 

[job75]

Bonjour Vadg, bienvenue sur XLD, JM,

Oui c'est un problème classique, téléchargez les 3 fichiers joints dans le même dossier.

La macro affectée au bouton :

Sub Importer()
Dim chemin$, fichier$, feuille$, adr1$, adr2$, dest As Range, n&, f$
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
fichier = Dir(chemin & "*.xlsx") '1er fichier du dossier
feuille = "Feuil1" 'nom de toutes les feuilles sources
adr1 = "R16C4" '1ère cellule source en notation R1C1
adr2 = "R16C5" '2ème cellule source en notation R1C1
Set dest = [A2] '1ère cellule de destination, à adapter
Application.ScreenUpdating = False
dest.Resize(Rows.Count - dest.Row + 1, 3).ClearContents 'RAZ
While fichier <> ""
    n = n + 1
    dest(n) = fichier
    f = "'" & chemin & "[" & fichier & "]" & feuille & "'!"
    dest(n, 2) = ExecuteExcel4Macro(f & adr1)
    dest(n, 3) = ExecuteExcel4Macro(f & adr2)
    fichier = Dir 'fichier suivant du dossier
Wend
End Sub

A+

 

[Vadg]

Merci Job75

 

[Staple1600]

Re

•>Vadg
Merci à toi d'avoir penser à me saluer.
Ça fait plaisir.
Ça donne vraiment envie d'aider les demandeurs...
(cf message#2)

 

[Vadg]

Dsl je n'avais pas vu votre réponse

 

[Vadg]

Je me permets de revenir vers vous étant donné que la macro ne fonctionne pas mais à mon avis pour une raison que je n'avais évoqué dans mon post, les données à rappatrier sont des sommes d'autres cellules du classeur.

Existe t il une solution dans ce cas ?

Merci encore

 

[Staple1600]

Re

•>Vadg
Je me permets d'intervenir (job75 n'étant pas dans les parages)
Tes classeurs Excel ont quelle extension?
*.xlsx ? ou autre ?

Et qu'est-ce que tu entends par: ne fonctionne pas ?

 

[Vadg]

Merci

Les classeurs sont en .xlsx
Cela rapatrie des données à 0.
En ayant fait un copier/coller valeur d'un des fichiers les données étaient rapatriés.

 

[Staple1600]

Re

Tu as fait les adaptations nécessaires?
Celles indiquées dans le code de job75
(après les commentaire après les ' )

 

[Vadg]

Oui sauf si j'ai loupé quelque chose mais je ne crois pas...

 

[Staple1600]

Re

Est-ce que déjà cela fonctionne avec les fichiers de test fournis pas Job75?
EDITION: J'ai fait le test. Cela fonctionne.

 

[Vadg]

oui sans problème

 

[Staple1600]

Re

Donc, si le test fonctionne (ce que je confirme -cf mon message précédent) mais cela ne fonctionne pas sur tes propres fichiers.
Je te laisse conclure

 

[Vadg]

mais la question que je me pose est de savoir s'il est possible de rapatrier des données qui sont des résultats de fonction (en l’occurrence somme) ? faut-il adapter la macro dans ce cas ?