Discussion :

[Cas-Lu]

Salut tout le monde,
Dans le cadre de mon stage, la DRH m'a demandé de faire une application (gérant les heures supplémentaires) ou a la fin on peut enregistrer les données dans un fichier excel (.xls).
En soit, j'arrive à enregistrer mes données, mais trois problèmes s'offrent a moi :

• Pour que l’enregistrement se fasse, le fichier de destination doit déjà être présent. Problématique car je ne vais pas demander a tout les employées de la mairie de créer un fichier pour utiliser l'application.

• Dans mon fichier, l'enregistrement se fait sur la feuille de calcul 2. Embêtant car la première feuille reste vide et nous avons donc l'impression que le fichier est vide alors que les données sont sur la feuille 2.

• Le nom de la feuille de calcul ou sont enregistrés les données porte le nom d'une "query temporaire" ("tempo") que je souhaite renommer avec le mois actuel et l'année actuelle. Problématique, je suis obligé d'appeler ma query temporaire avec des guillemets (comme dans le code suivant) donc je ne peux pas lui donner de valeurs d'une variable.

Extrait du code :

Code :

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

1
2
3
4
5
6
7
Dim qd As QueryDef
Dim SQLENREGISTREMENT As String
SQLENREGISTREMENT = "SELECT Hsupp.n°, Hsupp.NomSalarié, Hsupp.PrenomSalarié, Hsupp.Jours,Hsupp.Mois, Hsupp.HSJourJoursOuvrables, Hsupp.HSJourDimanchesetFetes, Hsupp.HSNuit, Hsupp.TrancheshorairesHSJoursOuvrables, Hsupp.TrancheshorairesHSDimanchesetFetes, Hsupp.TranchesHorairesHSNuit, Hsupp.Motif FROM Hsupp WHERE Hsupp.ServiceSalarié ='" & ServiceSalariéActuel & "' And Hsupp.Mois='" & moisactuel & "' And Hsupp.Année ='" & anneeactuel & "';"
Set qd = CurrentDb.CreateQueryDef("tempo", SQLENREGISTREMENT)
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tempo", "C:\Users\stage-info\Desktop\Stage FLORY Lucas\Test.xlsx"
    DoCmd.DeleteObject acQuery, "tempo"
Set qd = Nothing

Pouvez vous proposer des solutions à mes problèmes svp.
Cordialement, Cas-Lu

[Jean-Philippe André]

Salut Cas-Lu,

mets de la paix dans ton code avec un peu de lecture :
http://cafeine.developpez.com/access/tutoriel/excel/
en particulier
http://cafeine.developpez.com/access...iel/excel/#LIV

Sinon des tas d'exemples en faisant une recherche dans le forum =]

[Cas-Lu]

Merci de votre réponse,
J'ai déjà utilisé ces pages de forums
Cependant, cela enregistre mes données dans un fichier existant, n'y a t-il pas moyen de créer le fichier ?

[Jean-Philippe André]

Encore et toujours des solutions rapides a faire par soi meme :
- la
http://access.developpez.com/faq/?page=Excel#PilotExcel
- le forum

[Cas-Lu]

J'essaye un truc de ce style :

Code :

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

1
2
3
4
5
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Users\stage-info\Desktop\Stage FLORY Lucas\Feuille.xlsx")

Cependant, j'ai une erreur : " Erreur de compilation : Type défini par l'utilisateur non défini"

[Jean-Philippe André]

Ok,

pour ne pas avoir cette erreur, et ne pas t'embarrasser de la version Excel de tes utilisateurs, essaie avec

Code :

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

1
2
3
4
5
6
Dim xlApp As Object
Dim xlBook As Object
 
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True ' pour afficher ton Excel :)
Set xlBook = xlApp.Workbooks.Open("C:\Users\stage-info\Desktop\Stage FLORY Lucas\Feuille.xlsx")