Microsoft 365 VBA : Copier-Coller

GMeunier

XLDnaute Nouveau
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 :

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
298 015
Messages
1 965 154
Membres
200 866
dernier inscrit
Moucat