Copier coller depuis Access 365 vers Outlook 365

Cette référence n'apparaît pas dans ma liste.

Sont déjà cochées les références suivantes :

Visual Basic For Applications
Microsoft Access 16.0 Object Library
OLE Automation
Microsoft Office 16.0 Access database engine Object

mais pas de "Microsoft Forms 2.0 Object Library" dans la liste des références disponibles (la liste passe de Microsoft feeds... à Microsoft Graph...).

Encore merci de prendre le temps...

on peut utiliser l'API Windows du presse-papiers dont on peut copier le contenu dans un nouveau module, à récupérer ici.
ATTENTION: ce n'est que pour les machines 32 bits (tu as une version 64 bits ici).
Et à la place de ce code:

Code:

---

1 2 3 4 5 6 7 8

' copie de la liste dans le presse-papier Dim oClipBd As MSForms.DataObject Set oClipBd = New MSForms.DataObject   oClipBd.SetText inListe oClipBd.PutInClipboard Set oClipBd = Nothing Set Email1 = Nothing

---

mettre celui-ci, si version 32 bits:

Code:

---

Call SetClipboard(inListe)

---

et pour la version 64 bits (et donc 32 bits aussi):

Code:

---

Call ClipBoard_SetData(inListe)

---

J'ai testé les 2 versions sans la référence MS Forms cochée

Il a fallu que je trouve comment installer la référence Microsoft Forms 2.0 Object Library (dans C:\Windows\SysWOW64\FM20.dll),
puis que je corrige la petite erreur dans la ligne
Set Email = Forms.Sélection.RecordsetClone (c'est Forms!Sélection qu'il fallait écrire).
Mais tout fonctionne parfaitement, jusqu'au copié/collé qui ne "colle" plus le nom de la variable.

Magnifique, merci beaucoup, en particulier à tee_granbois.
A bientôt pour de nouvelles aventures,

Arsène.

bonsoir,

Citation:

---

Set Email = Forms.Sélection.RecordsetClone (c'est Forms!Sélection qu'il fallait écrire).

---

exact, c'est vrai que j'ai transcris une partie du code sans filet ...
Cela peut aussi s'écrire de cette manière:

Code:

---

Set Email = Forms("[Sélection]").RecordsetClone

---