Microsoft 365 Extraire données Excel

  • Initiateur de la discussion Initiateur de la discussion Vadg
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 &...
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.
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
160
  • Question Question
Microsoft 365 Carte géogrpahique
Réponses
6
Affichages
285
  • Question Question
XL pour MAC Graphique
Réponses
12
Affichages
264
Réponses
2
Affichages
145
Retour