Conversion Extension fichier
Moha
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 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
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
1 réponse
-
bonjour
pour trouver un chemin avec une boite de dialogue intégréeFunction 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 standardpetite démo
Michel
Sub ccc()
MsgBox recherchedossier
End Sub
