ouveture fenetre de selection date

[PAK26]

Bonjour,

Voici mon problème

Sur un feuillé Excel j'ai une extraction automatique en SQL qui va chercher automatiquement les infos dans une base de donnée. Ces infos font l'objet d'une sélection par date : Date de Début et Date de fin. La requette sql se charge de prendre les dates comme bornne.
Ceci marche parfaitement

Je souhaite que lorsque j'ouvre mon fichier Excel une petite fenêtre s'ouvre et me demande de renseigner la date de début et la date de fin. Ces deux infos seront reportées sur des cellules suivantes: I1 et K1.



Voici un exemple du fichier.

 

[pierrejean]

Re : ouveture fenetre de selection date

bonjour PAK26

Une solution

 

[tototiti2008]

Re : ouveture fenetre de selection date

Bonjour à tous,

une autre solution (je l'avais faite, je la poste)

 

[JCGL]

Re : ouveture fenetre de selection date

Bonjour à tous,

A placer dans le ThisWorkBook :

Private Sub Workbook_Open()
Range("I1") = InputBox("Date?", "Date de Début")
Range("K1") = InputBox("Date?", "Date de Fin")
End Sub

A+

Edition : Salut PJ, Salut Toto

 

[pierrejean]

Re : ouveture fenetre de selection date

Re

Une 2eme solution

Salut tototiti
Salut JC

 

[PAK26]

Re : ouveture fenetre de selection date

Bonjour à tous

Merci d'avoir répondu très rapidement cela faisait 2 h que je tournai en rond.

Pour info la solution de pierrejean et de tototiti2008 ne fonctionne pas sur ma machine. un message d'erreur me bloque : "Impossible de charger les objets car ils ne sont pas disponibles sur la machine"

Bizzare

Encore merci pour votre aide et votre rapiditée.

Pak26