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

 

[sylvanu]

Bonjour telemarrk,
Un essai en PJ avec :

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]

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]

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]

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]

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]

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]

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 :

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]

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]

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

 

[telemarrk]

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]

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]

De nouveau merci pour ton aide

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

 

[sylvanu]

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

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

 

[telemarrk]

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