Discussion :

[ArsèneDupuis]

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

[tee_grandbois]

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 :

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

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 :

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

Call SetClipboard(inListe)

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

Code :

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

Call ClipBoard_SetData(inListe)

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

[ArsèneDupuis]

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.

[tee_grandbois]

bonsoir,

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 :

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

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