Comment rafraichir Excel sans redémarrer Excel ?

[trashouille]

Comment rafraichir Excel sans redémarrer Excel ? Par exemple pour prendre en compte de nouveaux paramètres régionaux...

 

[chris]

Bonjour
A mon avis sans Bonjour, ni merci, Excel a du mal à raffraichir.
Chris

 

[trashouille]

Bonjour,

mais est-ce qu'avec un bonjour et un merci tu aurais une solution pour moi?

merci pour toutes les réponses concernant mon gros problème

Trashouille

 

[schmail]

Bonjour Trashouille et le forum

Rien de sur mais essaye F9 pour voir

@+ et bonne fin d'après midi

 

[trashouille]

et non cela ne marche malheureusement pas. Merci tout de même.

Je ne sais pas du tout comment se lance excel et comment il stocke les parametres regionaux au demarrage. Peut etre dans la base de registre?

 

[EMG]

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

 

[trashouille]

merci Gérard mais cela ne résoud toujours pas mon problème.