Microsoft 365 Extraire données Excel

Vadg

XLDnaute Nouveau
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
 
Solution
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 :
VB:
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 &...

Staple1600

XLDnaute Barbatruc
Re

J'ai refait un test en mettant des formules dans les cellules D16 et E16.
Cela fonctionne toujours.
Voila les formules utilisées lors de mon test
=LIGNE()*COLONNE()
=ADRESSE(LIGNE();COLONNE();4)
=SOMME(D1:D15)
=SOMME(E1:E15)

Fais le test et tu constateras toi-même que cela fonctionne aussi si il y a des formules dans les cellules.
 

job75

XLDnaute Barbatruc
Les fonctions ExecuteExcel4Macro renvoient les valeurs des cellules D16 et E16, quelles que soient les formules qu'elles peuvent contenir.

Si ces cellules sont vides la valeur zéro est renvoyée.

Maintenant quand on ne sait pas faire on joint les fichiers.

Bonne nuit.
 

Statistiques des forums

Discussions
312 331
Messages
2 087 360
Membres
103 529
dernier inscrit
moket07