Ephemeride

[David Aubert]

Utilisez ce fil de discussions pour commenter et échanger sur Ephemeride

Auteur : G. Moriceau

Ce programme vous montre comment créer une horloge et un petit Éphéméride sur un UserForm avec insertion d'une icône sur la barre de titre dans VBE avec l'utilisation des APIS.
Le module de code provient du site URL: allapi.net que j'ai repris et adapté.
Afficher une icône sur un Userform adapté d'après Stephen Bullen pour les APIS. Le UserForm utilise le complément objet Calendar "Mscal.ocx", pour sélectionner une date. A ce propos, il faut peut-être redéclarer cet objet calendar sur votre machine. En standard avec Office.
Ce fichier ce trouve généralement dans : C:\Program Files\Microsoft Office\Office\Mscal.ocx
email : simlger@noos.fr
Type Fichier : Freeware
Version Excel nécessaire : Excel 2000 et +
OS supporté : PCMac

 

[Neofalken]

Bonjour
ça veut dire quoi :
"il faut peut-être redéclarer cet objet calendar sur votre machine" ?

 

[patricktoulon]

bonjour je me suis trompé de post pour ma proposition
je la remet donc ici
cette fonction peut tres bien remplacer celle existante pour les fete et leur prenoms

'--------------------------------------------------
Function Ephemeride(D As String) As String
With CreateObject("ADODB.Connection")
.Open "Provider = Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""Excel 12.0;HDR=Yes;IMEX=1;"""
With .Execute("SELECT [éphéméride] From [éphéméride$] WHERE [Date] = '" & Format(D, "mm-dd") & "'")
If Not .EOF Then
Ephemeride = .Getstring
End If
.Close
End With
.Close
End With
End Function
'-----------------------------------------------------------------------
Private Sub test()
Debug.Print "bonne st " & Ephemeride("30/04/2017")
End Sub

j’espère que l'auteur prendra la peine de regarder