Label qui affiche le contenu d'une cellule d'un autre fichier Excel

Bonjour à tous,

Dans un formulaire, j'aimerais afficher le contenu d'une cellule mais ... d'un autre fichier Excel !

Quand c'est le même fichier je fais ceci :

Private Sub UserForm_Initialize()
    Label1 = Sheets("Feuil1").Range("B2")
End Sub

Mais là il faudrait lui dire d'allé chercher l'info dans un autre ficiher excel (qui je précise est déjà ouvert)

Voici une petite infographie car je sais pas si c'est clair ce que je raconte. L'idée étant d'afficher le "Hey !" avec le Label1 du Formulaire 1.

img

Merci par avance.

Bonjour le forum

Bonjour Micka_Plays

Une façon de faire :

Private Sub UserForm_Initialize()
Dim TheFichierOuvert As String, LaFeuille As String, LeTexte As String

TheFichierOuvert = "Classeur4.xlsm"   'Le Second classeur ouvert
LaFeuille = "Feuil1"                                 'La feuille du second classeur où se trouve la valeur
LeTexte = "B2"                                      'La cellule contenant la valeur

Me.Label1.Caption = Workbooks(TheFichierOuvert).Worksheets(LaFeuille).Range(LeTexte)
End Sub

@+ Ericcool02

Merci 1000 fois, c'est PARFAIT ! =)

Bonjour

Bonjour à tous

Une variante avec 2° fichier fermé mais dans le même dossier que le dossier ouvert (celui qu contient la macro)

Bye !

7classeur1.xlsx (14.82 Ko)
10classeur2.xlsm (26.63 Ko)

Merci gmb =)

Rechercher des sujets similaires à "label qui affiche contenu fichier"