bonjour Loulou ,Gerard ,@+Thierry et Chris
je viens de tester la version proposée par @+Thierry le 18-02-04 11:35( la solution qui cherche tout seul le chemin du bureau )
chez moi cela fonctionne sans aucune retouche ( win98 , excel 97 )
pour le dernier message de Loulou , essaye
Sub enregistrer_sur_bureau()
Dim ThePath As String
Dim TheFileToSave As Variant
ThePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & ActiveWorkbook.Name
TheFileToSave = Application.GetSaveAsFilename(ThePath, "MicrosoftExcel,*.xls")
If TheFileToSave = False Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs TheFileToSave
Application.DisplayAlerts = True
End Sub
bonne journée
michel