Macro pour modifier l'extension d'un fichier

[Nazim]

Bonjour,

J'ai un fichier avec une extension particulière (fichier.RECU) que je souhaite automatiser son ouverture avec EXCEL, le problème c'est que je n'arrive pas à l'exporter dans son format initial, il faudrait changer son extension en CSV pour que ça marche.

Est -il possible de le faire ?

Merci pour votre aide.

 

[M12]

Re : Macro pour modifier l'extension d'un fichier

Bonjour

Pour le renommer, à toi de l'incorporer dans un module

Sub renomme()
Dim ANCIENNom As String
Dim NOUVEAUNom As String


ANCIENNom = "C:\ton chemin\fichier.recu"
NOUVEAUNom = "C:\ton chemin\fichier.csv"
'Vérifie si le fichier à renommer existe.
   If Dir(ANCIENNom) = "" Then Exit Sub
   Name ANCIENNom As NOUVEAUNom 'renomme le classeur

End Sub

 

[Nazim]

Re : Macro pour modifier l'extension d'un fichier

Re Bonjour M12,
Merci pour ta réponse
J'ai quand même encore un petit soucis avec ce code,
L'emplacement du fichier peut être quelconque, donc j'utilise déjà une macro pour choisir le fichier à ouvrir " Sub ImporterFeuilles()
Dim wBase As Workbook, wOuvert As Workbook, WS As Worksheet
Set wBase = ThisWorkbook
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
Set wOuvert = ActiveWorkbook
For Each WS In wOuvert.Worksheets
WS.Copy After:=wBase.Worksheets(wBase.Worksheets.Count)
Next WS
End Sub"
Est ce possible d'adapter ce code pour qu'il s’exécute avec n'importe quel fichier ayant la même extension ?