Affectation d'une valeur dans une cellule

[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 :

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 :

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
xlbook.Sheets("Feuil1").Cells(1, 1).Value = "Matricule commande"
xlbook.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 !?!

 

[James007]

Re : Affectation d'une valeur dans une cellule

Bonjour,

Est-ce-que cela signifie que ton code s'arrête à la ligne :

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

Si oui, le nom de ta feuille est-il correct ?

A +

 

[Skangell]

Re : Affectation d'une valeur dans une cellule

Je créée le fichier excel et je veux insérer une entête.

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

Ensuite la création effectuée, j'ouvre le fichier et j'ai une boucle pour remplir les données que j'ai affecter dans un tableau.

Pour le nom de la feuille oui oui c'est bien "Feuil1". Dans tous les cas j'aurais une erreur si ce n'était pas le bon nom

Mais rien ne s'insère...

 

[James007]

Re : Affectation d'une valeur dans une cellule

Désolé de ne pas pouvoir t'aider avec plus de précision, car le code fonctionne bien ... je viens de le tester ...

Si tu as plusieurs instances d'Excel ouvertes simultanément, cela pourrait te causer des problèmes ...

A +

 

[Skangell]

Re : Affectation d'une valeur dans une cellule

J'ai un peu honte de moi après vous avoir fait perdre du temps mais...

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 de votre aide et encore désolé pour la perte de temps... 🙁
Bonne fin de journée !

 

[James007]

Re : Affectation d'une valeur dans une cellule

Il n'y a absolument aucun mal ...

Ravi que tu aies pu trouver la solution de ton problème ...

A +