Discussion :

[anaylane]

Bonjour,
Débutante sur Access, je viens de créer un module qui me permet d'importer des données d'une feuille Excel sur une nouvelle table Access. J'arrive à faire les imports en exécutant le module qui permet cette action.
Je souhaiterai créer un bouton de commande sur une feuille de formulaire qui me permette d'exécuter automatiquement ce module.
Comment puis-je faire SVP??

Merci de vos réponses

[tarnx]

Une fois le formulaire crée, en mode création, tu place le bouton de commande dessus. (disponible via la boite à outils => 'Affichage' => 'Boite à Outils' )

Ensuite:
Click droit sur le bouton (toujours en mode création) => 'Propriétés' => onglet 'Evènements' => 'Sur click' => tu click sur les 3 petits points à droite => 'Générateur de code'

La fenêtre Visual Basic Editor s'ouvre alors.

Enfin, tu place ton code dans la procédure (Sub) ou se situe le curseur.

Est-ce bien cela que tu désirais?

Pour plus de clarté dans le code tu peux renommer ton bouton (onglet 'Autres' => 'Nom', mais ceci avant de lui avoir affecté la procédure)

[anaylane]

merci de ta réponse !! par contre quand je cree le bouton de commande, dans la fenetre qui s'ouvre j'ai choisi l'action executer une macro de la categorie divers est ce bien cela que je dois selectionner?

j'ai bien integre le code j'ai enregistre et quand j'appuie sur execution j'ai un message "erreur de compilation End Sub attendu et le curseur souligne la premiere ligne
private Sub Commande10_click()
par contre quand je me positionne sur le formulaire en mode creation et que je fais click droit sur le bouton propriete pour aller sur evenements sur click, j'execute la procedure ca marche, la table a été crée.

je voudrais que mon bouton fonctionne en mode formulaire!!!

[tarnx]

Rajoute "End Sub" à la fin de ta procédure.

Peut tu joindre le code que tu utilise stp.

[anaylane]

Voila le code

Code :

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

1
2
3
4
5
6
Private Sub TOTO_Click()
Sub ImportationDepuisExcel()
DoCmd.TransferSpreadsheet aclmport, acSpreadsheetTypeExcel9, "mail FR2", "C:\Documents and Settings\A_ACCESS\mail FR2.xls", True, "Mail FR!"
MsgBox "Importation Excel Access terminée !!!", vbInformation
End Sub
End Sub

merci de ton aide!!

[tarnx]

Code :

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

1
2
3
4
5
6
7
8
Private Sub TOTO_Click()
ImportationDepuisExcel()
End Sub
 
Sub ImportationDepuisExcel()
DoCmd.TransferSpreadsheet aclmport, acSpreadsheetTypeExcel9, "mail FR2", "C:\Documents and Settings\A_ACCESS\mail FR2.xls", True, "Mail FR!"
MsgBox "Importation Excel Access terminée !!!", vbInformation
End Sub

Organise plutôt ton code cela.

[anaylane]

Merci pour ta réponse rapide par contre je suis restee tte l'aprem ms je n'ai pas vu ta reponse.
J'ai modifie le code comme ds ta proposition et lorsque j'appui sur le bouton de commande dp le formulaire(mode formulaire) j'ai un message d'erreur VB "erreur de cmpilation : "erreur de syntaxe". il met en evidence Private Sub Toto_Click()
merci de ton aide

[anaylane]

J'ai enfin trouvé , il ne fallait pas mettre les parentheses apres ImportationExcel !!!!! ca y est ça marche!!
merci pour votre aide!! je continue ma découverte de Access!!