mois en cours

[Veve]

Bonjour le forum

J'ai un fichier avec 12 onglets qui sont égales au 12 mois de l'année.
Est-il possible à l'ouverture que le fichier s'ouvre sur l'onglet du mois en cours ?
Maintenant ouverture sur l'onglet février 2006

Merci pour votre aide

 

[pierrejean]

bonjour veve

oui c'est possible
ote toutes les infos de ton fichier, enregistre le sous un autre nom, zippe le et mets le ici on pourra te l'adapter

 

[sunnyland]

Cher Veve,

En mettant ce code dans le classeur,
cela devrait activer la feuille correspondant au mois courant dans la mesure ou le nom des feuilles ont le format suivant:
mois en lettre 1 espace annee sur 4 chiffre


Option Explicit

Private Sub Workbook_Open()
Dim moiscourant As String
moiscourant = VBA.MonthName(Month(Date)) & ' ' & VBA.Year(Date)
ActiveWorkbook.Worksheets(moiscourant).Select
End Sub

Fais mois savoir si ca marche pour toi. Ma version d'Office est 2000 Professionel en langue anglaise.
si cela fait une erreur sur monthname() fais moi savoir je peux t'envoyer le code.

Joyeuse St Valentin
Francoise

 

[sunnyland]

Cher Veve,

En mettant ce code dans le classeur,
cela devrait activer la feuille correspondant au mois courant dans la mesure ou le nom des feuilles ont le format suivant:
mois en lettre 1 espace annee sur 4 chiffre


Option Explicit

Private Sub Workbook_Open()
Dim moiscourant As String
moiscourant = VBA.MonthName(Month(Date)) & ' ' & VBA.Year(Date)
ActiveWorkbook.Worksheets(moiscourant).Select
End Sub

Fais mois savoir si ca marche pour toi. Ma version d'Office est 2000 Professionel en langue anglaise.
si cela fait une erreur sur monthname() fais moi savoir je peux t'envoyer le code.

Joyeuse St Valentin
Francoise

 

[Dan]

Re: ouvrir un fichier sur le mois en cours

Bonjour,

Tiens Sunnyland qu'est ce qui se passe. Je vois ton post en double après deux heures..

J'avais préparé une macro différente pour Veve mais profitons de ta proposition pour ajouter un message lorsque la feuille n'existe pas.
Ci-dessous le code :

Private Sub Workbook_Open()
Dim moiscourant As String
Dim myvalue As Variant
moiscourant = VBA.MonthName(Month(Date)) & ' ' & VBA.Year(Date)
On Error Resume Next
Set myvalue = ThisWorkbook.Worksheets(moiscourant)
If myvalue = True Then
myvalue.Select
Else: MsgBox 'la feuille n'existe pas ou est mal orthographiée'
End If
End Sub

Bon ap

 

[Veve]

Re: ouvrir un fichier sur le mois en cours

Merci

Vous êtes formidables, c'est exactement se que je cherchais.

Bravo

Et encore merci

Veve