Discussion :

[LaPanic]

Bonjour tlm,
je voudrais récupérer la variable rday dans la macro Report mais ca fonctionne que si j'exécute la macro Declaraion en premier sinon ca donne un message vide sachant que la cellule A1 contient le texte 12-03-10 et le résultat souhaité est 21

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Dim rday As String
 
Public Sub Declaraion()         
    rday = Left(ThisWorkbook.Sheets("Test").Cells(1, 1).Value, 2) 
End Sub
 
Sub Report()
    MsgBox (rday)
End Sub

Merci pour votre aide

[sabzzz]

bonjour LaPanic,

mets cette partie dans un module,

Code :

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

Public rday As String

Code :

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

1
2
3
Sub Report()
    MsgBox rday
End Sub

et celle-ci sur la page de ThisWorkbook

Code :

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

1
2
3
Private Sub Workbook_Open()
rday = Left(ThisWorkbook.Sheets("Test").Cells(1, 1).Value, 2)
End Sub

tu enregistre le classeur tu le ferme et le réouvre, maintenant la variable sera disponnible, execute la macro Report.

[LaPanic]

Merci sabzzz ca marche impeccable