Declaration d'une variable Public

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:

---

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

bonjour LaPanic,

mets cette partie dans un module,

Code:

---

Public rday As String

---

Code:

---

1 2 3

Sub Report() MsgBox rday End Sub

---

et celle-ci sur la page de ThisWorkbook

Code:

---

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.

Merci sabzzz ca marche impeccable