Discussion :

[adrienb63]

Bonjour,

Je ne m'en sors pas avec mon code vba...
Je souhaite proposer à mes utilisateur de choisir à l'ouverture d'un fichier excel (qui contient un mappage xml) le fichier xml à importer dans ce mappage... (à l'aide d'une fenêtre du type "ouvrir")
J'ai fait plusieurs tentatives, mais je pense que je me complique un peu la vie.
Voici les différentes pistes explorées :

1ère piste : ouvre une fenêtre d'importation d'un fichier xml.
problème : s'ouvre dans un nouveau classeur et ne respecte pas le mappage du classeur d'origine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Fenetre()
NomFichierXML = Application.GetOpenFilename("Fichier XML (*.xml),*.xml", , "Choisir le fichier")
Set wk2 = Workbooks.OpenXML(Filename:=NomFichierXML, LoadOption:=xlXmlLoadImportToList)
encore:
FichierOk = Application.Dialogs(xlDialogOpen).Show
If Not FichierOk Then
    MsgBox " Vous devez choisir un fichier"
    GoTo encore
End If
End Sub

2ème piste :
Ouvre le fichier dont le chemin est donné (C:\Users\adrienb63\xxx\xxx.xml) avec le bon mappage
Problème : je ne trouve pas comment ouvrir une fenêtre de choix de fichier qui puisse permettre de modifier automatiquement ce chemin...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub ImportXmlFromFile()
     ThisWorkbook.XmlMaps("mesChamps_Mappage").Import ("C:\Users\adrienb63\xxx\xxx.xml")
End Sub

3ème piste :
Extrait les noms de fichiers xml contenus dans le dossier voulu
Problème : ne sert pas à grand chose en fait...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ListingFichiers()
Dim Rep As String, Fichier As String
Dim i As Integer
 
Rep = "C:\Users\adrienb63\xxx\"
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = i + 1
    Sheets("Feuil2").Range("A" & i) = Fichier
    Fichier = Dir
Loop
End Sub

Si quelqu'un pouvait me donner un petit coup de pouce, j'en serais très heureux !

Merci d'avance

[AlainTech]

Bonjour,

Une piste (non testée):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ImportXmlFromFile()
  Dim fd As FileDialog
  Dim strFilePath As String
  Dim wbk As Workbook
 
  Set fd = Application.FileDialog(msoFileDialogOpen)
  With fd
    If .Show Then
      strFilePath = .SelectedItems(1)
    Else
      Exit Sub
    End If
  End With
  Set wbk = ThisWorkbook.XmlMaps("mesChamps_Mappage").Import(strFilePath)
End Sub

[adrienb63]

Bonjour,

Merci pour ton aide AlainTech.

J'ai résolu le problème ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
 
Dim cheminComplet As String
 
ChDrive "X"
ChDir "X:\...\dossier\"
cheminComplet = Application.GetOpenFilename("XMLFiles (*.xml), *.xml")
ThisWorkbook.XmlMaps("mesChamps_Mappage").Import (cheminComplet)
 
End Sub

Les utilisateurs choisissent ainsi le fichier à importer dans le mappage xml défini avec Excel.