Forcer l'enregistrement dans une macro

Bonjour Sou PULL,

Application.DisplayAlerts = False
ton code
Application.DisplayAlerts = True



Salutations!



"Sou PULL" <soupull@wanadoo.fr> a écrit dans le message de news: uAuhRv7NGHA.3260@TK2MSFTNGP11.phx.gbl...
Bonjour,

j'ai créé une macro qui permet à cha que utilisateur de mon tableau de
créer une extraction de donnée dans un nouveau classeur puis de me
l'envoyer par mail.
Ce nouveau classeur est automatiquement généré sur le disque de
l'utilisateur avec un nom pré-déterminé ainsi que dans un dossier.
Lors de la première exécution tout est OK.
LOrs de la deuxième, je souhaite que le fichier soit écrasé par le
nouveau, et j'ai donc le message "Un fichier nommé "xxx" existe déjà à
cette emplacement, Voulez vous le remplacer ?"
Existe t'il un moyen ou une ligne à rajouter dans ma macro pour que
cette question n'apparaissent plus et que le nouveau classeur créer
écrase l'ancien. Pour plus de clarté voici la macro tel qu'elle existe
actuellement :

Sub envoi()

Range("H5:T5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Range("B1").Select
Selection.End(xlDown).Select
Selection.End(xlToLeft).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "nom_du_vendeur"
Range(Selection, Selection.End(xlUp)).Select
Selection.FillUp
ChDir "C:Reporting"
ActiveWorkbook.SaveAs
Filename:="C:Reportingreport_nom_du_vendeur.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close
Sheets("saisie").Select
Range("H5").Select
End Sub

D'avance merci