Code à l'ouverture d'Excel

G

Guest

Guest

• 26 Janvier 2012

• #2

Re : Code à l'ouverture d'Excel

Bonjour,

voir éventuellement du côté de : InputBox

A+

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 26 Janvier 2012

• #3

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

Code:

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

EDITION: Hi... Ges
Bonne Journée

 

Vote positif 0 Vote négatif

C

CG29

XLDnaute Junior

• 26 Janvier 2012

• #4

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,

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 26 Janvier 2012

• #5

Re : Code à l'ouverture d'Excel

Re,

Fait des recherches sur InputBox!

A+
[Edition] +1 DullPfuh fait chaud!

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 26 Janvier 2012

• #6

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

 

Dernière édition: 26 Janvier 2012

Vote positif 0 Vote négatif

C

CG29

XLDnaute Junior

• 26 Janvier 2012

• #7

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 ?

 

Vote positif 0 Vote négatif

C

CG29

XLDnaute Junior

• 26 Janvier 2012

• #8

Re : Code à l'ouverture d'Excel

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

Merci d'avance,

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 26 Janvier 2012

• #9

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+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 26 Janvier 2012

• #10

Re : Code à l'ouverture d'Excel

Bonjour CG29, Bonjour Hasco , Bonjour Dull

un essai, à mettre dans Thisworkbook

Code:

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

 

Dernière édition: 26 Janvier 2012

Vote positif 0 Vote négatif