Discussion :

[Tardoss]

Bonjour,

Mon petit problème est le suivant :
j'ai créer une macro (transfert) qui déplace un fichier excel dans un dossier quand elle est appelée. Quand je l'essaye en mode pas à pas j'ai l'erreur 52 : Nom ou numéro de fichier incorrect.

Petite subtilité, le nom de mon fichier change régulièrement, j'ai essayé 2 choses mais en vain.
D'abord j'ai essayé de mettre "nom_du_fichier *" dans mon code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub transfert()
 
Dim FichierOriginal As String
Dim FichierDeplace As String
 
 
FichierOriginal = "C:\Documents\nom_du_fichier *.xlsx" 
FichierDeplace = "C:\Documents\deplacer\nom_du_fichier *.xlsx" 
 
Name FichierOriginal As FichierDeplace
 
End Sub

ainsi que créer une variable (public ou privé) avec "nom_du_fichier *" puis l'ajouter aux chemins

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim FichierOriginal As String
Dim FichierDeplace As String
Dim file as Variant
 
file ="nom_du_fichier *.xlsx"
FichierOriginal = "C:\Documents\" & file
FichierDeplace = "C:\Documents\deplacer\" & file
 
Name FichierOriginal As FichierDeplace

J'ai l'erreur 52. Je n'arrive pas à voir ce qui cloche et mes recherches n'ont menées à rien.
Quelqu'un a une idée?

Bien à vous, Tardoss

[tototiti2008]

Bonjour,

le nouveau nom ne peut pas contenir d’astérisque (*), en tout cas pas à ma connaissance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Nom as String
Dim FichierOriginal As String
Dim FichierDeplace As String
 
 
Nom = dir("C:\Documents\nom_du_fichier *.xlsx")
if nom<>"" then
FichierOriginal = "C:\Documents\" & nom
FichierDeplace = "C:\Documents\deplacer\" & nom
Name FichierOriginal As FichierDeplace
end if

[Tardoss]

Bonjour tototiti,

Merci pour ta réponse ça marche parfaitement