Discussion :

[xweb-10]

Bonjours
je veux crée un fichier excel qui a comme nom la valeur d'une variable
si on a par exemple une variable (A) qui contient la valeur 2 (A=2) le fichier excel vas donc prendre le nom 2.xls

bon j'ai écrit le code suivant :

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
Private Sub Command1_Click()
 
Dim xlApp As New Excel.Application
Dim xlBook As WorkBook
Dim NomFichier As String
Dim i As Integer
Dim s As String
 
 
i = 2
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Add
 
 
s = Val(i)
 
NomFichier = App.Path & s & ".xls"
xlBook.SaveAs NomFichier
xlBook.Close
xlApp.Quit
 
Set xlBook = Nothing
Set xlApp = Nothing
End Sub

le problème maintenant c'est que le fichier excel ne se crée pas
Si quelqu'un à une idée , Merci d'avance .

[SfJ5Rpw8]

ne se créé-t'il pas plutôt au mauvais endroit... étant donné qu'il semble manquer un "\" dans le nom de fichier..

Code :

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

NomFichier = App.Path & "\" & s & ".xls"