Discussion :

[illight]

Bonjour,


j'ai un petit soucis

VOila j'ai cette macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TravailDansAccess()
DefVariablesPublic
Dim acApp As New Access.Application
'demarrer access
Set acApp = New Access.Application
'ouvrir la base
acApp.OpenCurrentDatabase (CheminFichiers & "\bd2.mdb")
'exécuter la macro dans Access
acApp.Run "ImportFeuilleExcel"
'quitter access
acApp.Quit
Set acApp = Nothing
End Sub

Qui me permet d'ouvrir Access, et d'éxécuter une macro qui est dans Access (qui s'appelle "ImportFeuilleExcel")


Cette macro me permet de travailler dans Access. Voici la macro dans Access :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ImportFeuilleExcel()
'Empêche les demande de confirmation de s'afficher
CheminFichiers = ParentDir(Application.CurrentDb.Name)
'MsgBox CheminFichiers
DoCmd.SetWarnings False
'Efface le contenu de la table
DoCmd.RunSQL "DELETE * FROM ExtractWithGoodTitle;"
'importe la table excel
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ExtractWithGoodTitle", CheminFichiers & "\Classeur_TestsMacros.xls", True, "ExtractWithGoodTitle!"
DoCmd.OpenForm "FormWelcome"
End Sub

Donc cette procédure me permet de supprimer tous les éléments de ma table, puis de la réremplir en importer une feuille Excel que j'ai précédemment créé (c'est le fichier excel de départ en fait), et de checker les problèmes.

Après cette importation, j'ai une requete qui me permet d'exporter mon résultat :

Code :

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

1
2
3
4
5
6
7
8
Sub ExportFeuilleExcel()
CheminFichiers = ParentDir(Application.CurrentDb.Name)
If Dir(CheminFichiers & "\Value_Contract.xls") = "Value_Contract.xls" Then
    Kill (CheminFichiers & "\Value_Contract.xls")
End If
MsgBox CheminFichiers
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Check_value_contract", CheminFichiers & "\Value_Contract.xls", True
DoCmd.SetWarnings True

Avant cette importation, comme vous le voyez (merci STarec), j'ouvre un formulaire appelé "FormWelcome", qui me permet justement de checker les problèmes.
En fait, c'est un formulaire de bienvenue, ou j'ai le choix entre checker les problèmes, où j'ai alors d'autres formulaire qui s'ouvrent, justmeen tpour checker, et un bouton RUn, qui me permet de faire le report, et donc d'exporter mon fichier Excel par la macro juste au dessus.

En fait au final les étapes :
- importer ma feuille Excel
- Corriger les erreurs de ma feuille Excel que j'ai importé (car en fait je dois checker des problèmes)
- une fois le check fini, exporter le résultat de ma requête dans un classeur Excel et continuer a travailler sur mon fichier Excel


Mon problème vient après l'importation : je voudrais que le formulaire apparaisse en vue (je pense que vous avez compris que je pilote Access depuis Excel), que je puisse checker, et quand j'ai fini ça, j'exporte mon résultat et ça me "relance" dans ma macro Excel, pour que ça continue le travail.

Là, ce que ça me fait, ça m'importe la feuille Excel comme je veux, ça c'est bon, mais ça m'ouvre pas le formulaire enfin si je fais du pas à pas, ça me l'ouvre, mais je ne peux pas accéder à celui-ci, et je peux pas demander à l'utilisateur de faire du pas à pas donc je voudrais que le formulaire s'affiche, et mette en fait une espèce de pause dans le code Excel, et quand j'exporte le fichier, que la macro Excel reprenne. Cad :

Code :

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

1
2
3
acApp.Run "ImportFeuilleExcel"
'quitter access
acApp.Quit

Sur le Run, ça m'importe le fichier et m'ouvre le formulaire, et quand j'exporte ça aille sur ce acApp.Quit

J'espère avoir été assez clair


PS : Ce post en fait, fait référence a celui-ci, que j'avais déja créé et résolu :

http://www.developpez.net/forums/sho...d.php?t=506253



Merci en tout cas par avance pour votre aide

[Jean-Philippe André]

salut,
et si à la place de mettre le Docmd.OpenForm dans la fonction VBA sous Access, tu le lançais directement depuis Excel ?

Code :

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

AcApp.DoCmd.OpenForm "FormWelcome"

[illight]

et je le met ou ?

Sinon j'avais une autre idée un peu barbare, que je testerai demain, c'est créer un fichier texte vide, et tant qu'il existe, la macro tourne..Mais bon je trouve ça moche comme solution

[Invité]

Bonjour

Cela signifie probablement qu'il faut que le processus se termine.
Essayes de mettre l'instruction

Code :

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

DoEvents

avant l'ouverture du formulaire.

Starec et non

(merci STraec),

[illight]

Pas après plutôt ?

Enfin que ce soit avant ou après, quand je lance la macro d'Excel, Access ne reste pas ouvert, ça me le ferme directement (du coup ça m'exporte pas le résultat de ma requete..forcément je peux pas cliquer sur le bouton )


PS : je trouve que ça te va bien Straec

[Jean-Philippe André]

Peut-être que le pilotage de l'ouverture fermeture ne devrait pas être directement dans Access, mais piloté depuis Excel ?

Ca aurait put être StarTrec aussi

[Invité]

Peut-être que le pilotage de l'ouverture fermeture ne devrait pas être directement dans Access, mais piloté depuis Excel ?

Tout à fait.

Ca aurait put être StarTrec aussi

Attention, je vais devoir sévir pour éviter le Troll , je tiens à ce que mon pseudo soit bien écrit, il a une signification particulière pour moi.

STAREC

[illight]

Je ne savais meme pas qu'on pouvais piloter un formulaire Access depuis Excel. Il est vrai que dans ces circonstances, et au vu du travail à effectuer, ça serait peut-etre mieux, du coup l'exportation se ferait après le checking directement.

Mais comment faire pour piloter des formulaire Access depuis Excel ?

[Jean-Philippe André]

D'une manière générale, tu auras accès à ta base par l'élément
Db

Code :

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

1
2
3
4
5
6
7
'méthode sous Access
Dim Db as DAO.database
Set Db = VbEngine.Opendatabase(StrPathFile)
'méthode sous Excel
Dim AcApp as New Access.Application
AcApp.Docmd.'ce que tu veux
'et même chose que sous Access.

[illight]

J'essaierai ça demain je vous tiens au courant

Merci pour votre aide en tout cas

[illight]

J'ai écrit ça dans ma macro Excel :

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
Sub TravailDansAccess()
DefVariablesPublic
Dim acApp As New Access.Application
'demarrer access
Set acApp = New Access.Application
'ouvrir la base
acApp.OpenCurrentDatabase (CheminFichiers & "\bd2.mdb")
'exécuter la macro dans Access
acApp.Run "ImportFeuilleExcel"
acApp.DoCmd.OpenForm "FormWelcome"
DoEvents
'quitter access
acApp.Quit
Set acApp = Nothing
End Sub

et dans Access, il y a écrit ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ImportFeuilleExcel()
'Empêche les demande de confirmation de s'afficher
CheminFichiers = ParentDir(Application.CurrentDb.Name)
'MsgBox CheminFichiers
DoCmd.SetWarnings False
'Efface le contenu de la table
DoCmd.RunSQL "DELETE * FROM ExtractWithGoodTitle;"
'importe la table excel
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "ExtractWithGoodTitle", CheminFichiers & "\Classeur_TestsMacros.xls", True, "ExtractWithGoodTitle!"
 
End Sub

(en fait j'ai enlevé la ligne ou j'ouvre le formulaire)

Mais ça me fait la meme chose.

Ce quie st bizarre, c'est que quand je fais du pas à pas, sur cette action-la :

Code :

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

acApp.OpenCurrentDatabase (CheminFichiers & "\bd2.mdb")

Ma base de données ne s'ouvre pas. C'est normal ?

De plus, quand je fais du pas à pas, il rentre bien dans la macro d'access, mais il va direct au End Sub, et dès qu'il a passé celui-la, pouf c'est fini

Je comprend pas trop du coup

Merci de votre coup de main

[illight]

J'ai fait un autre test (je me dis qu'en faut je peux faire ma manip en 2 fois finalement vu que ça marche pas..) en écrivant ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TravailDansAccess()
DefVariablesPublic
Dim acApp As New Access.Application
'demarrer access
Set acApp = New Access.Application
'ouvrir la base
acApp.OpenCurrentDatabase (CheminFichiers & "\bd2.mdb")
'exécuter la macro dans Access
acApp.Run "ImportFeuilleExcel"
acApp.DoCmd.OpenForm "FormWelcome"
End SUb

Je pensais que cette procédure allait m'ouvrir Access, me lancer ma macro d'Access, et me le laisser ouvert (Access), mais ça le laisse pas ouvert, ça me le ferme alors que je voudrais qu'il reste ouvert, avec si possible le formulaire..

Comment faire ? Vous avez une idée ?

Merci pour vos réponses

[Jean-Philippe André]

salut,
moi j'ai un doute sur l'utilisation de OpenCurrentDatabase...
n'est-ce pas plus simple d'utiliser VBEngine.Opendatabase ?

[illight]

Il connait pas VBEngine il y a une référence qu'il faut rajouter ?

[Jean-Philippe André]

Dbengine pardon...
avec Access en référence

[illight]

J'ai mis ça :

Code :

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

DBEngine.OpenDatabase (CheminFichiers & "\bd2.mdb")

ça marche pas, ça me lance l'installation de BO a mon avis, le DBEngine, ça lui plait pas