affichage dans une inputbox

[gds35]

Bon Dimanche a tous mes amis du forum,
j'ai un p'tit bout de code ......
Private Sub BOUTONSAUVDEP_Click()
'
Save = Format(Date, "dd-mm-yy") & "_" & Format(Time, "hh-mm")
DATESAVE.Text = Save
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show Clear & Save
'
MsgBox "VOTRE ETAT DE FRAIS A ETE SAUVEGARDE", _
vbOKOnly, TIT1
'
SAVETAT.Hide
DATESAVE est une InputBox et je souhaite que la variable save s'affiche dans le l'input box par defaut . Impossible. Que faut il faire Cordialement GDS35

 

[Staple1600]

Re : affichage dans une inputbox

Bonjour


Ca semble fonctionner ainsi

Sub testt()
Save = Format(Date, "dd-mm-yy") & "_" & Format(Time, "hh-mm")
x = InputBox("test", "test", Save)
Application.Dialogs(xlDialogSaveAs).Show Clear & x & ".xls"
End Sub

 

[gds35]

Re : affichage dans une inputbox

Salut Staple ,
je te remercie , mais tj un HIC je n'ai pas dans l'IB l'affichage de la date et de l'heure ..... comprends pas Cordialement GDS35

 

[Staple1600]

Re : affichage dans une inputbox

Re



J'ai testé sous XL2000

Et j'ai bien une inputbox avec comme valeur par défaut Save
ensuite la Boite Enregister sous s'ouvre

et affiche la valeur de Save suivi de xls

 

[gds35]

Re : affichage dans une inputbox

Re Salut , je ne peux avoir l'affichage de save lors du clic sur bouton OUI , si je ne t'importune pas peux tu voir mon code et corriger a partir de celui ci. Merci
Private Sub BOUTONSAUVDEP_Click()
'
Save = Format(Date, "dd-mm-yy") & "_" & Format(Time, "hh-mm")
DATESAVE.Text = Save
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show Clear & Save
'
MsgBox "VOTRE ETAT DE FRAIS A ETE SAUVEGARDE", _
vbOKOnly, TIT1
'
SAVETAT.Hide
DATESAVE est le NOM de l'INPUTBOX , Merci cordialement GDS35

 

[Staple1600]

Re : affichage dans une inputbox

Re

Quelle est ta version d'Excel ?

 

[gds35]

Re : affichage dans une inputbox

version 10.0.6501.0

 

[Staple1600]

Re : affichage dans une inputbox

Re


Alors je dois passer la main

Car je suis sous Excel 2000

 

[gds35]

Re : affichage dans une inputbox

Merci encore , de ton soutien STAPLE , Bonne soirée des + cordialeùent de GDS35

 

[skoobi]

Re : affichage dans une inputbox

Bonjour gds35, JM 🙂,

Quand je vois ceci:

DATESAVE.Text = Save

DATESAVE ne peut pas être une "inputbox" car ce dernier est une fonction et ne peut pas avoir une propriété "Text".
Ne serait-ce pas un TextBox par hazard?