Utilisation d'un argument dans le nom d'un import de fichier xml

[llobica]

Bonjour,

J'ai besoin d'aide concernant la syntaxe à utiliser lorsque l'on souhaite employer un argument dans un nom de fichier ou de répertoire...

Voici mon problème :
J'effectue dans une Macro1 un import xml provenant par exemple de :
C:\Documents\Export_Client1.xml

Mais j'aimerai que "Client1" soit un argument, par exemple "NomClient" de manière à ce que je puisse lancer cette macro en utilisant le nom du du client qui m'intéresse (possédant une liste de fichiers dans le même répertoire avec juste le nom de client qui est modifié).

Par exemple :
Sub Macro1 (NomClient$)
Instruction d'import avec C:\Documents\Export_NomClient.xml
En Sub

Sub Macro2()
Call Macro1("Client1")
Call Macro1("Client2")
End Sub


Ainsi, je voudrais modifier
C:\Documents\Export_Client1.xml
en : C:\Documents\Export_NomClient.xml

Il me semble qu'il faut ajouter un & et/ou des guillemets...

Merci par avance pour l'aide que vous pourrez m'apporter à ce sujet,
Cordialement,

llobica

 

[Yaloo]

Re : Utilisation d'un argument dans le nom d'un import de fichier xml

Bonsoir llobica,

Comme ça peut être :

Sub Ouvrir(NomFichier As String)
  Application.DisplayAlerts = False
  Workbooks.OpenXML Filename:="C:\" & NomFichier & ".xml", LoadOption:= _
      xlXmlLoadImportToList
End Sub
Sub Import_xml()
  Call Ouvrir("le nom de ton fichier")
End Sub

Tu peux aussi mettre une cellule.

A te relire

Martial

 

[llobica]

Re : Utilisation d'un argument dans le nom d'un import de fichier xml

Bonsoir Martial,

Merci beaucoup ton retour !
Cela fonctionne parfaitement !

Pour info comme le début du nom de chaque fichier est identique, et que j'utilise l'argument "Client1" ailleurs j'ai pu même couper le nom du fichier
Ça donne quelque chose comme ça :
"C:\Documents\Export_" & "NomClient" & ".xlm"

Encore merci pour ton aide,
Bonne continuation,

llobica