Discussion :

[qwerty_213]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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, …

[Docmarti]

Essaie comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[qwerty_213]

Essaie comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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




:

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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