Erreur d'execution '70': permission refusée

Bonjour,

j'ai fais un boue de code vba qui sert a ouvrir un dossier, ouvrir le premier classeur, extraire les valeur de 4 cellules, il renomme le nom de ce classeur en utilisant les valeurs de ces cellules l'enregiste et apres supprime le classeur d'origine.

sauf que j'ai une "erreur d'execution '70': permission refusée" qui apparait quand le nouveau nom et et le nom d'origine sont identique.

voila le code:

For Each FileItem In SourceFolder.Files
        name1 = FileItem.name
        namechemin = Repertoire & "\" & FileItem.name

        Workbooks.Open (namechemin)

            'recuperer le prenom de la feuille RMA
            Prenom2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 2).Value
            Prenom1 = Replace(Prenom2, " ", "")
            Prenom = Replace(Prenom1, "-", "")

            'recuperer le nom de la feuille RMA
            Nom2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 3).Value
            Nom1 = Replace(Nom2, " ", "")
            Nom = Replace(Nom1, "-", "")

            'recuperer le mois de la feuille RMA
            Mois2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 4).Value
            Mois1 = Replace(Mois2, " ", "")

            If Mois1 = "Janvier" Then
                Mois = "01"
            End If

            .....

            If Mois1 = "Décembre" Then
                Mois = "12"
            End If

            'recuperer l'année de la feuille RMA
            Annee2 = Workbooks(name1).Worksheets("feuil1").Range("B" & 5).Value
            Annee1 = Replace(Annee2, " ", "")
            Annee = Right(Annee1, 2)

            'changer le nom du fichier pour la forme prenom nom_RMA MM-AA
            NouveauNomClasseur = Prenom & " " & Nom & "_RMA " & Mois & "-" & Annee
            ActiveWorkbook.SaveAs Filename:=Repertoire & "\" & NouveauNomClasseur
            Fso.DeleteFile namechemin

        Workbooks(NouveauNomClasseur).Close SaveChanges:=False
    Next

est ce que vous pouvez m'aider?

Merci

Bonjour,

Il faut peut être installé une gestion d'erreur dans ta macro. essaie avec ce bout de code que j'ai placé à la fin du tiens

........
NouveauNomClasseur = Prenom & " " & Nom & "_RMA " & Mois & "-" & Annee
On Error GoTo Message
ActiveWorkbook.SaveAs Filename:=Repertoire & "\" & NouveauNomClasseur
Fso.DeleteFile namechemin
Workbooks(NouveauNomClasseur).Close SaveChanges:=False
Next
Exit Sub
Message:
Msgbox "ce nom existe déjà !!"
Resume next
End sub

Amicalement

Dan

bon ce que j'ai fais c que j'ai fais un teste, si l'ancien nom = au nouveau je ne renomme pas le fichier.