afficher une variable en string

Bonjour,
Je souhaite afficher une variable textuelle à partir d'une feuille "Profil/Calendrier" dans la cellule B2, mais cela m'affiche une fenêtre sans aucun texte !
j'ai mis .text ou .Value lors de l'affectation de la variable "pj", cela ne change rien
le code ci dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub CreationOnglet() Dim pj As String   Windows("Profils.xlsx").Activate Sheets("Calendrier").Select pj = Cells(2, 2).Text   MsgBox pj     End sub

---

Bonjour,

la cellule est donc vide ‼

Sinon pour voir le contenu - même vide - de la cellule telle qu'affichée dans la feuille de calculs :

MsgBox Range("'[Profils.xlsx]Calendrier'!B2").Text …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

Essaie comme ceci.

Code:

---

MsgBox Application.Workbooks("Profils.xlsx").Worksheets("Calendrier").Cells(2, 2)

---

Citation:

---

Envoyé par Docmarti

Essaie comme ceci.

Code:

---

MsgBox Application.Workbooks("Profils.xlsx").Worksheets("Calendrier").Cells(2, 2)

---

---

Merci DocMarti & Marc-L, ca marche avec la fonction "Application"




:

C'est étrange qu'il faille Application parce que pour l'usage de propriétés, cet objet est implicite.
Est-ce que ta macro traites des données avec autre chose que Excel ?
As-tu essayé :

Code:

---

MsgBox Workbooks("Profils.xlsx").Worksheets("Calendrier").Cells(2, 2).Text

---