Bonjour,

Je cherche à récupérer des valeurs présentes dans une feuille qui aurait le nom d'une variable de texte, elle même récupérée d'une cellule au format date.

J'ai essayé plusieurs solutions en créant une variable de texte et de type Worksheet mais aucune ne fonctionnent

Pourriez-vous m'aider svp

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Majdat()
 
Dim datjour As String
'Dim ws As Worksheet  'solution n°2
Dim a As Integer
 
 
a = 2
 
Do While Range("B" & a).Value <> "" Or Range("C" & a).Value <> ""
    a = a + 1
Loop
 
datjour = Format(Range("A" & a), "dd-mm")
 
'ws.Name = datjour  'Solution n°2
Range("C" & a).Value = Sheets(datjour).Range("C4").Value
Range("D" & a).Value = ws.Range("C5").Value 'solution n°2