Bonjour,
Sur Excel 2007, classeur avec macro pour envois par mail.
Voilà j'ai un petit problème, je suis en train de créer un fichier excel qui sera en liaison avec un dessin Autocad.
Je récupère les informations du dessin pour permettre aux personnes qui ne dessinent pas de visualiser certaines informations.
Si une des personnes qui ne dessinent pas doit apporter des modifications, alors elle utilise le fichier excel "Extraction", feuille "Design", est insère la modification qu'elle veut apporter ensuite elle clique sur le bouton envoyer qui contient une macro d'envois par mail via Outlook qui doit prévenir le dessinateur en charge du projet du dessin correspondant.
La ou ça se complique c'est que dans ma récupération de données, je récupère le nom du dessinateur dans une cellule (Feuille "Design", cellule B7)et en fonction du nom je fais correspondre une adresse mail dans une cellule (Feuille "mail", cellule A1) parmi une liste de trois adresse qui sont listées (Feuille "mail", cellule E1:E3).
Ma macro contenu dans le bouton envois n'arrive pas à reconnaitre qu'il s'agit d'une adresse mail et me mets une erreur lors de l'exécution.
Voici la formule qui récupère les adresses mails :
=LIEN_HYPERTEXTE("mailto:"&(SI(Design!B7="Philippe";E1;SI(Design!B7="Laurent";E2;SI(Design!B7="Mikako";E3;"")))))
Malgré plusieurs tentative infructueuse de modification de celle-ci ainsi que l'utilisation du style de cellule et le format de cellule, le lien hypertexte vers l'adresse mail ne fonctionne pas dans la récupération de la macro d'envois que je vous mets si dessous.
L'erreur apparaît sur la ligne surlignée en bleu.
J'espère avoir était le plus clair possible, et que vous saurez m'apporter une solution qu'elle soit sur la macro ou sur la cellule de la formule d'adresse mail.
Cordialement, Philippe qui galère dur sur ça.....
Sur Excel 2007, classeur avec macro pour envois par mail.
Voilà j'ai un petit problème, je suis en train de créer un fichier excel qui sera en liaison avec un dessin Autocad.
Je récupère les informations du dessin pour permettre aux personnes qui ne dessinent pas de visualiser certaines informations.
Si une des personnes qui ne dessinent pas doit apporter des modifications, alors elle utilise le fichier excel "Extraction", feuille "Design", est insère la modification qu'elle veut apporter ensuite elle clique sur le bouton envoyer qui contient une macro d'envois par mail via Outlook qui doit prévenir le dessinateur en charge du projet du dessin correspondant.
La ou ça se complique c'est que dans ma récupération de données, je récupère le nom du dessinateur dans une cellule (Feuille "Design", cellule B7)et en fonction du nom je fais correspondre une adresse mail dans une cellule (Feuille "mail", cellule A1) parmi une liste de trois adresse qui sont listées (Feuille "mail", cellule E1:E3).
Ma macro contenu dans le bouton envois n'arrive pas à reconnaitre qu'il s'agit d'une adresse mail et me mets une erreur lors de l'exécution.
Voici la formule qui récupère les adresses mails :
=LIEN_HYPERTEXTE("mailto:"&(SI(Design!B7="Philippe";E1;SI(Design!B7="Laurent";E2;SI(Design!B7="Mikako";E3;"")))))
Malgré plusieurs tentative infructueuse de modification de celle-ci ainsi que l'utilisation du style de cellule et le format de cellule, le lien hypertexte vers l'adresse mail ne fonctionne pas dans la récupération de la macro d'envois que je vous mets si dessous.
Sub Mail_Range()
'Working in 2000-2007
Dim Source As Range
Dim Dest As Workbook
Dim wb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim rng As Range
Dim Arr() As String
Dim N As Integer
Dim cell As Range
Set rng = Sheets("Mail").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
ReDim Preserve Arr(1 To rng.Cells.Count)
N = 0
For Each cell In rng
If cell.EntireRow.Hidden = False And cell.Value Like "*@*" Then
N = N + 1
Arr(N) = cell.Value
End If
Next cell
ReDim Preserve Arr(1 To N)
L'erreur apparaît sur la ligne surlignée en bleu.
J'espère avoir était le plus clair possible, et que vous saurez m'apporter une solution qu'elle soit sur la macro ou sur la cellule de la formule d'adresse mail.
Cordialement, Philippe qui galère dur sur ça.....