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