Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Fonction shell()

19/11/13 15:46
Bonjour,

J'ai la commande ci-dessous qui ne fonctionne qu' à "moitié"

Private Sub Commande16_Click()
Dim NewDate
NewDate = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1", vbNormalFocus)
End Sub

En fait, la fenêtre se met de suite en icône et je n'ai pas le temps de paramétrer la nouvelle date système.
Lorsque cette commande est seule, sans ligne de commande en-dessous ça va mais, si j'ai une autre ligne en-dessous comme msgbox(""winking smiley & chem, hop, la fenêtre n'est plus active et évidemment, ça ne sert plus à rien.
D'avance merci.

@+

Guy FALESSE
SujetAuteurEnvoyé le

Fonction shell()

Guy Falesse19/11/13 15:46

Re: Fonction shell()

Guy Falesse19/11/13 16:27

Re: Fonction shell()

Hervé Inisan20/11/13 07:33

Re: Fonction shell()

Guy Falesse20/11/13 09:29

Re: Fonction shell()

Hervé Inisan20/11/13 10:32

Re: Fonction shell()

Guy Falesse20/11/13 11:19

Re: Fonction shell()

Hervé Inisan20/11/13 12:06

Re: Fonction shell()

Guy Falesse20/11/13 12:55

Re: Fonction shell()

Hervé Inisan20/11/13 15:13

Re: Fonction shell()

Guy Falesse20/11/13 15:36

Re: Fonction shell()

Hervé Inisan20/11/13 16:07

Re: Fonction shell()

Guy Falesse20/11/13 16:16

Re: Fonction shell()

Guy Falesse21/11/13 10:31

Re: Fonction shell()

Hervé Inisan21/11/13 19:14

Re: Fonction shell()

Guy Falesse20/11/13 07:59

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter