Bonjour tt le monde
j'ouvre successivement les fichiers d'un repertoire en utilisant cette méthode qui fonctionne tres bien avec des fichiers excel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
Dim chemin As String, FirsWk As String
    Application.Dialogs(xlDialogOpen).Show
'''ici démarre l'assistant
        chemin = ActiveWorkbook.Path & "\"
    NomFich = Dir(chemin & "\*.xls", vbNormal)
    Do While NomFich <> ""    ' Commence la boucle.
            Workbooks.Open chemin & NomFich
MsgBox ActiveWorkbook.Name ' code
        ActiveWorkbook.Close True
        NomFich = Dir
    Loop
End Sub
mais les fichiers que je cherche a ouvrir , meme s'il ont l'extention .xls, ne sont pas du .xls. ils ont cette extention en sortant du logiciel SAP. donc, quand je les ouvre, cela déclenche l'assistant d'importation de texte. je souhaiterais donc , avant de les ouvrir, transformer leur extension en .csv qui ne déclenche pas cet assistant.
je ne sais pas comment faire et je ne trouve rien par la recherche. quelqu'un peut m'aider ? merci d'avance