Pourquoi ????

[zeltron24]

Bonjour à tout le forum.

Je me permets de vous soliciter en ce jour de fête sur un problème apparu suite à la réinstallation de Excel sur mon nouveau DD.

Avec le fichier ci joint, vous constaterez (à moins que chez vous cela fonctionne) que dans les colonnes D E F G j'ai une erreur de valeur ce que je n'avais pas avant. Pouvez vous me dire à quoi cela est du. Faut il installer des macros complèmentaires ? Des bibliothèques ou autre ?????

De plus dans un autre classeur, j'ai une erreur de fonctionnement à l'ouverture. Voici la macro placé dans la feuille ThisWorkbook qui fonctionné elle aussi avant. C'était JCGL qui me l'avait envoyé.

Option Explicit 'JCGL

Dim Nom

Private Sub Workbook_Open()
'Sheets("Calendrier").Select
Nom = Sheets("Calendrier").Range("B2").Value
If Nom = "Personne" Then
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:" ' "JCGL;-)"
End If
With Sheets(MonthName(Month(Date)))
.Visible = True
.Activate
End With

End Sub

Merci pour votre aide d'avance

zeltron24

 

[Cousinhub]

Re : Pourquoi ????

Bon, on va y aller pas à pas .
Tu rentres dans l'éditeur vbe (Alt + F11), tu double-cliques sur ThisWorkbook, à gauche. tu vois donc ton code.
Tu cliques à l'intérieur et tu fais F8, et dis-nous sur quelle ligne ça bugge

 

[Pierrot93]

Re : Pourquoi ????

Bonjour Zeltron

attention, le nom de ta feuille doit correspondre exactement à la valeur renvoyée par la fonction "MonthName", tout en minuscule, accent compris et vérifiees peut être qu'il n'y ait pas d'espace dans le nom de ta feuille, avant ou après le nom du mois...

bonne journée
@+