Discussion :

[ever06]

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 :

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

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

[Jean-Philippe André]

Salut,

remplace

Code :

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

CheminFichierXml = "C:\Fichier.xml"

par

Code :

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

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

[ever06]

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

[Menhir]

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

Code :

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

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

[ever06]

Ok merci aussi

[ever06]

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

[Jean-Philippe André]

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

Code :

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

Application.Goto Reference:="Macro1"

[ever06]

Genial, c'est parfait. Merci encore