Bug aléatoire Access / Excel

Version imprimable

Bonjour à tous, j'espère que vous allez m'aider car j'ai un beug qui intervient quelque fois et que je ne sais pas comment résoudre. D'ailleurs je n'arrive pas à le reproduire systématiquement, je n'ai pas encore détecter le cas provoquant ce beug.
Vous imaginez bien que je ne suis pas à l'aise car je me dit que ça pourra très bien arriver avec les utilisateurs...

j'ai une base access d'un côté et des fichiers excel de l'autre. Deux fonctionnalitées, l'une est de charger dans Access le contenu des fichiers excel et l'autre d'effectuer un export dans excel du contenu des tables access.

Pour faire simple, j'ai donc deux boutons sur mon formulaire, un bouton chargement access et un bouton export excel.

Pour le chargement, j'ouvre des fichiers excel (plusieurs) je l'ai parcourt et je charge dans Access.

Pour l'export, je crée un fichier excel et je l'alimente a l'aide d'un recordset.

Le beug, c'est que parfois, quand je lance la fonctionnalité de chargement, le fichier a importer s'ouvre mais il y a également un autre fichier excel qui s'ouvre.
cet autre fichier excel s'appelle book1 et contient une ligne dont le contenu se trouve dans la base access. Ensuite ça me demande si je veux enregistrer les changements du fichier book 1 et ça fait planter mon chargement mais je ne sais plus sur quel ligne de code...
Je me doute donc que quelque chose n'est pas ok, et je soupçonne que ce fichier book1 a été crée lors d'un export vers excel...et qui a peut etre été mal fermé..
Je dis ça car le nom de l'onglet est le meme que celui que je nomme dans la fonctionnalité d'export vers excel.

Bon je suis pas un expert, j'ai crée le code en regardant les syntaxe sur ce site.
Je voudrais déja vérifier avec vous que le code est correct, propre et que c'est bien comme ça qu'on travaille avec des fichiers excel.

Procédure de chargement :
Code:

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 27 28 29 30 31 32 33 Private Sub CmdChargementActiviteService_Click() Set xls = FnOuvrirFichierXls(CurrentProject.Path & "\" & RepertoirePA & "\" & NomFichier) 'Activer onglet "projet" xls.Sheets("projet").Activate 'Parcourt des activitées While xls.Cells(iNumLigne, 3) <> "fin" 'remplir table budget SQLInsertion = "INSERT INTO budget (Type, Producteur,Periode, niveauActivite1, niveauActivite2, niveauActivite3, niveauActivite4, Nature, IndicateurVariabilite, TotalJH, Montant, ModeAllocation, CentreSolutionFinanceJH, CentreSolutionFinanceMontant, CentreSolutionRHJH,CentreSolutionRHMontant, CentreSolutionSiègeSupportJH,CentreSolutionSiègeSupportMontant, CentreDeServicesJH,CentreDeServicesMontant, CentreDeProductionJH,CentreDeProductionMontant, DSICentraleJH, DSICentraleMontant)" _ & "VALUES ('" & strType & "','" & xls.Cells(NumLigneDebut, 1) & "','" & xls.Cells(NumLigneDebut, 2) & "','" & Replace(xls.Cells(iNumLigne, 3), "'", "''") & "','" & Replace(xls.Cells(iNumLigne, 4), "'", "''") & "','" & Replace(xls.Cells(iNumLigne, 5), "'", "''") & "','" & Replace(xls.Cells(iNumLigne, 6), "'", "''") & "','" & strNature & "','" & strIndicateurVariabilite & "','" & xls.Cells(iNumLigne, 7) & "'," & iTJMBrut * xls.Cells(iNumLigne, 7) & ",'" & xls.Cells(iNumLigne, 9) & "','" & DestCSFJH & "','" & DestCSFMontant & "','" & DestCSRHJH & "','" & DestCSRHMontant & "','" & DestCSSSJH & "','" & DestCSSSMontant & "','" & DestCSJH & "','" & DestCSMontant & "','" & DestCPJH & "','" & DestCPMontant & "','" & DestDSIJH & "','" & DestDSIMontant & "')" 'MsgBox SQLInsertion DoCmd.RunSQL SQLInsertion Call FnFermerFichierXls(xls) 'ouverture du fichier des sous activitées Set xls = FnOuvrirFichierXls(CurrentProject.Path & "\" & RepertoirePlanRH & "\" & FichierPlanRH) xls.Sheets("Sous-activité").Activate SQL ... 'MsgBox SQLInsertion DoCmd.RunSQL SQLInsertion Call FnFermerFichierXls(xls) End Sub
Procédure d'export :
Code:

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 Private Sub CmdExporterBudget_Click() If IsNull(txtPeriode.Value) = False Then SQLBudget = "SELECT * FROM Budget WHERE periode = '" & txtPeriode.Value & "'" 'MsgBox SQLBudget End If 'initialisation des variables iNumLigneDebut = 2 Set rs = CurrentDb.OpenRecordset(SQLBudget) If rs.RecordCount = 0 Then MsgBox "aucun résultat pour la recherche" Exit Sub End If rs.MoveFirst 'Fichier déja présent ? If Dir(CurrentProject.Path & "\Budget.xlsx", vbHidden) <> "" Then If MsgBox("Un export a déja été réalisé pour cette période et ce producteur, voulez-vous l'écraser ?", vbYesNo) = vbYes Then 'Le fichier est il ouvert If IsFileOpen(CurrentProject.Path & "\Budget.xlsx") = True Then MsgBox "Veuillez fermer le fichier budget puis relancer le traitement" Exit Sub Else 'supprimer le fichier Kill (CurrentProject.Path & "\Budget.xlsx") End If Else Exit Sub End If End If Workbooks.Add Sheets("sheet1").Select Sheets("sheet1").Name = "Budget" Sheets("budget").Activate 'Création entete Sheets("budget").Cells(1, 1) = "Producteur" ....... While Not rs.EOF Sheets("budget").Cells(iNumLigneDebut, 1) = (rs!Producteur) ....... rs.MoveNext iNumLigneDebut = iNumLigneDebut + 1 Wend ActiveWorkbook.SaveAs FileName:=CurrentProject.Path & "\Budget" ActiveWorkbook.Close MsgBox "Export terminé" end sub
Les procédures ouverture et fermeture d'un fichier excel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Public Function FnOuvrirFichierXls(CheminFichier As String) As Excel.Application Dim xls As Excel.Application Set xls = CreateObject("Excel.Application") xls.Workbooks.Open CheminFichier xls.Visible = True Set FnOuvrirFichierXls = xls End Function Public Sub FnFermerFichierXls(ByVal objFichierXls As Excel.Application) objFichierXls.ActiveWorkbook.Save objFichierXls.Workbooks.Close objFichierXls.Quit Set objFichierXls = Nothing End Sub
Si vous pouviez déja me dire si la manière dont j'ouvre et je ferme les fichiers excel est correct, et si la manière dont je crée les fichiers excel est correct également ?

Merci beaucoup de votre aide, je sais pas comment résoudre ce probleme aléatoire...

Merci

02/07/2011, 21h37
helas

Bonsoir,
la fonction d'ouverture de fichier Excel (FnOuvrirFichierXls) est sans doute de trop car Workbooks.open dans le corps de la fonction principale suffirait
Le passage de l'objet Excel.Application en variable me semble suspect.
Idem pour la fermeture.
04/07/2011, 10h40
_developpeur_
Bonjour merci pour ta réponse. OK je supprime les fonctions d'ouvertures et de procédures du fichier.
Mais peux-tu m'en dire d'avantage, ai-je besoin de déclarer un objet excel.application ou bien je fait juste un woorbook.open puis close puis save ?

merci de votre aide

Bonjour, en regardant un autre code d'ouverture d'excel, j'ai vu qu'on pouvait déclarer un objet de type woorbook et lui affecté l'ouverture du fichier.

Code:

Set xlBook = xlApp.Workbooks.Open (chemin)

alors que moi je fais :
Code:

1 2 Set xls = CreateObject("Excel.Application") xls.Workbooks.Open (CurrentProject.Path & "\" & RepertoireService & "\" & FichierService)
est-ce que ça pourrait venir de là mon problème de book1 qui s'ouvre ?

Quelle différence entre créer un objet de type woorkbook ou non ?

Merci

Si quelqu'un qui s'y connait pourrait me dire si c'est plus propre de créer un objet de type workbook et si mon problème pourrait venir de là, ça serait super cool, merci beaucoup à ceux qui voudraient bien m'aider.

bonjour, je suis retombé sur le bug...
J'ai virer les fonctions d'ouverture et de fermeture du fichier excel.
J'ouvre et je ferme dans le corps de procédure principal :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'ouverture du fichier
Set xls = CreateObject("Excel.Application")
Set xlsClasseur = xls.Workbooks.Open(CurrentProject.Path & "\" & RepertoireTJMChargé & "\" & FichierTJMChargé)
xls.Visible = False
xls.DisplayAlerts = False
 
'Activer onglet "projet"
Set xlsFeuille = xlsClasseur.Worksheets("TJM Chargé")
xlsFeuille.Activate
 
.....
 
 
'Fermeture fichier excel
xlsClasseur.Close
xls.Quit
Set xls = Nothing
Set xlsClasseur = Nothing
Set xlsFeuille = Nothing

Le bug est survenu a l'exécution de ce code :

Code:

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
 
While Not rs.EOF
 
    'Création fichier facture par client
    Set xls = CreateObject("Excel.Application")
 
    Set xlsClasseur = xls.Workbooks.Add
    Set xlsFeuille = xlsClasseur.Worksheets(1)
 
    'Ecriture nom client et periode dans le fichier excel
    xlsFeuille.Cells(1, 1).Value = "Client : "
    xlsFeuille.Cells(1, 2).Value = (rs!ClientNiveau3)
    xlsFeuille.Columns.AutoFit
.................
 
    'Enregistrer le fichier facture par client
    xlsClasseur.SaveAs FileName:=CurrentProject.Path & "\Facture\Facture" & Replace(rs!ClientNiveau3, "*", "étoile") & ".xlsx"
    xlsClasseur.Close
    xls.Quit
 
    Set xls = Nothing
    Set xlsClasseur = Nothing
    Set xlsFeuille = Nothing
 
    rs.MoveNext
Wend

Si quelqu'un peut m'aider je suis preneur merci a tous

21/07/2011, 17h30
loufab

Le bug se produit avec du code Excel et sur Excel. Pourquoi le poster dans Access ? Je transfère.

Tu auras peut-être une réponse.
21/07/2011, 17h32
_developpeur_

Loufab,

c'est dans un formulaire access que j'ai ce code et non pas dans une macro excel.

mais si en le transferant j'aurais plus de réponse ok pas de soucis.

Merci
21/07/2011, 17h46
loufab

Tu devrais te documenter sur l'Automation. 8O
21/07/2011, 18h06
_developpeur_

Loufab je ne comprends pas trop ta réponse, pourquoi dis-tu ça ?

Sinon ok j'ai fait une recherche dans le forum sur le mot automation (je ne sais pas ce que c'est) et je n'ai pas trouvé grand chose.

as-tu des tutoriels ou topic interessant ?

merci.
21/07/2011, 18h10
loufab

Oui beaucoup de liens sur le sujet :
:google2:
[ame="http://www.google.fr/search?source=ig&hl=fr&rlz=1G1GGLQ_FRZZ296&q=automation&aq=f&aqi=g2g-s1g7&aql=&oq="]automation - Recherche Google[/ame]

Il y a plus simplement : ;)
:f1:

Ta recherche doit être en panne.
http://www.developpez.net/forums/sea...archid=7250145

Pour ton code, tu peux créer une seule instance Excel (et pas à chaque boucle)

Pour le nom du fichier, est tu sûr qu'il ne comporte pas certains caractères interdits

Code:

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
Dim Fichier As String
 
'.....
'Création fichier facture par client
Set xls = CreateObject("Excel.Application")
While Not rs.EOF
    Set xlsClasseur = xls.Workbooks.Add(1)
    Set xlsFeuille = xlsClasseur.Worksheets(1)
    'Ecriture nom client et periode dans le fichier excel
    With xlsFeuille
        .Cells(1, 1).Value = "Client : "
        .Cells(1, 2).Value = rs!ClientNiveau3
        .Columns.AutoFit
        '.................
    End With
    'Enregistrer le fichier facture par client
    Fichier = Replace(rs!ClientNiveau3, "*", "étoile")
    MsgBox Fichier
    xlsClasseur.SaveAs Filename:=CurrentProject.Path & "\Facture\Facture" & Fichier & ".xlsx"
    xlsClasseur.Close
    Set xlsClasseur = Nothing
    Set xlsFeuille = Nothing
    rs.MoveNext
Wend
xls.Quit
Set xls = Nothing

21/07/2011, 18h35
_developpeur_

Bonjour mercatog et merci de ton aide.

En effet je crée plusieurs fois une instance excel, je modifie ça déja mais je ne pense pas que ça vienne de là car je libère en fin de boucle avec

Code:

set slx = nothing

Sinon oui le nom de fichier peut contenir une * mais je le gère en faisant un replace donc pas d'erreur à l'enregistrement du fichier.

D'autres idées ?

Merci
22/07/2011, 11h52
argyronet

Bonjour,

Très souvent, et du fait d'une codification non qualifiée correctement, les instances Excel ne se ferment pas correctement d'où des trâces d'EXCEL.EXE qui persistent dans la liste des processus. Difficile alors de savoir lequel est encore utilisé.
Dans le processus d'exécution d'une séquence d'échange de données Access/Excel, on créé toujours une nouvelle instance (attention aux boucles).

On en prend alors le HWnd dans un Long et ensuite, si l'instance persiste, c'est qu'effectivement la méthode Quit() n'a pas fonctionné et ce, même si l'objet est mis à Nothing...

Il faut donc tuer le processus à l'aide des API idoines qui selon le mode d'ouverture (Par Shell() ou Automation) seront respectivement GetWindowThreadProcessId() et/ou OpenProcess(),TerminateProcess(), CloseHandle().

Il y a de nombreux exemples et sujets correlatifs sur le forum.

Argy
22/07/2011, 12h04
_developpeur_

Bonjour Argyronet, et merci pour la réponse.
je vais spécifier le fileformat d'orénavent et faire attention aux instances crées (dans les boucles), peu être que cacorrigera mon problème.

En ce qui concerne le processus qui tourne toujours après exécution, j'ai déja vu les posts sur le forum concernant ce problème.
J'ai vérifier après chaque utilisation de mon appli et aucun processus ne tourne. Donc ca ne devrait pas venir de la.
Je vous tient au courant.