Macro pour enregistrer sous

Salut Midge,

Je commence à peine à me mettre au VBA.

Mais en Macro MS Excel 4.0, ça marche en donnant d'abord le chemin par la fonction Repertoire puis la fonction enregistrer et non pas enregistrer.sous

En espérant t'avoir aidé, @+

J'ai trouvé une astuce, ily en a peut-être une autre mais celle-ci fonctionne :

Sub Macro1()

Dim SauvegardeFichier, Vérification_Fichier, NomFichierSauvegarde

NomFichierSauvegarde = 'EnregisterSousBis.xls'

Vérification_Fichier = 'D:\\MSOFFICE\\EXCEL\\EnregisterSousBis.xls'

SauvegardeFichier = Vérification_Fichier

Vérification_Fichier = Dir(SauvegardeFichier)

If Not Vérification_Fichier = '' Then

Dim Msg, Style, Title, Response, MyString
Msg = 'Le fichier <<' & NomFichierSauvegarde & '>> existe déjà. Voulez-vous le remplacer ?' ' Définit le message.
Style = vbYesNo + vbExclamation + vbDefaultButton2 ' Définit les boutons.
Title = 'Microsof Office excel' ' Définit le titre.

'Affiche le message.
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = 'Oui' ' Effectue une action.
Kill (SauvegardeFichier)

Else ' L'utilisateur a choisi Non.
MyString = 'Non' ' Effectue une action.
End
End If

End If

ActiveWorkbook.SaveAs Filename:='D:\\MSOFFICE\\EXCEL\\EnregisterSousBis.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Par contre pour inserer des guillemets classic dans le message... Quelq'un a peut-être le truc... Merci.