mettre une feuille de calcul en fond d'ecan windows (bureau)

[tanerbus]

bonjour

Je cherche a mettre une feuille de calcul en fond d'ecan windows (bureau) par code vba

merci.

excel 2007, windows xp

 

[PascalXLD]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

Bonjour

Tu peux préciser stp car le fond d'écran Windows c'est de l'image si je ne me trompe

Donc tu veux faire une copie ecran et la mettre en fond c'est cela ??

 

[tanerbus]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

Bonjour

Tu peux préciser stp car le fond d'écran Windows c'est de l'image si je ne me trompe

Donc tu veux faire une copie ecran et la mettre en fond c'est cela ??

oui tout a fait

pour le moment je le fait manuellement avec la touche [impr écran] et le logiciel paint

j'aimerai savoir si il y avait une possibilité de le faire par code vba via excel

merci

 

[vbacrumble]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

Bonjour tous


Un code (prévu pour Access au départ)
(non testé sous Excel, car pas d'Excel sous la main pour le moment)

Option Explicit

'http://searchvb.techtarget.com/ateQuestionNResponse/0,289625,sid8_gci905773,00.html

Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1

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

Public Sub SetWallpaper(ByVal FileName As String)

Dim ret As Long
ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)

End Sub

Public Sub TESTING()
SetWallpaper ("C:\Windows\Soap Bubbles.bmp")
End Sub

Tu trouveras sur le forum des exemples de code VBA pour exporter un plage de cellules en gif ou jpg

Ceci fait le code VBA ci-dessus te sera utile pour modifier le papier peint de Windows

 

[tanerbus]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

la fonction marche : elle permet de mettre une image en fond écran du bureau merci pour cette fonction,

mais reste a trouvé comment faire pour que la feuille active s'enregistre en image(.bmp ) ?
j'ai testé ça mais l'image n'est pas reconnue

Public Sub TESTING()
ChDir "C:\Windows"
ActiveWorkbook.SaveAs FileName:= _
"C:\Windows\Soap Bubbles.bmp", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

SetWallpaper ("C:\Windows\Soap Bubbles.bmp")
End Sub

 

[vbacrumble]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

Re


Je t'indiquais à la fin de mon précédent message que tu trouveras sur le forum des exemples pour exporter une plages de cellules en fichier image.


Tu ne l'as peut-être pas lu ?

 

[tanerbus]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

desoler j'avais pas vu la fin je cherche toute suite

 

[vbacrumble]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

Re



Au cas ou tu n'aurais pas trouver

Un exemple parmi d'autres
https://www.excel-downloads.com/threads/exporter-une-feuille-en-tant-quimage.66346/

et une autre méthode en passant pas une fonction VBA ExportRangeToPicture

 

[tanerbus]

Re : mettre une feuille de calcul en fond d'ecan windows (bureau)

merci beaucoup j'ai trouvé mon bonheur
au revoir