Code à l'ouverture d'Excel

[CG29]

Salut à tous,

J’ai besoin de vos compétences pour générer une fenêtre avec une interrogation à l’ouverture d’un fichier Excel.

La question serait :
- Quelle est votre date de travail ?

L’utilisateur devrait répondre une date : 15/01/2012,….

Cette date se mettrait ensuite dans la cellule B2,

Merci d’avance, pour votre aide,

Christophe

 

[Guest]

Re : Code à l'ouverture d'Excel

Bonjour,

voir éventuellement du côté de : InputBox

A+

 

[Dull]

Re : Code à l'ouverture d'Excel

Salut CG29, le Forum

quel est l’intérêt de demander la date d'ouverture du Fichier?
pourquoi ne pas mettre directement la date de l'ouverture du Fichier en B2

à mettre dans le Module ThisWorkrbook

Private Sub Workbook_Open()
[B2] = Date
End Sub

EDITION: Hi... Ges
Bonne Journée

 

[CG29]

Re : Code à l'ouverture d'Excel

Il faut que l'utilisateur puisse rentre sa date de travail car en fonction de celle-ci les résultats peuvent varier ! Vous avez des idées ?

Merci encore,

 

[Guest]

Re : Code à l'ouverture d'Excel

Re,

Fait des recherches sur InputBox!

A+
[Edition] +1 DullPfuh fait chaud!

 

[Dull]

Re : Code à l'ouverture d'Excel

Re le fil,

Alors fait des recherches sur InputBox pleins de fils en parlent comme te le conseil l'ami Hasco


EDITION: Oui Gérard il fait très chaud mon ami ...quelques regrets des tropiques en cette saison ... UnCitronVertàtasanté... et à la santé du Fil et du Forum

Bonne Journée

 

[CG29]

Re : Code à l'ouverture d'Excel

Ce genre de code :

Sub TestInputBox()
Dim Reponse As String
Reponse = InputBox("Entrez votre prénom")
MsgBox Reponse
End Sub


Mais comment dois-je l'adapter ?

Et comment modifier mon excel pour permettre les macros ?

 

[CG29]

Re : Code à l'ouverture d'Excel

Pouvez-vous m'aider car je galère ?

Merci d'avance,

 

[Guest]

Re : Code à l'ouverture d'Excel

Bonjour,

Tu galères? A mon avis tu n'as pas galéré beaucoup pour trouver le premier exemple InputBox venu (qui ne correspond en rien à ta demande).

Pour que ton classeur prenne en charge les macros: Enregistrer sous ---> Type: Classeur excel (prenant en charge les macros) (*.xlsm)

A+

 

[tototiti2008]

Re : Code à l'ouverture d'Excel

Bonjour CG29, Bonjour Hasco , Bonjour Dull

un essai, à mettre dans Thisworkbook

Private Sub Workbook_Open()
Dim Dte
    Do
    Dte = Application.InputBox(prompt:="Entrer votre date", Title:="Date de travail", Type:=2)
        If Not IsDate(Dte) Then MsgBox "Date non valide"
    Loop Until IsDate(Dte)
    Range("B2").Value = CDate(Dte)
End Sub