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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
 
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 !?!