afficher une variable en string Fermé

Question

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 


Configuration: Windows 7 / Chrome 54.0.2840.71

ThauTheme · Answer

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

qwerty_213 · Answer

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

Afficher une variable en string

2 réponses

Discussions similaires