Microsoft 365 Extraire données Excel

Staple1600

XLDnaute Barbatruc

• 18 Mars 2020

• #2

Bonsoir le fil, Vadg

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

EDITION: Bonsoir job75

 

Dernière édition: 18 Mars 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mars 2020

• #3

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 & "[" & fichier & "]" & feuille & "'!"
    dest(n, 2) = ExecuteExcel4Macro(f & adr1)
    dest(n, 3) = ExecuteExcel4Macro(f & adr2)
    fichier = Dir 'fichier suivant du dossier
Wend
End Sub

A+

 

Pièces jointes

• Importer(1).xlsm

  17.3 KB · Affichages: 15
• Source1.xlsx

  9.3 KB · Affichages: 9
• Source2.xlsx

  9.3 KB · Affichages: 8

Vote positif 0 Vote négatif

Solution

V

Vadg

XLDnaute Nouveau

• 18 Mars 2020

• #4

Merci Job75

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2020

• #5

Re

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

 

Vote positif 0 Vote négatif

V

Vadg

XLDnaute Nouveau

• 18 Mars 2020

• #6

Dsl je n'avais pas vu votre réponse

 

Vote positif 0 Vote négatif

V

Vadg

XLDnaute Nouveau

• 18 Mars 2020

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2020

• #8

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 ?

 

Vote positif 0 Vote négatif

V

Vadg

XLDnaute Nouveau

• 18 Mars 2020

• #9

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2020

• #10

Re

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

 

Vote positif 0 Vote négatif

V

Vadg

XLDnaute Nouveau

• 18 Mars 2020

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2020

• #12

Re

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

 

Vote positif 0 Vote négatif

V

Vadg

XLDnaute Nouveau

• 18 Mars 2020

• #13

oui sans problème

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2020

• #14

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

 

Vote positif 0 Vote négatif

V

Vadg

XLDnaute Nouveau

• 18 Mars 2020

• #15

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 ?

 

Vote positif 0 Vote négatif