Macro coller pour sous formulaire

Version imprimable

08/01/2013, 17h04
Rickhq

1 pièce(s) jointe(s)

Macro coller pour sous formulaire

Bonjour,

J'ai besoin d'une macro qui me permettrait de sélectionner tout les champs d'une nouvelle ligne de saisi d'un sous formulaire et de coller les données en provenance d'excel, dans les champs ainsi sélectionnés. La macro cependant sera mise sur un bouton qui lui sera sur le formulaire principal.

Voir image du formulaire et sous formulaire.

Et merci pour votre aide!
08/01/2013, 17h54
jimbolion

Rickhq

Bonjour,

Si tes données sont dans le presse papier essaye dans ta macro !

Atteindre contrôle (nom du contrôle sous formulaire)
Atteindre Nouvel enregistrement
envoi touches (puis combinaison Ctrl+A et/ou Ctrl+C)

Tiens moi au courant...

Personnellement je n'ai jamais essayé mais je chercherai de ce côté là !!

@ Bientôt
08/01/2013, 19h32
Rickhq

Merci pour le retour,

Le problème c'est que je ne suis pas très à l'aise avec VBA, Il me faudrait avoir le code. Pour ce qui est de l'intégrer ça vas assez bien.
08/01/2013, 19h42
jimbolion

Macro coller pour sous formulaire

Rickhq rebonsoir,

Je n'ai pas pris mon pc portable ce soir et je te fais une réponse demain matin mais avant çà peux tu me confirmer les points suivants :

1. ton copier coller est récupéré à partir d'une feuille excel (mais faite comment ?)
2. les infos que tu souhaites coller correspondent elles en structure à la table que tu souhaites mettre à jour ?

@++

reponse

rickhq,

Comme convenu la réponse à ta question !

Je viens de faire le test et çà fonctionne ! Je suis parti d'une feuille Excel contenant x lignes et 3 champs (1 numerique, 1 texte et un monetaire). J'ai donc créé une table sous access contenant les structures identiques (Id, Nom, montant).

Après création d'un formulaire et d'un sous-formulaire dont la source est basée sur la table sus-citée, j'ai crée un bouton (semblable au tien) dans lequel j'ai intégré la fonction suivante
Code:

1 2 3 4 5 6 7 Private Sub Commande3_Click() DoCmd.GoToControl "ssf_copiecolle" ' Nom du controle de ton sous-formulaire SendKeys "^a" ' Sélection de la liste complète SendKeys "^v" ' Envoi de la touche Coller End Sub
Pense à changer le nom ss_copiecolle par le nom de ton controle !

@ bientôt