déplacement de fichier aplhanum d'un repertoire

[sri75]

Bonjour, j'ai récupéré cette super macro sur le forum pour déplacer des fichiers mais je recontre un probleme avec la variable String.

Si mes fichiers sont de type toto.doc ça marche par contre mes fichiers sont de type
00000225.pdf ou 00001164.exe il y a donc un mélange d'alpha et de numérique et la macro ne déplace pas les fichiers car elle ne les reconnait pas comme "string".

Merci pour votre aide.


Sub Sauve_Fichiers()
Dim Nom_Fichier As String, Rep_Travail As String, Rep_Sauve As String
Rep_Travail = "c:\mes fichiers\": Rep_Sauve = "c:\Sauvegarde\"
Nom_Fichier = Dir(Rep_Travail & "*.*", vbNormal)
Do While Nom_Fichier > ""
If Len(Nom_Fichier) >= 5 Then Name Rep_Travail & Nom_Fichier As Rep_Sauve & Nom_Fichier
Nom_Fichier = Dir()
Loop
End Sub

 

[jp14]

Re : déplacement de fichier aplhanum d'un repertoire

Bonjour

Une piste déclarer "Nom_Fichier" comme variable string
Dim Nom_Fichier as string

JP

 

[sri75]

Re : déplacement de fichier aplhanum d'un repertoire

Bonjour

Une piste déclarer "Nom_Fichier" comme variable string
Dim Nom_Fichier as string

JP

Bonjour, sauf erreur de ma part c'est déja le cas, non ?

Sub Sauve_Fichiers()
Dim Nom_Fichier As String, Rep_Travail As String, Rep_Sauve As String

 

[jp14]

Re : déplacement de fichier aplhanum d'un repertoire

Bonsoir

Autant pour moi je n'avais pas vu la ligne.

A tester en utilisant Cstr(Dir()).
Pour trouver le point ou cette modification se produit mettre un point d'arrêt et exécuter la macro en pas à pas (f8) et poser un espion pour dir() et str(dir()) pour déterminer si c'est vba le fautif ou windows.

JP