Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
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