Probleme enregistrement fichier.xls en vba

**Cas-Lu** · 20/01/2017, 08h23

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é** · 20/01/2017, 10h21

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** · 20/01/2017, 10h50

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é** · 20/01/2017, 10h53

Encore et toujours des solutions rapides a faire par soi meme :
- la

http://access.developpez.com/faq/?page=Excel#PilotExcel
- le forum

**Cas-Lu** · 20/01/2017, 11h14

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é** · 20/01/2017, 11h18

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")

**Cas-Lu** · 20/01/2017, 11h28

Mais on est d’accord, cette fonction ouvre la page mais ne la sauvegarde pas ? Parcequ'aprés avoir fermer le fichier le débogage s met en route en me disant qu'il ne trouve pas le fichier.
Je vais chercher sur le forum ou sur le site de la msdn une fonction du genre WorkBooks.save ou WorkBooks.saveAs
J'indiquerais mes résultat a la suite de ce message.

**Jean-Philippe André** · 20/01/2017, 11h34

Pour la sauvegarde, c'est exactement comme sous Excel

Code :

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

1
2
3
4
5
6
7
8
9
'ton code d'ouverture/de modification du fichier
'enregistrement
xlBook.Save
'fermeture du classeur
xlBook.Close False
'fermeture Excel
xlApp.Quit
set xlApp=Nothing
set xlBoook=Nothing

**Cas-Lu** · 20/01/2017, 11h53

Merci beaucoup, je n'ai pas encore tester le code mais il devrait fonctionner !

Invité · 20/01/2017, 13h06

Bonjour, en complément,

Code :

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

1
2
3
4
5
6
7
 

derl=xlBook.sheets("feuille 2").usderange.rows.count+1
With CreateObject("ADODB.Connection").Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentDb.Name & ";"
     xlBook("feuille 2").cells(derl,"A").CopyFromRecordset .Execute("Select * from Table Where Champ='toto'")
    .Close
End With

**Cas-Lu** · 23/01/2017, 09h07

Bonjour,
Je suis actuellement a se point :

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
Private Sub Commande8_Click()
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\Feuille.xlsx"
 
    Dim xlApp As Object
Dim xlBook As Object
'ouverture/modification du fichier
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("C:\Users\stage-info\Desktop\Stage FLORY Lucas\Feuille.xls")
'enregistrment
xlBook.Save
'fermeture du classeur
xlBook.Close False
'fermeture excel
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
 
DoCmd.DeleteObject acQuery, "tempo"
Set qd = Nothing
End Sub

Quand j’exécute, cela m'ouvre bien un fichier vierge, mais le débogage se met en route pour m'indiquer "Erreur d’exécution '91' Variable objet ou variable de bloc With non définie." et me surligne la ligne "xlBook.Save".

Ma feuille excel "Feuille" est bien créée. Cependant, j'ai aussi un message d'erreur quand j'essaye d'ouvrir mon fichier manuellement :"Impossible d'ouvrir le fichier "Feuille.xlsx" car son format ou son extension n'est pas valide. Vérifiez que le fichier n'est pas endommagé ou que son extension correspond bien au format du fichier."

**Jean-Philippe André** · 23/01/2017, 11h07

Salut,

peut etre que c'est une coquille, mais tu nous parles d'un fichier Feuille.xlsx mais dans ton code tu utilises seulement Feuille.xls.

Ceci pouvant etre une source d'erreur.

**Cas-Lu** · 23/01/2017, 11h34

En effet, faute d'inattention...
Ça marche nickel merci bcp pour votre aide !
(J'ai juste remplacé xlsx par xls dans la ligne Set xlBook=...)

Probleme enregistrement fichier.xls en vba

VBA Access

Discussions similaires

Partager

Partager