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

[telemarrk]

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]

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]

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]

Bonsoir job75

effectivement

 

[telemarrk]

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]

Il s'agit d'une consolidation.

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

 

[telemarrk]

Bonjour job75,

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

Merci

 

[job75]

Bonjour telemarrk, le forum,

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

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]

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]

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

 

[job75]

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

 

[telemarrk]

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]

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

 

[telemarrk]

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]

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

 

[telemarrk]

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