Bonjour, j'essaie d'activer une feuille que j'ouvre tous les jours via outlook mais dont la date dans le libelle de la feuille change et peut etre le lendemain ou surlendemain.

Donc l'idée est en dessous.

j'essaie d'activer le nom de la feuille en incrementant date1 de1 jusqu'a tomber sur le bon nom.

lorsque j'arrive sur --- Sheets("nomfeuille").Select ---- j'ai une erreur d'execution 9 --- l'indice n'appartient pas a la selection ---

alors que la feuille est bien ouverte et existe en lecture seule.

a cause de ca je ne peux pas tester l'instruction suivante -- resume next ----
qui j'espere si le resultat precedent est faux rajoutera 1 a la date pour tomber sur le bon nom de feuille.

Voila je ne m'en sors pas , et pour corsé je debute completement dans vba...

merci d'avance aux ames charitables

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
19
20
Sub Macro1()
 
Dim date1 As String
Dim jour1 As Integer
Dim nomfeuille As String
'met au fomat us la date du jour
date1 = Format((Now), "yyyymmdd")
 
'Sub boucle_for()
 
    For jour1 = 0 To 5
        date1 = date1 + 1
      nomfeuille = ("JVk_" & date1 & "_001234_N_C_P")
    Sheets("nomfeuille").Select
    On Error Resume Next
 
 
    Next
 
End Sub