Changement wallpaperRésolu

Question

Hello !

Je voudrais modifier l'image de background du bureau de windows, par une macro Excel. Si j'ex&#233;cute le code ci-dessous, l'image n'est pas modifi&#233;e. Par contre, si je fais un click droit sur le bureau, puis propri&#233;t&#233;s, mon image voulue est bien affich&#233;e dans la boite de dialogue, il me suffit de presser sur appliquer puis sur ok pour que l'image de background se modifie. Que manque-t-il dans ce code pour que l'image soit chang&#233;e automatiquement ?

Merci pour votre aide.
Hector

Option Explicit


Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long


Private Sub main()
    Dim wsh As Object
    Dim r As String
        
    Set wsh = CreateObject("WScript.Shell")
    ' on cree le nom de l'image
    r = "H:\Back.bmp"
    ' on sauvegarde le nouveau numero
    SaveSetting "Wallpaper Changer", "Desktop", "Wallpaper", r
    WritePrivateProfileString "Desktop", "Wallpaper", r, "c:\windows\win.ini"
    wsh.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", r, "REG_SZ"
End Sub

lhurgoyf_37 · Accepted Answer

Salut



je te conseille plut&#244;t d'utiliser ces instructions.



Dans un premier temps il faut d&#233;clarer cette constante:



Public Const SPI_SETDESKWALLPAPER = 20



Puis il faut d&#233;clarer cette API:



Public Declare Function Parametrage Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long



Et enfin utilise cette ligne dans t&#224; proc&#233;dure:



Parametrage SPI_SETDESKWALLPAPER, 0, "H:\Back.bmp", 1



Et voila! Avec ces quelque lignes tu peux changer ton fond d'&#233;cran sans
aucun probl&#232;me (sur les syst&#232;mes g&#233;rant cette API). Si tu veux plus
d'explication sur cette API je te conseille d'aller voir du c&#244;t&#233; du
site de "darksidious".


@+
Le grand FLO

cs_Hector78 · Answer

Hello !

Rien &#224; redire, nickel c'est parfaitement ce que je recherchais ;-)

Merci.
Bonne journ&#233;e.
Hector

lhurgoyf_37 · Answer

Mais de rien

Le grand FLO

Changement wallpaper

3 réponses

Discussions similaires