Discussion :

[Joris54]

Bonjour à tous,

Je me permets de solliciter votre aide car je suis à la recherche d'une formule me permettant d'automatiser certaines tâches,
Objectif : Insérer de manière automatique un objet (mail outlook) dans Excel
Mon tableau excel regroupe différentes lignes, chaque ligne correspond à un client distinct,
J'aimerais pour chaque ligne pouvoir intégrer le mail de relance envoyé au client,

Bien que débutant en codage, je vois deux solutions :

Solution 1 (la plus pratique pour l'utilisateur) :
Pouvoir insérer le mail enregistré dans la cellule active, redimensionné et intégré dans la cellule active, en allant chercher automatiquement le dernier mail enregistré dans Mes Documents OU le mail enregistré au NOM.xls / dans lequel le NOM serait indiqué dans une cellule distincte de la cellule active

Solution 2 (la plus simple) :
Insérer le dernier mail enregistré dans MESDOCUMENTS, sans redimensionnement et non intégré dans la cellule active

Avez-vous des pistes ?

Merci pour votre aide,
Cordialement,
Joris

[révèr]

Bonjour Joris,

Ce Tableau Excel ne répertorie QUE les clients pour lesquels tu as effectué une relance, c'est bien cela ?

[Joris54]

Bonjour Joris,

Ce Tableau Excel ne répertorie QUE les clients pour lesquels tu as effectué une relance, c'est bien cela ?

Bonjour

merci pour ton retour

Oui mais il se peut que pour certaines lignes (certain client) il n'y ait pas de mail associé enregistré dans un fichier,

[pijaku]

Bonjour,

Solution 1 (la plus pratique pour l'utilisateur) :
Pouvoir insérer le mail enregistré dans la cellule active, redimensionné et intégré dans la cellule active, en allant chercher automatiquement le dernier mail enregistré dans Mes Documents OU le mail enregistré au NOM.xls / dans lequel le NOM serait indiqué dans une cellule distincte de la cellule active

Solution 2 (la plus simple) :
Insérer le dernier mail enregistré dans MESDOCUMENTS, sans redimensionnement et non intégré dans la cellule active

Solution 3 (la plus pratique pour l'utilisateur, la plus simple, et la plus visuelle) :
- Enregistrer tous les mails concernés dans un même répertoire,
- Insérer un lien hypertexte, dans la cellule, menant vers le fichier mail concerné.

[Joris54]

Bonjour,



Solution 3 (la plus pratique pour l'utilisateur, la plus simple, et la plus visuelle) :
- Enregistrer tous les mails concernés dans un même répertoire,
- Insérer un lien hypertexte, dans la cellule, menant vers le fichier mail concerné.

Bonjour
merci pour l'astuce,

Mais dans ce cas comment insérer les liens hypertexte de manière automatique ?
En fonction du nom du client / nom du mail ?

[pijaku]

Pour insérer un lien hypertexte en VBA : https://www.developpez.net/forums/d1...xte-d-cellule/

Pour que ce soit automatique : https://docs.microsoft.com/fr-fr/off...rksheet.change

En fonction du nom du client / nom du mail ?

Pour cela, je dirais : à toi de voir ce qui sera le mieux.

[Joris54]

Bonjour,

Merci pour vos retours,
malheureusement je n'ai pas de connaissance en codage pour réussir avec les méthodes proposées,

Je suis donc passé par l'enregistrement de macro pour :
Insérer un fichier.msg en fonction de la valeur de la cellule sélectionné
L'objectif est de sélectionné une cellule ayant un nom X, puis lancer une macro pour insérer un fichier X.msg situé à un emplacement précis en tant qu'objet

J'ai alors fait l'enregistrement avec un nom donné puis modifié le nom du fichier pour qu'il soit égale à Activecell.value, avec une formule trouvée sur un forum j'arrive à ce résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub testauto()
'
' testauto Macro
'
 
'
Range("O14").Select
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Users\VMQL3971\Documents\" & ActiveCell.Value & ".msg", Link:=False, DisplayAsIcon:= _
True, IconFileName:="C:\Windows\system32\packager.dll", IconIndex:=0, _
IconLabel:="").Select
ActiveSheet.Shapes("Object 3").IncrementLeft 18.4090551181
ActiveSheet.Shapes("Object 3").IncrementTop 5.25
ActiveSheet.Shapes("Object 3").IncrementTop 15
ActiveSheet.Shapes("Object 3").IncrementTop -5.25
ActiveSheet.Shapes("Object 3").IncrementTop -15
ActiveSheet.Shapes("Object 3").IncrementTop 5.25
ActiveSheet.Shapes("Object 3").IncrementTop -5.25
Range("O17").Select
End Sub
Sub ATEST()
'
' ATEST Macro
'
 
'
ActiveSheet.OLEObjects.Add(Filename:= _
ActiveCell.Value.msg, Link:=False, DisplayAsIcon:= _
False).Select
End Sub

C'est à ce niveau que j'ai bidouillé et je ne suis pas sûr de l'exactitude :

Code :

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

"C:\Users\VMQL3971\Documents\" & ActiveCell.Value & ".msg"

Pourriez-vous m'aider s'il vous plaît ?
merci

Cordialement
joris