Discussion :

[Skangell]

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 !?!

[mercatog]

Code :

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

1
2
xlbook.Sheets("Feuil1").Cells(1, 1).Value = "Matricule commande"
xlbook.SaveAs CheminFichier

[Skangell]

Bonjour mercatog ! Merci pour ta réponse rapide !
J'ai testé ce bout de code et rien ne se passe...

Je pense à une mauvaise création du fichier... Si quelqu'un a le temps de vérifier mon code ça serait super !

Merci d'avance !!

[Skangell]

Et voilà... Autant pour moi... C'était bien une erreur dans mon code, mais ça venait de plus haut dans le traitement... Mauvaise initialisation de mon tableau, un des indices ne commençait pas à 0

Ce qui fait qu'à l'ajout des informations dans le second fichier, une ligne était en trop et écrasée mon entête...

Aïe Aïe Aïe !
En tout cas merci, ton code était parfait !
Bonne fin de journée !