Conversion Extension fichier

Fermé
Moha - 14 mars 2016 à 10:30
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 14 mars 2016 à 13:57
Bonjour,
j'ai crée cette macro qui permet de modifier l'extension d'un fichier et de l'enregistrer sous format csv.

mon objectif maintenant c'est automatisé cette macro, ne pas donné le chemin d'accés mais de l'introduire (a moi de choisir le path a chaque fois car le fichier peut etre a un autre emplacement).

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

Merci pour votre aide
A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 312
Modifié par michel_m le 14/03/2016 à 14:02
bonjour
pour trouver un chemin avec une boite de dialogue intégrée
Function recherchedossier()
Dim ObjShell As Object, ObjFolder As Object
Dim Message As String
Dim Chemin As String

Message = "Faire la Sélection du Repertoire de sauvegarde:"

Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1)

On Error Resume Next 'Si on sort sans sélection
Chemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""
If Chemin = "" Then End
recherchedossier = Chemin
End Function

à copier dans un module standard
petite démo
Sub ccc()
MsgBox recherchedossier
End Sub
 Michel
0