Bonsoir Trashouille, schmail, Chris, & le forum
J’ai regroupé plusieurs procédures du système pour les plus curieux
Sub PanneauConfiguration_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL", 1)
Exit Sub
End Sub
Sub PanneauInstallation_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", 1)
Exit Sub
End Sub
Sub ProprieteAffichage_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 1)
Exit Sub
End Sub
Sub ParametreRegionaux_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 1)
Exit Sub
End Sub
Sub ProrieteSouris_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", 1)
Exit Sub
End Sub
Sub ProprieteMultimedia_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", 1)
Exit Sub
End Sub
Sub InstallationModeme_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", 1)
Exit Sub
End Sub
Sub ProprieteDateHeure_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", 1)
Exit Sub
End Sub
Sub Propriete_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", 1)
Exit Sub
End Sub
Sub PanneauPassword_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", 1)
Exit Sub
End Sub
Sub PanneauReseau_Systeme()
On Error Resume Next
Status = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", 1)
Exit Sub
End Sub
@+Gérard