Discussion :

[iThybo]

Bonjour à toutes et à tous !

J'ai crée une macro pour renommer des PDF que voici :

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
Sub RenameFirst()
    Dim i, AncienNom, NouveauNom
 
    i = 1
    AncienNom = "C:\Users\ay47395\Desktop\vba test\" & Range("A" & i)
 
    While Dir(AncienNom) <> ""
        NouveauNom = "C:\Users\ay47395\Desktop\vba test\" & Range("B" & i)
 
            If AncienNom <> NouveauNom Then
                Name AncienNom As NoueauNom
            End If
        i = i + 1
        AncienNom = "C:\Users\ay47395\Desktop\vba test\" & Range("A" & i)
    Wend
 
    MsgBox (i)
 
End Sub

Or, dès que j'arrive sur "Name AncienNom As NouveauNom", il m'affiche cette Erreur 58. Du coup je regarde dans mon dossier si ce fichier (celui dans NouveauNom) existe mais il est bien inexistant...

Je ne comprends pas pourquoi cette Erreur s'affiche...

[Menhir]

Or, dès que j'arrive sur "Name AncienNom As NouveauNom", il m'affiche cette Erreur 58. Du coup je regarde dans mon dossier si ce fichier (celui dans NouveauNom) existe mais il est bien inexistant...

Ton fichier est mal structuré.
Essaye ça :

Code :

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

1
2
3
4
5
6
7
8
9
Sub RenameFirst()
    Dim i As Long, AncienNom As String, NouveauNom As String
 
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        AncienNom = "C:\Users\ay47395\Desktop\vba test\" & Cells(i, 1)
        NouveauNom = "C:\Users\ay47395\Desktop\vba test\" & Cells(i, 2)
        If Len(Dir(NouveauNom)) = 0 Then Name AncienNom As NoueauNom
    Next i
End Sub

[iThybo]

Salut ! J'ai exactement la même erreur...

[halaster08]

Bonjour,

Petite erreur d'inattention:

Name AncienNom As NouVeauNom

Du coup tu essaye de renommer ton fichier avec un nom vide (variable non initialisée) c'est peut être pour ça qu'il bug.

Note que ce genre d'erreur peux se détecter simplement en activant option explicit

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub aa()
    Dim i As Long, AncienNom As String, NouveauNom As String
 
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        AncienNom = "C:\Users\ay47395\Desktop\vba test\" & Cells(i, 1)
        NouveauNom = "C:\Users\ay47395\Desktop\vba test\" & Cells(i, 2)
        If Len(Dir(NouveauNom)) = 0 Then Name AncienNom As NoueauNom
    Next i
End Sub

[Menhir]

Note que ce genre d'erreur peux se détecter simplement en activant option explicit

Et plus encore : Menu Outils > Options > Onglet Editeur > Déclaration de variables obligatoire