Discussion :

[nsqualli]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
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

[Godzestla]

Bonjour,

tu ne sauve pas si c'est le même nom :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
            'changer le nom du fichier pour la forme prenom nom_RMA MM-AA
            NouveauNomClasseur = Prenom & " " & Nom & "_RMA " & Mois & "-" & Annee
            if name1 <>   NouveauNomClasseur
                ActiveWorkbook.SaveAs Filename:=Repertoire & "\" & NouveauNomClasseur
               Fso.DeleteFile namechemin
           endif