Bonjour tout le monde.

Voici le début du code d'un de mes fichiers.

Le but est d'ouvrir un autre fichier excel en passant par un explorateur ce qui n'est pas vraiment un problème.

Le Hic c'est que ce fichier .xls généré par mon logiciel compta est en fait un fichier formaté xml et ce message d'erreur apparait :
"Le format du fichier que vous tentez d'ouvrir est different de celui spécifié par l'extension..."
puis une fois validé j'ai une boite de dialogue à bouton me proposant de l'ouvrir
en tant que tableau XML
(ce qui m'intéresse),
en tant que
classeur en lecture seule
(ce que fait par défaut la macro)
ou en
utilisant le volet Office Source XML
.

Que faire ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Importer_quand_click()
Application.ScreenUpdating = False
 
    If MsgBox("Désirez vous actualiser les données ?", vbYesNo, "Transfert") = vbYes Then
 
    Fichier = Application.GetOpenFilename("Fichiers Excel,*.xls", , , , False)
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Filename = fso.GetFileName(Fichier)
 
    Workbooks.Open Fichier