SlayerTFX
Messages postés4Date d'inscriptionlundi 12 juin 2006StatutMembreDernière intervention22 juin 2011
-
4 août 2006 à 11:09
Pimousse34
Messages postés9Date d'inscriptionvendredi 3 septembre 2010StatutMembreDernière intervention19 août 2011
-
23 juin 2011 à 15:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Pimousse34
Messages postés9Date d'inscriptionvendredi 3 septembre 2010StatutMembreDernière intervention19 août 2011 23 juin 2011 à 15:30
Super !!!!
Merci infiniement SlayerTFX !!
Pimousse34
Messages postés9Date d'inscriptionvendredi 3 septembre 2010StatutMembreDernière intervention19 août 2011 22 juin 2011 à 22:09
Bonsoir,
Je teste demain au boulot et je vous reponds ^^
Merci
Cdlt
SlayerTFX
Messages postés4Date d'inscriptionlundi 12 juin 2006StatutMembreDernière intervention22 juin 2011 22 juin 2011 à 21:48
Bonsoir,
Merci pour le commentaire :)
Sur le moment je n'ai pas de meilleure idée que remplacer :
Name (Z_Name) As (Z_Addr & Z_NewName & "_" & Z_Count & Z_Ext)
par
Name (Z_Name) As (Z_Addr & Z_NewName & "_" & Right("000" & Z_Count, 3) & Z_Ext)
Ça répond à votre question ?
Cordialement.
Pimousse34
Messages postés9Date d'inscriptionvendredi 3 septembre 2010StatutMembreDernière intervention19 août 2011 20 juin 2011 à 09:27
Bonjour,
Je vous remercie ENORMEMENT pour ce fichier , je debute débute en VBA et franchement un grand MERCI !!
J'avais une toute petite question si c'etait possible, comment faire pour que le nom des fichiers renommé soit 001 puis 002 puis 003 au lieu de 1,2, 3 etc... ??
Cordialement
Pimousse34
SlayerTFX
Messages postés4Date d'inscriptionlundi 12 juin 2006StatutMembreDernière intervention22 juin 2011 4 août 2006 à 11:09
Pour ne pas renommer les fichiers des sous dossiers :
# With Application.FileSearch
# .NewSearch
# .Filename = "*.*"
# .LookIn = ZP_ADR
# .SearchSubFolders = False 'A la place de True
23 juin 2011 à 15:30
Merci infiniement SlayerTFX !!
22 juin 2011 à 22:09
Je teste demain au boulot et je vous reponds ^^
Merci
Cdlt
22 juin 2011 à 21:48
Merci pour le commentaire :)
Sur le moment je n'ai pas de meilleure idée que remplacer :
Name (Z_Name) As (Z_Addr & Z_NewName & "_" & Z_Count & Z_Ext)
par
Name (Z_Name) As (Z_Addr & Z_NewName & "_" & Right("000" & Z_Count, 3) & Z_Ext)
Ça répond à votre question ?
Cordialement.
20 juin 2011 à 09:27
Je vous remercie ENORMEMENT pour ce fichier , je debute débute en VBA et franchement un grand MERCI !!
J'avais une toute petite question si c'etait possible, comment faire pour que le nom des fichiers renommé soit 001 puis 002 puis 003 au lieu de 1,2, 3 etc... ??
Cordialement
Pimousse34
4 août 2006 à 11:09
# With Application.FileSearch
# .NewSearch
# .Filename = "*.*"
# .LookIn = ZP_ADR
# .SearchSubFolders = False 'A la place de True