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

sylvanu · 10 Octobre 2023

Bonjour telemarrk,
Un essai en PJ avec :

VB:

Sub CopieDonnées()
Application.ScreenUpdating = False
FichierCoutant = ThisWorkbook.Name
For L = 6 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
    Fichier = Cells(L, "A") & ".xlsx"
    CheminFichier = ThisWorkbook.Path & "\" & Fichier
    If Len(Dir(CheminFichier)) > 0 Then
        Workbooks.Open Filename:=CheminFichier
        tablo = [L6:M6]
        Workbooks(Fichier).Close SaveChanges:=True
        Cells(L, "B").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
    Else
        Cells(L, "B") = "": Cells(L, "C") = ""
    End If
Next L
End Sub

En supposant que tous les fichiers sont dans le même dossier.

telemarrk · 10 Octobre 2023

Bonjour Sylvanu,

Merci pour ton aide.

J'ai modifié le contenu de L6 dans SGCS mais le fichier TEST n'a pas pris en compte la modification

Merci

sylvanu · 10 Octobre 2023

Re,
Je viens de faire le test et c'est correct.
Avant modif de SGST:

Après modifs :

Est ce que les cellules B7:C7 sont vides ?
Car si elles ne le sont pas c'est que la macro ne s'est pas exécutée car si le fichier n'est pas trouvé je vide les cellules.

telemarrk · 10 Octobre 2023

Oui,

Mais je viens de comprendre il faut que je lance la macro à chaque fois pour qu'elle s’exécute.

On ne peut pas le faire automatiquement à l'ouverture du fichier par exemple

sylvanu · 10 Octobre 2023

telemarrk à dit:
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.

C'était non requis. Difficile à deviner.
Voir PJ, avec Workbook_Open.

telemarrk · 10 Octobre 2023

Ca fonctionne, merci.

j'aurais une autre demande sur le même principe mais en incluant le contenu de plusieurs lignes se trouvant dans la colonne L et M si cela n'est pas trop demandé

sylvanu · 10 Octobre 2023

Cela n'aurait pas été plus simple de mettre dès le post #1 les bonnes hypothèses ? Juste pour éviter de refaire le travail deux fois.
Et pourquoi avoir changer les xlsx en xlsm pour les données? Juste pour piéger le contributeur ?

Un nouvel essai en PJ avec :

VB:

Sub Workbook_Open()
Application.ScreenUpdating = False
FichierCoutant = ThisWorkbook.Name
For C = 2 To 6 Step 2
    Fichier = Cells(5, C) & ".xlsm"
    CheminFichier = ThisWorkbook.Path & "\" & Fichier
    If Len(Dir(CheminFichier)) > 0 Then
        Workbooks.Open Filename:=CheminFichier
        tablo = [L6:M9]
        Workbooks(Fichier).Close SaveChanges:=True
        Cells(6, C).Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
    Else
        Range(Cells(6, C), Cells(9, C + 1)).ClearContents
    End If
Next C
End Sub

telemarrk · 10 Octobre 2023

Vraiment désolé cela fonctionne
par contre si je dois ajouter d'autres lignes cela fonctionne pas

le but est qu'a chaque fois que j'ajoute des lignes et que je rempli les colonne L et M il le fasse également sur le fichier TEST

sylvanu · 10 Octobre 2023

Voir PJ dans l'attente de la prochaine évolution.

telemarrk · 11 Octobre 2023

Bonjour Sylvanu,

Cela fonctionne mais si je dois ajouter de nouveau fichiers Excel dans mon dossier ils ne seront pas dans le fichier TEST. JE serai amener y ajouter d'autres fichiers.

Exemple : j'ai créé le fichier SGCULTURE il ne s'ajoute pas en H et I dans TEST

Merci

sylvanu · 11 Octobre 2023

C'est la 6ème évolution.
Outre le temps passé à faire et refaire, si toutes les données étaient correctes au premier post, cela donnerait plus envie de continuer.
Là, je jette l'éponge.
Bonne journée.

NB: En espérant que ce soit SGCULTURE.xlsm, et non SGCULTURE.xlsx.

telemarrk · 11 Octobre 2023

De nouveau merci pour ton aide

oui, c'est bien SGCULTURE.xlsm par contre ce la fonctionne pas

sylvanu · 11 Octobre 2023

Je ne livre que des fichiers que j'ai testé.

sylvanu à dit:
Là, je jette l'éponge.
Bonne journée.

telemarrk · 11 Octobre 2023

t’inquiète pas c'est déjà bien gentil de m'avoir aidé.

Tu m'as donné la base je vais essayer de voir pourquoi cela ne fonctionne pas chez moi

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

telemarrk

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

telemarrk

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

telemarrk

XLDnaute Occasionnel

Discussions similaires