Changer l'extension d'un fichier sous VBA

Question

Bonjour, 

Je bloque un peu sur VBA pour changer l'extension d'un fichier. Enfait Dans un répertoire j'ai 2 dossier, l'un contenant des fichier .txt et je voudrais réenregistrement ces fichier en .xls dans le deuxième dossier. Je ne connais pas vraiment VBA alors je patoge pas mal. Si vous avez une idée me permetant de me dire dans quelle direction chercher je vous en remercie. Toute aide est la bienvenue, merci d'avance

Configuration: Windows XP / Firefox 3.6.6

Bidouilleu_R · Answer

changer l'extension d'un fichier sous VBA :
il faut utiliser faire :  name  fichier.txt fichier.xls

mais dans ton cas j'ai des doutes...
Je ne connais pas vraiment VBA alors je patoge pas mal.
Explique ce que tu veux faire ce sera plus simple.
j'ai l'impression que la methode enregistrer Sous... serait plus proche de ton besoin.
A+

thunderbolt · Answer

Merci déjà pour ta réponse si rapide, je vais essayer d'expliquer un peu mieux ce que j'essai de faire.
Enfaite, j'ai plusieurs dossier qui on comme nom des dates mais ces dossiers ont toujours la même arborescence. dans chacun de ces dossier j'ai deux sous répertoires: Données brutes et Données Excel. dans le dossier données brutes j'ai un ensemble de fichier text et ce que je voudrais c'est ré enregistrer ces fichiers au format .xls dans le deuxième dossier appelée Données Excel

Bidouilleu_R · Answer

pour t'avancer dans ta demarche
executes ce code.
il t'ouvre la boite de dialogue "fichier ouvrir" puis tu selectionnes le fichier Texte
il l'ouvres comme si le fichier était bien formaté ( à voir)
puis il l'enregistre dans le sousdossier \Données Excel ..
le résultat est un fichier xls...

Sub Convertit_en_xls()
Dim Chemin As String
Dim Fichier As String
Dim LeNom As String

    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    Workbooks.OpenText (Fichier)
   
    While Right(Fichier, 1) <> "\"
        LeNom = Right(Fichier, 1) & LeNom
        Fichier = Left(Fichier, Len(Fichier) - 1)
    Wend
    CheminSource = Left(Fichier, Len(Fichier) - 1)
    
    
    While Right(CheminSource, 1) <> "\"
        CheminSource = Left(CheminSource, Len(CheminSource) - 1)
    Wend
    Chemin = CheminSource & "Données Excel\"
    
    LeNom = Left(LeNom, Len(LeNom) - 3) & "xls" ' le nom avec xls
       
        ActiveWorkbook.SaveAs Chemin & LeNom
        ActiveWorkbook.Close

End Sub

thunderbolt · Answer

hua super, merci ça l'enregistre dans le bon dossier, maintenant faut juste voir pour qu'il l'ouvre automatiquement et faire une boucle de façon a ce qu'il fasse de même pour tout les fichier texte du dossier. Pour l'ouvrir et faire la boucle je devrais réussir a m'en sortir mais au cas ou je reposerais sur ce forum par contre, quand le fichier se ré enregistre il demande de confirmer que je veux bien enregistrer les modification, il y aurait il un moyen de désactiver cette alerte?

Merci beaucoup pour ton aide précieuse.

Bidouilleu_R · Answer

je n'ai pas eu d'erreur mais vérifie quand même...

A+

Public TabloFichier() As String

Sub Convertit_en_xls()
Dim Chemin As String
Dim SavChemin As String
Dim CheminSource As String
Dim Fichier As String
Dim LeNom As String
Dim j As Integer

    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    

    While Right(Fichier, 1) <> "\"
        LeNom = Right(Fichier, 1) & LeNom
        Fichier = Left(Fichier, Len(Fichier) - 1)
    Wend
    
    CheminSource = Left(Fichier, Len(Fichier) - 1)
    SavChemin = CheminSource & "\"
    creerListeFichier (Fichier)  ' un tableau qui contient tous les noms de fichier TXT
    
    While Right(CheminSource, 1) <> "\"
        CheminSource = Left(CheminSource, Len(CheminSource) - 1)
    Wend
    Chemin = CheminSource & "Données Excel\"   ' le dossier d'enregistrement
    
    ' on boucle sur le tableau
    For j = 0 To UBound(TabloFichier)
        LeNom = TabloFichier(j)
        Fichier = SavChemin & LeNom
        Workbooks.OpenText (Fichier)
        LeNom = Left(LeNom, Len(LeNom) - 3) & "xls" ' le nom avec xls
       
        ActiveWorkbook.SaveAs Chemin & LeNom
        ActiveWorkbook.Close
    Next j
End Sub



Public Sub creerListeFichier(specdossier)
    
    Dim fso, oDossier, oFichier, sFichier

    Dim I As Integer
    Dim s As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oDossier = fso.getfolder(specdossier)
    Set oFichier = oDossier.Files
    For Each sFichier In oFichier
        If Right(sFichier.Name, 3) <> "txt" Then
           ' ce n'est pas un fichier txt
        Else
            ReDim Preserve TabloFichier(I)
            TabloFichier(I) = sFichier.Name
            I = I + 1
       End If
    Next
   
   
End Sub

thunderbolt · Answer

Merci pour se nouveau code, je ne l'ai pas encore essayer, je te dis tout de suite s'il marche, j'étais en train de modifier de trois bricole sur l'ancien car enfaite, le fichier s'ouvrait bien mais j'avais un message d'erreur sur l'extension et j'ai aussi supprimer les message d'alerte ça donnais ça (je renvoie que la fin, le début est le même)

        ActiveWorkbook.SaveAs Filename:=Chemin & LeNom, FileFormat:=xlNormal

        Application.DisplayAlerts = False
        ActiveWorkbook.Save
        ActiveWorkbook.Close
        Application.DisplayAlerts = True
        

End Sub

Encore un grand merci pour ton aide,

thunderbolt · Answer

Bon ba c'est tout simplement Parfait, je te remercie encore
Bonne journée à toi Bye ;)

Bidouilleu_R · Answer

penses à mettre résolu s'il te plait

Changer l'extension d'un fichier sous VBA

8 réponses

Votre réponse

Newsletters