Nommer fichier XML suite a export d'une feuille excel

Bonjour,

j'ai une macro qui exporte le contenu d'une plage de cellules, d'un fichier Excel vers un fichier .xml.
Le nom de sortie du fichier xml est inscrit en dur dans le code, pour etre "Fichier.xml"
Or je souhaite aujourdhui optimiser ce code, pour qu'il crée toujours le meme fichier xml, mais qu'il le nomme selon la valeur d'une cellule donnée, par exemple la cellule A4 contient "548997854", je souhaite que mon fichier s'appelle 548997854.xml

Surement pas grand chose pour un expert en vba, mais je n'ai pas reussi a trouver la reponse jusqu'a present.
Merci d'avance

mon code actuel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Macro1() Application.Visible = False   ' export vers un fichier .xml ' Dim CheminFichierXml As String Dim Tablo() As Variant   Tablo = Range("A1:J1").Value CheminFichierXml = "C:\Fichier.xml" NumFichier = FreeFile()   Open CheminFichierXml For Output As #NumFichier   'tu parcours le tableau For i = 1 To UBound(Tablo) For j = 1 To UBound(Tablo, 2) Print #NumFichier, Tablo(i, j) Next j Next i   Close #NumFichier ' Ferme le fichier. ' Application.Goto Reference:="Macro1" Application.Visible = True End Sub

---

Salut,

remplace

Code:

---

CheminFichierXml = "C:\Fichier.xml"

---

par

Code:

---

CheminFichierXml = "C:\" & Range("A4").Value &".xml"

---

Genial ! Que dire de plus...MERCI l'ami

Juste histoire de pinailler (mais c'est vraiment pour couper les cheveux en 4), j'aurais plutôt écrit :

Code:

---

CheminFichierXml = "C:\" & Range("A4").Text &".xml"

---

Ok merci aussi :P

Salut,

la macro marche super, je voudrais juste que Excel ne m'ouvre pas la fenêtre Visual basic quand je l'exécute, si c'est possible bien sur

Merki

Tu peux virer cette ligne qui ne sert pour le coup à rien :)

Code:

---

Application.Goto Reference:="Macro1"

---

Genial, c'est parfait. Merci encore ;)