Afficher une image en fond d'ecran de bureau avec une macro [Fermé]

Signaler
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019
-
Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
-
Bonjour,

J'ai une partie de mon programme qui permet de convertir en plage de cellule en fichier bmp
j'aimerai savoir si c'est possible avec une macro d'afficher cette image en fond d'écran de bureau

Merci

Configuration: Windows / Edge 16.16299

1 réponse

Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
535
Messages postés
19
Date d'inscription
lundi 8 juillet 2019
Statut
Membre
Dernière intervention
30 août 2019

Bonjour et merci,

ce code m'a l'air quand même compliqué, je n'y comprend pas grand chose ...
savez vous ou faut t'il renseigner le chemin de l'image et quelle fonction lancer ?

Cdlmnt
Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
535
>
Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020

Bonjour, je souhaiterai savoir comment vous avez réussi a le testé, et tous comme JHache1801 je ne vois pas comment lancer la macro.
Pourriez-vous m'expliqué s'il vous plaît ?
Messages postés
6861
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2020
535 > Tahaan
Bonjour,

A mettre dans un Module:

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub ChangePapierPeint(Fichier As String, Registre As Boolean)
Dim x
x = SystemParametersInfo(20, 0, Fichier, Abs(Registre))
End Sub
Public Sub Test()
ChangePapierPeint "C:\Users\Public\Pictures\Pictures\monimage.bmp", False 'chemin de l'image (bmp uniquement) à adapter
End Sub
'https://www.generation-nt.com/reponses/comment-changer-le-fond-ecran-xp-en-vba-dans-une-macro-word-entraide-330866.html
'et pour lancer à l'aide d'un bouton
Private Sub CommandButton1_Click()
Test
End Sub



Voilà

@+ Le Pivert