Erreur d'exécution 9

[zeltron24]

Bonjour à vous tous,

Depuis quelques temps j'ai un souci avec la formule suivante. Placé dans ThisWorkbook. J'ai à chaque ouverture du classeur l'erreur suivante :
Erreur d'exécution '9'
L'indice n'appartient pas à la sélection...

Quelqu'un pourrait il SVP me venir en aide. Merci.

Option Explicit
Dim Nom
Dim x


Private Sub Workbook_Open()

x = MonthName(Month(Date))

MsgBox x

Nom = Sheets("Calendrier").Range("B2").Value
If Nom = "Personne" Then
MsgBox "Il n'y a pas d'anniversaire à souhaiter aujourd'hui. ", vbInformation, "Anniversaire:"

With Sheets(MonthName(Month(Date)))
.Visible = True
.Activate
End With
Exit Sub
Else
MsgBox "Nous sommes le " & Date & " et s'est l'anniversaire de :" & Nom, vbInformation, "Anniversaire:"
End If
With Sheets(MonthName(Month(Date)))
.Visible = True
.Activate
End With

End Sub

zeltron24

 

[Luki]

Re : Erreur d'exécution 9

Bonjour zeltron,

sur quelle ligne de code?

A+

 

[zeltron24]

Re : Erreur d'exécution 9

Bonjour Luki,

La ligne de code que j'aurai pu indiqué il est vrai, est celle ci:

With Sheets(MonthName(Month(Date)))

avec mes excuses.

A+

 

[Luki]

Re : Erreur d'exécution 9

Re,

2 choses :

Tu connais déjà le nom du mois puisque tu le passe à x. Donc: whith sheets(x) suffirait. mais le bug n'est pas là, c'est juste pour info.

Si ton problème a débuté en août, c'est peut-être l'accent "^" qui n'est pas présent dans ton nom de feuille alors que vba le renvoie.. pour tester , ouvre la fenêtre "exécution" et lance ce code:

Sub test()
Debug.Print MonthName(Month(Date))
End Sub

Sans fichier c'est difficile de voir plus loin.

Dis- moi

 

[zeltron24]

Re : Erreur d'exécution 9

Re,

Là, je dis Chapeau Monsieur, 🙂

Sans le fichier tu as donné juste. Je ne savais pas que VBA prenait en compte les accents dans les noms des onglets.

x était un test que je faisais pour voir si la valeur était correcte.

Mille merci pour ton aide et A+

Zeltron24

 

[Luki]

Re : Erreur d'exécution 9

Merci 🙂

Et merci au "debug.print" . Dans le doute, je fais appel à lui!

bonne soirée