[AC-2003] Macro coller pour sous formulaire

[Rickhq]

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!

[jimbolion]

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

[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.

[jimbolion]

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 ?

@++

[jimbolion]

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