Forums XLPages

Excel & VBA Espace Débutants creation fichier excel

creation fichier excel
#1
jirou
Débutant XLPages

Inscription: 10/12/2011

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 10-12-2011 21h33
bonsoir
je voudrais poser un calendrier en premiere page sur excel et quand je clic sur une date du calendrier qu il m ouvre une feuille excel associee pour faire de la programmation journaliere
merci a vous de votre aide
Hors Ligne
 Rapport   Haut 

Re: creation fichier excel
#2
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 10-12-2011 22h40
Bonsoir jirou, et bien venue sur le site 

Dommage que tu ne nous aiguilles pas un peu en donnant un premier essai de ton fichier, mais si cela peut t'aider tu trouveras en pièce jointe un essai avec un premier onglet nommé Calendrier, dans lequel tu choisis ton année en A1 (le calendrier se met à jour avec les formules)

Ensuite un double clic sur une date permet de créer un nouvel onglet en le nommant en fonction de la date choisie (ou de le sélectionner s'il existe déjà)

Tu trouveras ce code dans la feuille "Calendrier"


Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mySh As String
Dim F As Worksheet, F2 As Worksheet
Application.ScreenUpdating = False
'Zone de déclenchement
If Not Intersect(Target, Range("A4:L34")) And Target.Count = 1 And Target.Value > 0 Then
    mySh = Format(Target.Value, "yyyy mm dd")
    'test existence onglet
    On Error Resume Next
        'si n'existe pas création de l'onglet
    If Sheets(mySh) Is Nothing Then
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = mySh
        'Tri des onglets
        'Source myDearFriend ici http://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=24
            For Each F In Worksheets
                For Each F2 In Worksheets
                    If F2.Name < F.Name And F2.Name <> "Calendrier" Then F2.Move After:=F
                Next F2
            Next F
        Sheets(mySh).Select
        'Suite des actions à mener sur ce nouvel onglet
    Else
        MsgBox "Cet onglet existe déjà"
        Sheets(mySh).Select
    End If
End If
Application.ScreenUpdating = True
End Sub
  

En espérant que cela puisse t'aider,

Bonne soirée,

mth


Pièce jointe:
xls PourJirou.xls   [ Taille: 51.50 Ko - Téléchargements: 355 ]
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes