Microsoft 365 import fichier fermé sous condition

[Usine à gaz]

Bonsoir à toutes et à tous,

J'ai besoin d'importer des informations provenant d'un fichier fermé.
Le contexte
Dans le même dossier j'ai :
1 classeur "Clients" qui contient les informations à importer,
1 classeur "test_adrMail" qui reçoit les informations
Pour faire mes importations j'utilise la code de Pierre - tatiak (encore merci à toi) qui fonctionne nickel.

Le besoin
Toutefois, dans le cas qui me préoccupe, j'ai besoin de faire ces importations sous condition :
- Pour les N° dans fichier Clients feuille "Données"- col"B"
- qui correspondent aux N° fichier test_adrMail feuille "Mails_Clients"- col"D"
Import adresses mails Clients feuille "Données"- col"A" dans fichier test_adrMail feuille "Mails_Clients"- col"C"

J'ai tenté mais je ne sais pas faire
Pourriez-vous m'aider ?
Je joins les fichiers tests.

Avec mes remerciements,
Je vous souhaite à toutes et à tous une douce nuit,
lionel

 

[Usine à gaz]

Bonjour Gérard, Jacky67, le Forum,
Bon et beau dimanche à toutes et à tous

@Gérard : J'ai testé hier au soir et je confirme (sauf erreur si fatigue trop avancée) que les 3 solutions fonctionnent (fichier source fermé)

A moins que j'ai zappé à chaque test une exécution des codes. J'ai testé une bonne dizaine de fois chaque solution en modifiant à chaque test les noms des emails dans le fichier source.
Lionel

 

[job75]

Bonjour Lionel,

Avec la solution de mon post #14 il y a un lien hypertexte dont on peut voir l'adresse dans l'infobulle en survolant le texte en colonne C.

Avec les solutions des posts #5 et #12 il n'y a pas d'infobulle car pas de lien.

A+

 

[Usine à gaz]

Merci Gérard d'être encore là
Je vais voir.
lionel,

 

[job75]

Dans ce fichier (2) on n'utilise pas de bouton pour lancer la macro :

Private Sub Workbook_Open()
test_import
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

 

[Usine à gaz]

Re Gérard,
Quelle perspicacité ... je suis toujours bluffé
Merci à toi pour cette nouvelle version super nickel.
Evidemment ça fonctionne super bien.

lionel,

 

[job75]

Il est logique d'ajouter une Workbook_Activate, le fichier source pouvant être ouvert :

Dim ouvre As Boolean 'mémorise la variable

Private Sub Workbook_Open()
ouvre = True
test_import
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Private Sub Workbook_Activate()
If ouvre Then ouvre = False Else test_import
End Sub

Fichier (3).

 

[Usine à gaz]

Re-gérard,
J'ai pas de mots ... admiratif !

Merci