Bonjour à Tous,
j'avais une macro VBA (office 2010 sous WIN 7), qui me permettait de changer mon fond d'écran (car bloqué par l'IT) ;-).
Les PCs viennent d'être changé, nous sommes passé en W10 et office 2016, et je ne vois pas d'où viens le problème, puisque 2 changements en même temps.
Je vous remercie beacoup,
voici mon ancien code sous VBA Word 2010. (le fichier BMP est bien présent sur le C)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 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) x = SystemParametersInfo(20, 0, Fichier, Abs(Registre)) End Sub Public Sub Test() ChangePapierPeint "C:\cristal.bmp", False
Partager