modifier extension xls en xlt sous repertoirs

[carlos]

Bonjour

Je souhaiterais une macro qui me permette de modifier l'extension de tous mes fichiers contenus dans le dossier EPS (et Sous dossiers compris) .

Passer de XLS en XLT

Merci

 

[carlos]

Bonjour Staple 1600
bonjour le forum


Je ne suis pas assez avancé sous vba pour utiliser tes infos..

Si tu peux etre plus explicite ca m'aiderai.

Merci

 

[carlos]

Re bojour staple 1600

Merci pour ton aide mais ta macro semble simplement reprendre le nom d'un fichier choisi pour en creer un nouveau vierge.

Ce n'est pas ce que je recherche

j'aimerais simplement conserver mes fichiers sous ce dossier et les renommer en xlt

Merci

 

[Bricofire]

Bonsoir Carlos, Staple1600 ,

Une autre piste en utilisant l'instruction Name, ce qui te permet d'agir directement....

Je te mets le code que j'ai utilisé sur un fichier à moi (pour renommer un paquet de dossiers en xls) et adapté pour xls vs xlt (avec une pirouette... on doit pouvoir jouer sur l'extension directe via FileFormat avec une autre approche, mais je ne sais pas faire :whistle: ) J'ai laissé mon répertoire....
En jouant avec la propriété SubFolder et ses proches, tu dois pouvoir boucler sur ce que tu veux



Sub Zoup()
Dim fs, f, f1, fc, s, f2
Set fs = CreateObject('Scripting.FileSystemObject')
Set f = fs.GetFolder('C:\\+ BH\\BHImb_Test\\')
Set fc = f.Files
For Each f1 In fc
f2 = f1
Mid(f2, (Len(f2) - 2), 3) = 'xlt'
Name f1 As f2
Next
End Sub

)

Bonne nuit,

Bfr

 

[carlos]

Bonsoir Bricofire, Staple1600

Je viens tout juste de récuperer vos propositions ..

Je vais les tester ..

Merci deja

 

[carlos]

Bonsoir le forum
Bonsoir Bricofire

ta macro est tres tres éfficace et opérationnelle .

Cependant j'aimerai ne changer que le xls en xlt...... .

Elle modifie toutes les extensions en xlt meme du txt ou doc

Je vais tenté d'y remedier

 

[Bricofire]

Bonsoir Carlos, Staple1600,

En effet Carlos, elle ne fait pas dans le détail, l'idée était de donner une piste, d'ailleurs l'absence d'antiSlash ne tas pas trop pertubé :whistle:

Sinon, il suffit de rajouter une petit filtre et c'est bon....


Sub Zoup()
Dim fs, f, f1, fc, s, f2, Ext
Set fs = CreateObject('Scripting.FileSystemObject')
Set f = fs.GetFolder('C:\\\\\\\\+ BH\\\\\\\\BHImb_Test\\\\\\\\')
Set fc = f.Files
For Each f1 In fc
f2 = f1
Ext = Mid(f2, (Len(f2) - 2), 3)
If Ext = 'xls' Then
Mid(f2, (Len(f2) - 2), 3) = 'xlt'
Name f1 As f2
End If
Next
End Sub



Ca serait bien aussi de déclarer les variables comme il faut :side:

Bonne nuit,

Bfr

 

[carlos]

Bonsoir Bricofire

c'est bien plus qu'une piste c'est une solution parfaite

En ce qui concerne le slash j'avais fait la modif

Merci beaucoup pour to savoir faire

merci ausii à Staple 1600

Bonne nuit

Carlos