zeltron24
XLDnaute Impliqué
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
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