Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 08/12/2010, 10h54   #1
Futur Membre du Club
 
Inscription : juillet 2010
Messages : 84
Détails du profil
Informations forums :
Inscription : juillet 2010
Messages : 84
Points : 15
Points : 15
Par défaut Renommer un fichier

Bonjour,

J'ai trouvé le code ci desous pour renommer un fichier :

Code :
Name "T:\Documents\toto.xls" As "T:\Documents\Test.xls"
Le problème c'est que mon fichier à renommer peut s'appeler 78totoert.xls ou toto-gh456.xls etc.. le nom du fichier contient juste "toto"

J'ai bien essayé ca :

Code :
Name "T:\Documents\*toto*.xls" As "T:\Documents\Test.xls"
Mais ca ne marche pas

Merci
nicoosito est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/12/2010, 14h39   #2
Futur Membre du Club
 
Inscription : juillet 2010
Messages : 84
Détails du profil
Informations forums :
Inscription : juillet 2010
Messages : 84
Points : 15
Points : 15
Je pensais que ca serait simple, mais en faite c'est pas facile du tout !
nicoosito est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/12/2010, 14h47   #3
Membre éprouvé
 
Avatar de Tonioyo
 
Anthony Schricke
Développeur informatique
Inscription : juin 2008
Messages : 342
Détails du profil
Informations personnelles :
Nom : Anthony Schricke
Localisation : France, Haute Garonne (Midi Pyrénées)

Informations professionnelles :
Activité : Développeur informatique

Informations forums :
Inscription : juin 2008
Messages : 342
Points : 455
Points : 455
Bonjour,

Il est possible d'utiliser l'objet FileSystemObject avec se méthode MoveFile de la réference Windows Script Host Object Model pour renommer un fichier.

http://warin.developpez.com/access/fichiers/

Cordialement,
__________________
loi de LeBlanc : Plus tard signifie jamais. extrait de Coder proprement Auteur:Robert C. Martin
Tonioyo est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/12/2010, 15h04   #4
Futur Membre du Club
 
Inscription : juillet 2010
Messages : 84
Détails du profil
Informations forums :
Inscription : juillet 2010
Messages : 84
Points : 15
Points : 15
voici LA solution

Code :
1
2
3
4
Sub test()
fich = Dir("c:\temp\*toto*.xls")
Name "c:\temp\" & fich As "c:\temp\resultat.xls"
End Sub
merci
nicoosito est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/12/2010, 15h45   #5
Membre Expert
 
Inscription : janvier 2006
Messages : 1 111
Détails du profil
Informations forums :
Inscription : janvier 2006
Messages : 1 111
Points : 1 093
Points : 1 093
Que se passe-t-il si tu as plusieurs fichiers *toto* dans ton répertoire ?
__________________
[Access] Les bases du débogage => ici
Kloun est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h58.


 
 
 
 
Partenaires

Hébergement Web