Microsoft 365 VBA : Copier-Coller

[GMeunier]

Bonjour,
J'ai un code qui me permet de copier l'ensemble des fichiers d'un répertoire, de les coller dans un second répertoire et de les effacer du premier.
Si je fais cette manip. à la main et que les fichiers sont déjà présents dans le second répertoire, j'ai un message "Remplacer ou ignorer". Par contre si j'utilise la macro, le code ne réagit pas, que les fichiers que je veux copier soient déjà présents ou pas dans le répertoire de destination.
1° J'aimerais comprendre ce qui entraine ce comportement dans le code ci-dessous :

Sub RtionProject_MàJ_Sauvegarde()
'Sauvegarde des mises à jour ajoutées dans C://PACTE_SSE\B-DATA/REALISATIONC1C2\RtionProjet_MaJ dans le sous-répertoire  RtionProjet_Sauvegarde
Dim NomFich As String
Dim OldRep As String, NewRep As String
    OldRep = "C:\PACTE_SSE\B-DATA\REALISATIONC1C2\RtionProjet_MàJ\"
    NewRep = "C:\PACTE_SSE\B-DATA\REALISATIONC1C2\RtionProjet_Sauvegarde\"
    NomFich = Dir(OldRep & "*.xlsx", 2)
        Do While NomFich <> ""
            If (GetAttr(OldRep & NomFich) And vbNormal) = vbNormal Then
                FileCopy OldRep & NomFich, NewRep & NomFich
            End If
            NomFich = Dir()
        Loop
' Remise à blanc du sous-répertoire "RtionProjet_MaJ"
Kill ("C:\PACTE_SSE\B-DATA\REALISATIONC1C2\RtionProjet_MàJ\" & "*.xlsx")
'Retour feuille "RtionProjet_Data"
Sheets("RtionProjet_Data").Activate
    Range("A1").Select
End Sub

2° J'aimerai que si les fichiers à copier sont déjà présents dans le répertoire de destination j'ai une MsgBox "Certains des fichiers que vous voulez copier sont déjà présents!" de façon à avertir. Ces subtilités dépassent ma maîtrise basique du VBA!
Merci d'avance,
GDM

 

[Rossoneri83]

Bonjour,

Un simple IF devrait faire l'affaire :
If OldRep & NomFich = NewRep & NomFich Then
If MsgBox("attention un fichier existe, voulez vous l'ecraser?", vbYesNo) = vbYes Then
FileCopy OldRep, NewRep
else
FileCopy OldRep, NewRep
end if