Probleme d'enregistrement et d'ecrasement fichier via vba

Bonjour,



Bonjour,

je ne trouve pas le code pour pouvoir effectuer ce qu'il y d'indiquer 'a faire' dans ma fenetre VBA: pourrait on m'aider?
ci joint macro.
.

Sub macroslaannulation()
'
' macroslaannulation Macro
'
'les Msgbox avec test servent au dev et seront à supprimer

Application.ScreenUpdating = False


monclasseur = ActiveWorkbook.Name

racine = ActiveWorkbook.Path
MsgBox "test 1: The path is " & racine


'--------------------- insertion du premier fichier
MsgBox ("Ajouter le fichier Récap")
monFichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
'gestion erreur
If monFichier = False Then
Exit Sub
End If

MsgBox "test 3 " & monFichier

' a faire :
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Récap dans le dossier du fichier synthèse
'ne fonctionne pas pour l'instant ....
Workbooks(monFichier).SaveCopyAs (racine & "Recap.xls")



'
'--------------------- insertion du deuxième fichier
MsgBox ("Ajouter le fichier Stat")
monFichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
'gestion erreur
If monFichier = False Then
Exit Sub
End If

' a faire :
'il faut enregistrer ou copier le fichier selectionné (monFichier) en écrasant le fichier Stat dans le dossier du fichier synthèse
'
Application.ScreenUpdating = True

'
End Sub

Cordialement