Erreur d'execution 53 [Résolu/Fermé]

Question

Erreur d'execution 53 [Résolu/Fermé]

Signaler

Mistral_13200

Messages postés: 527
Date d'inscription: mardi 5 août 2008
Statut: Membre
Dernière intervention: 3 mai 2020

- 7 mars 2019 à 11:08
Mistral_13200

Messages postés: 527
Date d'inscription: mardi 5 août 2008
Statut: Membre
Dernière intervention: 3 mai 2020

- 7 mars 2019 à 13:25

Bonjour à tous,

J'utilise la macro ci-dessous pour copier des photos d'un répertoire à un autre sans changer le nom de fichier.

Sub Recup_Photos()
' Récupération des photos du Recup photo.

' Bloquage du rafraichissement et des alarmes.
Application.ScreenUpdating = False ' Bloque le rafraichissement de l'écran.
Application.EnableEvents = False ' Arret de la scrutation.
Application.DisplayAlerts = False ' Bloque les messages Excel.

Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
Dim Rep_Depart, Rep_Arrivee, nom, Nvx_Nom As String
Dim DernLigne As Long

' Nvx_Nom = "Diapo" ' 1ère partie du nouveau nom.

' Affichage feuille Palmamres.
Sheets("Recup photo").Visible = True
Sheets("Recup photo").Select

DernLigne = Range("A65536").End(xlUp).Row
Set FL1 = Worksheets("Recup photo")
NoCol = 10 ' Lecture de la colonne 10.
For NoLig = 2 To DernLigne
Rep_Depart = FL1.Cells(NoLig, NoCol) ' Répertoire d'origine.
nom = FL1.Cells(NoLig, NoCol + 1) ' Fichier à copier.
Rep_Arrivee = FL1.Cells(NoLig, NoCol + 2) ' Répertoire d'arrivée.
FileCopy Rep_Depart & "\" & nom, Rep_Arrivee & "\" & nom & "B.jpg"
Next
Set FL1 = Nothing

ActiveWindow.SelectedSheets.Visible = False ' Masquage la feuille Recup photo.

' Rétablissement du rafraichissement et des alarmes.
Application.ScreenUpdating = True ' Active le rafraichissement de l'écran.
Application.EnableEvents = True ' Active de la scrutation.
Application.DisplayAlerts = True ' Active les messages Excel.

MsgBox "Récupération des photos terminées."

End Sub

Dans ma feuille excel, colonne "J" j'ai le nom du répertoire de départ dans la colonne "K" le nom du fichier à copier et dans la colonne "L" le nom du répertoire de destination. Quand je lance la macros j'ai une erreur d’exécution 53 sur la ligne :

FileCopy Rep_Depart & "\" & nom, Rep_Arrivee & "\" & nom & "B.jpg"

J'ai vérifié plusieurs fois les chemins des deux répertoires et le nom de fichier, sans résultat.
Pouvez-vous m'aider.
D'avance merci.
Mistral

Afficher la suite

A voir également:

Erreur d'execution 53
Erreur d'execution 53 ✓ - Forum - Excel
Erreur d'execution 13 ✓ - Forum - Programmation
Erreur d'execution 1004 - Forum - Programmation
Illipro erreur d'execution 5 ✓ - Forum - VB / VBA
Erreur d'execution 424 ✓ - Forum - Programmation

2 réponses

Posez votre question

cs_Le Pivert · Answer 1 · 2019-03-07T11:19:21+0100

Bonjour,

dans la colonne "K" le nom du fichier à copier

ce nom se termine -t-il par l'extension .jpg?

Parce que sur cette ligne tu reprends la variable nom 2 fois

FileCopy Rep_Depart & "\" & nom, Rep_Arrivee & "\" & nom & "B.jpg"

si nom est avec l'extension cela va donner a la destination ceci: nom.jpgB.jpg

et si il n'y a pas d'extension erreur ici:

FileCopy Rep_Depart & "\" & nom

la solution est de mettre nom sans extension et mettre ce code:

FileCopy Rep_Depart & "\" & nom  & ".jpg", Rep_Arrivee & "\" & nom & "B.jpg"

Mistral_13200 · Answer 2 · 2019-03-07T13:25:35+0100

Réponse 2 / 2

Mistral_13200

Messages postés: 527
Date d'inscription: mardi 5 août 2008
Statut: Membre
Dernière intervention: 3 mai 2020

3
7 mars 2019 à 13:25

Bonjour et merci pour ta réponse.
Je viens de tester et c'est parfait.

Un grand merci à toi.
Je clos le sujet.
Mistral

Votre réponse