Probleme avec fichier de jb-ListeFichiersRepertoireRenomme
#1
Débutant XLPages

Inscription: 19/12/2012

Messages: 13

Système d'exploitation:
PC
Version Excel utilisée:
XP 2003
Posté le : 16-01-2013 21h09
 Bonsoir le forum, 
Je viens de télécharger le dossier de jb-ListeFichiersRépertoireRenomme. Je choisi bien le répertoire que je souhaite, je modifie les noms et, lorsque je clique sur "modifie le nom" un message d'erreur apparait:
" Erreur d'exécution '53' 
   Fichier introuvable  "

Sub modifieNom()
For Each c In Range([A2], [A2].End(xlDown))
   If c.Offset(0, 2) <> "" Then
     Name c.Value As c.Offset(0, 2).Value
   End If
Next c
End Sub
Quelqu'un pourrait m'eclaicir sur ce probleme svp ? 
  Par avance merci

Bonne soirée à vous











Pièce jointe:
xls jb-ListeFichiersRepertoireRenomme.xls   [ Taille: 57.50 Ko - Téléchargements: 502 ]

Eric
Hors Ligne
Rapport   Haut 

Re: Probleme avec fichier de jb-ListeFichiersRepertoireRenomme
#2
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 16-01-2013 22h32
Bonsoir Eric, bonsoir à tous,

Cela signifie vraisemblablement que l'un des fichiers indiqué colonne A n'existe pas dans le répertoire.
As-tu bien fait tourner la macro Listefichiers() avant ?

Bonne soirée,

mth

Hors Ligne
Rapport   Haut 

Re: Probleme avec fichier de jb-ListeFichiersRepertoireRenomme
#3
Débutant XLPages

Inscription: 19/12/2012

Messages: 13

Système d'exploitation:
PC
Version Excel utilisée:
XP 2003
Posté le : 17-01-2013 08h27
 Bonjour Mth, le forum, 
Oui, j'ai bien fait tourner la macro et tous mes fichiers existent bien car je bosse dessus en ce moment.... 
Se sont des plannings. Ils sont regroupés dans un dossier principal nommé  plannings dans lequel il y a des sous dossiers des planning par années ( planning 2010, planning 2011 ... )Et à l'intérieur de ces sous dossier mes classeurs avec mes classeurs que j'aimerais eux renommer en Semaine 1, Semaine 2 , .... Semaine 53 ... ). 
Voila si ça peut t'éclairer car moi là, .... 

Bonne journée    


Eric
Hors Ligne
Rapport   Haut 

Re: Probleme avec fichier de jb-ListeFichiersRepertoireRenomme
#4
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 02-02-2013 07h21
Bonjour à  tous,
Salut Mimi,

Peux-tu essayer:
 
Sub ModifieNom()
For Each c In Range([A2], [A2].End(xlDown))
   If c.Offset(0, 2) <> "" Then
     OldName = c.Offset(0, 3).Value & c.Value
     NewName = c.Offset(0, 3).Value & c.Offset(0, 2).Value
     Name OldName As NewName
    End If
Next c
End Sub

Bises à Mimi
A + à tous



Cordialement
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes