Conversion Extension fichier

Moha -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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