Discussion :

[fantocool]

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

[unparia]

Bonjour

nous sommes passé en W10 et office 2016,

office 2016 en combien de bits ?

[fantocool]

Bonjour Unparia,
c'est Microsoft office 32 bits installé sur nos machines.
Merci bcp