Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Objet DTPICKER1

4 réponses
Avatar
Flac
Rebonjour à tous,
Excel 2000
Avant de commencer, merci pour votre contribution, c' est très apprécié de
tous.


Sur une feuille "Rapport", j'ai un objet "DTPICKER!"

Lors de l'ouverture du fichier, je voudrais que la date apparaissant sur mon
objet soit la date du jour

J'ai écrit cette procédure dans "ThisWorkbook", mais ça ne fonctionne pas,


Private Sub Workbook_Open()
Sheets("rapport").Select
DTPicker1.Select
DTPicker1 = today
end sub

Quelqu'un aurait une idée?

Merci

Flac

4 réponses

Avatar
LSteph
Bonsoir,

Ah! je ne sais pas si un DTPicker
se plait tellement dans une feuille excel, :-?
S'il s'agit bien du
MS Date & Time Picker Control 6.0
Au départ il se met tout seul au jour!
Après et pourquoi...bon:

Private Sub Workbook_Open()
Feuil1.DTPicker1 = Now
End Sub




Cordialement.

lSteph

Rebonjour à tous,
Excel 2000
Avant de commencer, merci pour votre contribution, c' est très apprécié de
tous.


Sur une feuille "Rapport", j'ai un objet "DTPICKER!"

Lors de l'ouverture du fichier, je voudrais que la date apparaissant sur mon
objet soit la date du jour

J'ai écrit cette procédure dans "ThisWorkbook", mais ça ne fonctionne pas,


Private Sub Workbook_Open()
Sheets("rapport").Select
DTPicker1.Select
DTPicker1 = today
end sub

Quelqu'un aurait une idée?

Merci

Flac




Avatar
Flac
Merci LSteph,
Tu me dis que au départ il se met tout seul au jour.
Serait-ce qu'une des propriétés de mon dtpicker devrait être modifiée, parce
que le mien reste toujours à la même date.

D'autre part, j'ai beau essayer de modifier ta macro pour l'adapter à mon
fichier, ça ne fonctionne pas
Merci encore
Flac

"LSteph" a écrit dans le message de news:

Bonsoir,

Ah! je ne sais pas si un DTPicker
se plait tellement dans une feuille excel, :-?
S'il s'agit bien du
MS Date & Time Picker Control 6.0
Au départ il se met tout seul au jour!
Après et pourquoi...bon:

Private Sub Workbook_Open()
Feuil1.DTPicker1 = Now
End Sub




Cordialement.

lSteph

Rebonjour à tous,
Excel 2000
Avant de commencer, merci pour votre contribution, c' est très apprécié
de tous.


Sur une feuille "Rapport", j'ai un objet "DTPICKER!"

Lors de l'ouverture du fichier, je voudrais que la date apparaissant sur
mon objet soit la date du jour

J'ai écrit cette procédure dans "ThisWorkbook", mais ça ne fonctionne
pas,


Private Sub Workbook_Open()
Sheets("rapport").Select
DTPicker1.Select
DTPicker1 = today
end sub

Quelqu'un aurait une idée?

Merci

Flac




Avatar
LSteph
Pourtant cela fonctionne:

http://cjoint.com/?eoaFGbgqkW

Et il n'y a pas grand chose à adapter

Cordialement.

lSteph

Merci LSteph,
Tu me dis que au départ il se met tout seul au jour.
Serait-ce qu'une des propriétés de mon dtpicker devrait être modifiée, parce
que le mien reste toujours à la même date.

D'autre part, j'ai beau essayer de modifier ta macro pour l'adapter à mon
fichier, ça ne fonctionne pas
Merci encore
Flac

"LSteph" a écrit dans le message de news:

Bonsoir,

Ah! je ne sais pas si un DTPicker
se plait tellement dans une feuille excel, :-?
S'il s'agit bien du
MS Date & Time Picker Control 6.0
Au départ il se met tout seul au jour!
Après et pourquoi...bon:

Private Sub Workbook_Open()
Feuil1.DTPicker1 = Now
End Sub




Cordialement.

lSteph

Rebonjour à tous,
Excel 2000
Avant de commencer, merci pour votre contribution, c' est très apprécié
de tous.


Sur une feuille "Rapport", j'ai un objet "DTPICKER!"

Lors de l'ouverture du fichier, je voudrais que la date apparaissant sur
mon objet soit la date du jour

J'ai écrit cette procédure dans "ThisWorkbook", mais ça ne fonctionne
pas,


Private Sub Workbook_Open()
Sheets("rapport").Select
DTPicker1.Select
DTPicker1 = today
end sub

Quelqu'un aurait une idée?

Merci

Flac








Avatar
MichDenis
Tu copies ceci dans le ThisWorkbook de ton classeur

Tu peux même jouer sur le format qu'il affiche dans sa boîte
sa largeur et sa hauteur....etc
'------------------------
Private Sub Workbook_Open()

Dim Sh As Worksheet
Set Sh = Worksheets("Feuil1")
With Sh
With .Shapes("DTPicker1")
With .OLEFormat.Object.Object
.Value = Date
.Format = 3
.CustomFormat = "dMMMMyyyy"
End With
.Width = 125
.Height = 16.5
End With
End With

End Sub
'------------------------



"Flac" a écrit dans le message de news:
%
Merci LSteph,
Tu me dis que au départ il se met tout seul au jour.
Serait-ce qu'une des propriétés de mon dtpicker devrait être modifiée, parce
que le mien reste toujours à la même date.

D'autre part, j'ai beau essayer de modifier ta macro pour l'adapter à mon
fichier, ça ne fonctionne pas
Merci encore
Flac

"LSteph" a écrit dans le message de news:

Bonsoir,

Ah! je ne sais pas si un DTPicker
se plait tellement dans une feuille excel, :-?
S'il s'agit bien du
MS Date & Time Picker Control 6.0
Au départ il se met tout seul au jour!
Après et pourquoi...bon:

Private Sub Workbook_Open()
Feuil1.DTPicker1 = Now
End Sub




Cordialement.

lSteph

Rebonjour à tous,
Excel 2000
Avant de commencer, merci pour votre contribution, c' est très apprécié
de tous.


Sur une feuille "Rapport", j'ai un objet "DTPICKER!"

Lors de l'ouverture du fichier, je voudrais que la date apparaissant sur
mon objet soit la date du jour

J'ai écrit cette procédure dans "ThisWorkbook", mais ça ne fonctionne
pas,


Private Sub Workbook_Open()
Sheets("rapport").Select
DTPicker1.Select
DTPicker1 = today
end sub

Quelqu'un aurait une idée?

Merci

Flac