Affectation d'une valeur dans une cellule
Bonjour à tous !
J'aurais besoin de votre aide pour résoudre un traitement qui me paraissait simpliste et qui me fait suer ...
Grâce à un traitement, je récupère des valeurs dans un fichier EXCEL. Un bouton dans ce premier fichier me permet de créer un nouveau classeur avec ces valeurs... Tout marche sauf pour l'ajout de la ligne d'en tête du fichier créé !
Impossible d'ajouter une valeur dans les cellules !
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| ' Ouverture du fichiers des départs
CheminDossier = "D:\Mes documents\Relevés armoire de commande\" & NomDossier & "\"
NomFichier = "Relevé Departs.xls"
' Si le chemin du dossier n'existe pas on le créé et on créé le fichier relié
If Not (RepertoireExiste(CheminDossier)) Then
MkDir CheminDossier
CreationFichierExcel (CheminDossier)
' On ouvre le fichier créé à la fin de la création
Workbooks.Open (CheminDossier & NomFichier)
Else
Workbooks.Open (CheminDossier & NomFichier)
End If |
La procédure :
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
|
Private Sub CreationFichierExcel(ByRef CheminDossier)
Dim xlApp As New Excel.Application
Dim xlBook As Workbook
Dim NomFichier As String
NomFichier = "Relevé Departs.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
CheminFichier = CheminDossier & NomFichier
' En tête première colonne
'M'affiche la valeur dans le classeur où il y a le bouton au lieu que ce soit dans le nouveau fichier
Feuil1.Cells(1, 1).Value = "Matricule commande"
xlApp.Workbooks(1).SaveAs (CheminFichier)
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Sub |
Quel est le traitement à effectuer pour réaliser cela ? Ou où mettre l'affectation des cellules !?!
