Rapport de message :*
 

Re: Adapter le mDF_Calendar

Titre du sujet : Re: Adapter le mDF_Calendar
par myDearFriend! le 15/05/2008 01:07:42

Ok, la solution est très simple en fait, c'est dans ton classeur.xls que ça situe cette fois...

Dans le module de code de l'objet ThisWorkbook de ton fichier.xls, il suffit simplement de déplacer la ligne de code :
Application.Run ("mDFcalHide")
à l'intérieur du test IF, comme suit :
Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    'Vérifier si la cellule sélectionnée contient une date
    If IsDate(Target(1).Value) Then
        'Fermer le mDF Calendrier si il est déjà ouvert
        Application.Run ("mDFcalHide")
        'Ouvrir le mDF Calendrier (v2.2) sur la date correspondante
        Workbooks("mDF_Calendrier22.xla").Sheets("Prefs").Range("B1").Value = Target(1).Value
        Application.Run ("mDFcalShow")
    End If
End Sub


Il te suffit ensuite de lancer cette même ligne de code (et celle là uniquement) pour refermer le calendrier quand tu le souhaites...

Je te remercie de bien vouloir clore le présent fil de discussions en préfixant le sujet par [résolu] : voir ce lien.

Cordialement,