Afficher un message
Vieux 19/07/2006, 23h59   #3 (permalink)
ChTi160
XLDnaute Barbatruc
 
Avatar de ChTi160
 
Date d'inscription: février 2005
Localisation: Savigny le Temple 77176
Version Excel : Excel 2007 (PC)
Messages: 3 110
Envoyer un message via MSN à ChTi160
Par défaut Re : Renommer fichier dans tous les sous repertoires

Salut pobrouwers
Bonsoir le Forum
pas évident de tester mais il me semble (je ne sais pas si ton problème vient de la )qu'il y a un problème

NewName = "\test" & ii & ".xls"
For i = 1 To .FoundFiles.Count
Fichier = .FoundFiles(i)
Name Fichier As TxbBrowseForFolder & "\" & NewName

ce qui donne
Citation:
TxbBrowseForFolder \\test" & ii & ".xls"
si tu mets un slass à NewName n'en mets pas à
Name Fichier As TxbBrowseForFolder & NewName
ou lycée de versailles
en espérant avoir fait avancer le chimilimBlic
bonne fin de Soirée
__________________
Amicalement Jean Marie

ChTi160 est déconnecté   Réponse avec citation