XL 2016 Récupérer le contenu de cellule par VBA

telemarrk · 10 Octobre 2023

Bonjour,

Je voulais savoir si par le biais d'un code VBA, on peut remplir les cellules d'un tableau en allant chercher les infos sur d'autres fichiers Excel.

Explication :

J'ai un fichier général "TEST" et 4 fichiers : SGCS - SGST - SGINFORMAT - SGCULTURE

Je voudrais mettre dans mon tableau TEST le contenu des cellules L6 et M6 des quatre fichiers.

Je vous joins le fichier test et deux fichiers

Merci

telemarrk · 11 Octobre 2023

Sylvanu,

j'ai supprimer mes fichiers et je n'ai garder que le fichier TEST(V5).

J'ai recréé les fichiers (SGCS - SGCULTURE....) et je ne sais pas pourquoi maintenant cela fonctionne

Merci pour ton aide et encore désolé de t'avoir faire plusieurs manip.

Bonne soirée

job75 · 11 Octobre 2023

Bonsoir telemarrk, sylvanu,

Je vois que l'on parle ici d'une macro Workbook_Open.

Il vaut mieux utiliser une Workbook_Activate si l'on veut naviguer entre les fichiers.

A+

telemarrk · 11 Octobre 2023

Bonsoir job75

effectivement

telemarrk · 11 Octobre 2023

Je me suis mal exprimé dès le départ
je suis amener à avoir des fichiers Excel commençant par "SG"
je souhaite dans un fichier centraliser le contenu des colonnes L et M de chaque fichiers SG

job75 · 11 Octobre 2023

Il s'agit d'une consolidation.

Il y a de nombreux exemples sur XLD, faites une recherche sur ce mot.

telemarrk · 12 Octobre 2023

Bonjour job75,

Je ne connaissais pas le thème "consolidation" je vais effectuer des recherches

Merci

job75 · 12 Octobre 2023

Bonjour telemarrk, le forum,

Téléchargez les fichiers joints dans le même dossier et voyez cette macro :

VB:

Private Sub Workbook_Activate()
Dim chemin$, fichier$, feuille$, lig&, form$, h&
chemin = ThisWorkbook.Path & "\" 'dossier commun
fichier = Dir(chemin & "SG*.xlsx") '1er fichier du dossier
feuille = "Feuil1" 'nom des feuilles
lig = 2 '1ère ligne de restitution
Application.ScreenUpdating = False
Range("K" & lig & ":M" & Rows.Count).ClearContents 'RAZ
While fichier <> ""
    form = "'" & chemin & "[" & fichier & "]" & feuille & "'!"
    h = ExecuteExcel4Macro("MATCH(""zzz""," & form & "C12)")
    If h > 1 Then
        Cells(lig, 11).Resize(h - 1) = fichier
        With Cells(lig, 12).Resize(h - 1, 2)
            .FormulaArray = "=""""&" & form & "L2:M" & h 'formule matricielle
            .Value = .Value 'supprime la formule
        End With
        lig = lig + h - 1
    End If
    fichier = Dir 'fichier suivant
Wend
End Sub

Elle se déclenche quand on ouvre le fichier .xlsm ou qu'on l'active.

Comme on le voit les fichiers SG restent fermés.

A+

telemarrk · 12 Octobre 2023

job75

la macro fonctionne par contre, j'ai créé le fichier S03 et j'ai ajouté une ligne nom 11

le fichier consolidation prend en compte le fichier S03 mais pas la ligne nom 11

job75 · 12 Octobre 2023

La macro copie les valeurs à partir de la 2ème ligne, la ligne de titres n'est pas copiée.

job75 · 12 Octobre 2023

Et la fonction MATCH (EQUIV) recherche le dernier texte en colonne L.

telemarrk · 12 Octobre 2023

Cela fonctionne.

Par contre, j'ai essayé d'adapter ton code sur mon fichier, mais cela ne fonctionne pas, j'ai mis le mot "factures" à la place de "feuil1" car dans mon fichier l'onglet se nomme ainsi, mais cela ne va pas.

Dans mon fichier ça commence en L6 et M6

Je te joins une capture d'écran si cela ne te dérange pas

En tout cas merci

job75 · 12 Octobre 2023

Joignez 2 fichiers à consolider et donnez le résultat à obtenir.

telemarrk · 12 Octobre 2023

job75,

Désolé pour le retard mais j'ai fini plus tard le travail.

Je voudrais dons avoir dans le fichier consolidation le contenu des cellules L et M des deux autres fichiers

Merci

job75 · 12 Octobre 2023

J'attendais des fichiers .xlsx et vous fournissez des fichiers .pdf !!! Je passe la main.

telemarrk · 12 Octobre 2023

j'ai mis les fichiers pdf pour comprendre le tableau que je suis entrain de réaliser mais si tu préfères sans

je joins les fichiers XLMS

XL 2016 Récupérer le contenu de cellule par VBA

telemarrk

XLDnaute Occasionnel

Pièces jointes

telemarrk

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

telemarrk

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

Pièces jointes

Discussions similaires