Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Fonction shell()

20/11/13 12:55
Salut Hervé,

OK, je l'ai :-)

Voici ma fonction, tu comprendras certainement mieux ce qu'il se passe, sans vouloir te forcer la main.
En fait, je suis obligé de mettre la ligne:MsgBox ("Cliquer sur OK après le changement de date "winking smiley & NewDate
sinon, la fonction pour changer la date n'a pas le temps d'être enregistrée et je charge la mauvaise année.
Seulement, le risque est grand de cliquer sur OK avant que le ShellExec ne soit exécuté.

Public Function RevenirAnnéeCourante()
Dim maBD As Database, rstRevenir As Recordset, NewDate, chem As String
Dim TBD As String, rep As Integer, LeDrapeau As Boolean
Set maBD = CurrentDb
Set rstRevenir = maBD.OpenRecordset("Consultation", dbOpenDynaset)
If rstRevenir!DateConsultation <> Date Then
MsgBox "La date système a été changée," & vbLf & _
"Vous devez donc la changer," & vbLf & _
"à l'aide du logiciel prévu.", vbCritical + vbOKOnly, "Défaut date système"
'NewDate = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl"winking smiley
ShellExec "rundll32.exe", , vbNormalFocus, "shell32.dll,Control_RunDLL timedate.cpl,,2"
MsgBox ("Cliquer sur OK après le changement de date "winking smiley & NewDate
chem = "C:\SVella\VellaTables" & DatePart("yyyy", Date) & ".mdb"
MsgBox (""winking smiley & chem
Forms!Acceuil!Texte50 = "Accueil en " & DatePart("yyyy", Date)
DétacherToutesLesTables 'on détache les tables déjà attachées
'-------------------------
TBD = "Microsoft Access"
DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Adresses", "Adresses"

etc.

Mercismiling smiley

@+

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