Afficher une variable en string

qwerty_213 -  
 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 

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

MsgBox pj


End sub


2 réponses

Réponse 1 / 2
ThauTheme Messages postés 1564 Statut Membre 160
 
Bounjour Qwerty, bonjour le forum,

Peut-être comme ça : 
Sub CreationOnglet()
Dim pj As String

Workbooks("Profils.xlsx").Activate
PJ=ActiveWorkbook.Sheets("Calendrier").Cells(2, 2).Value
MsgBox pj
End sub
0
Réponse 2 / 2
qwerty_213
 
fausse alerte 

pj = Application.Workbooks("Profils.xlsx").Worksheets("Calandrier").Cells(I, j)
 MsgBox pj
0

Discussions similaires

additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses
Afficher toutes les lignes masquées excel
livlarsen -
Mehdiiii -

27 réponses
Python
muzan0jackson -
jee pee -

18 réponses
Durée d'une diapositive animée
bibibibi99 -
bibibibi99 -

2 réponses