Code VBA

[Adeus33]

Bonjour,

Y a t'il une instruction pour faire un Ctrl+V?

Je ne souhaite pas utiliser le paste car je dois coller le contenu du presse papier sur lotus notes.

Merci

 

[ERIC S]

Bonjour

avec 'sendkeys' tu peux le faire, regarde sendkeys (méthode) dans l'aide vba

cette commande transmet un code clavier

A+

 

[Adeus33]

Merci ERIC S je regarde ca et je te tiens au courant

Adeus33

 

[Adeus33]

re

J'ai essayé avec le code suivant:

Sub Maillotus()
    Dim MailAd As String
    Dim msg As String
    Dim Subj As String
    Dim URLto As String
    Dim MonMessage As Object

MailAd = Sheets('information pour le mail').Range('C17')   'adresse Email
Subj = Sheets('information pour le mail').Range('F23')     'Titre du mail

       
[b]'Erreur au niveau de la ligne ci dessous
msg = '' & Application.SendKeys('^v')   'Corps du message[/b]

URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
ActiveWorkbook.FollowHyperlink Address:=URLto

end sub

'Erreur au niveau de la ligne ci dessous
msg = '' & Application.SendKeys('^v') 'Corps du message

Je ne comprend pas pourquoi ca ne fonctionne pas. il me marque erreur de compilation, fonction ou variable attendu et il me surligne SendKeys.

Avez vous des explications?

Adeus33

 

[ERIC S]

re

effectivement, ton utilisation est particulière, en fait tu veux récupérer dans une variable le contenu du presse papier

çà je ne sais pas faire
j'ai regardé du côté de getfromclipboard mais j en'arrive pas à utiliser les infos de l'aide

A+

 

[Adeus33]

Re ERIC S, en effet c'est assez particulier

J'ai deja le fichier que je veux coller dans le presse papier.

En effet si je clic dans le corp de mail et que je fais ctrl+V ca me le colle et tous est parfait.
Pareil si j'ouvre un autre classeur excel etc..

Le probleme est que je n'arrive pas a le faire par macro.

Il me manque plus que ca pour terminer mon projet.

Alors bon, je suis a la recherche de toute les solutions possibles.

Adeus33

 

[Adeus33]

On m'a dis sur d'autre forum que c'était probablement possible en utilisant un objet OLE.

Le probleme est que je ne sais pas du tout comment m'en servir et que je ne sais pas ce que c'est, malgrès les explications que j'ai pu trouver sur quelques sites internet.

Connaissez vous?

Adeus33

 

[ERIC S]

Re:Code VBA- Pascal76 ou Michelxld ou Jmps ou..

re
Désolé
je ne connais pas ces manips, si les personnes ajoutées dans l'intitulé réagissent..

A+

 

[ERIC S]

Re:Code VBA- Pascal76 ou Michelxld ou Jmps ou..

Merci josé

😱 Bill j'ai pas osé à cause de Lotus, çà vexe
:sick:

 

[ERIC S]

Re:Code VBA- Pascal76 ou Michelxld ou Jmps ou..

Lotus ?

une fleur bien sûr

Adeus veut créer un

Internetflora

mais il n'arrive pas à livrer le bouquet de fleurs dans ses mails

😉

 

[Adeus33]

Re:Code VBA- Pascal76 ou Michelxld ou Jmps ou..

Re ERIC S et bonjour à toi jmps

Alors par ou commencer?

J'ai pas tout épluché les posts de ce fil mais tu affectes une instruction à une variable. C'est
nouveau ? Ca vient de sortir ?

Et oui jmps j'innove tu verras peut etre plus jamais ca dans ta vie alors apprecis, c'est cadeau et ça me fais plaisir. 🙂

Ensuite

une fleur bien sûr Adeus veut créer un Internetflora

Ca aussi c'est vrai mais vu la difficulté je le conseille a personne (snifffff).

Et enfin le plus interressant.
J'ai essayé:

URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body='
Application.SendKeys('^v')

et bien il me colle bien ce que j'ai dans le presse papier mais pas dans lotus (la fleur ou la position suivant ton humeur !!) mais dans excel.

Dans ton message jmps t'as marqué qu'il faut que lotus soit en premier plan, as tu une solution pour cela?

En tous cas merci pour m'avoir répondu.

et j'attend avec impatiance des nouvelles solutions.

Adeus33

 

[PascalXLD]

Re:Code VBA Envoi Mail Lotus

Bonjour

Tiens on parle de moi ????

Bon je retire déjà les noms dans le titre et le rend plus explicite

Sinon voici quelques liens sur l'envoi de mail par lotus depuis excel

Lien supprimé

Lien supprimé

Lien supprimé

Bon courage

 

[PascalXLD]

Re:Code VBA Envoi Mail Lotus

Salut josé

De rien j'en profite pour remettre le titre

 

[Adeus33]

Re:Code VBA Envoi Mail Lotus

Bonjour jmps, Pasqual6, ERIC S et tous les lecteurs.

Je crois que quelques explications s'imposent.
En fait j'essai déséspérement d'envoyer le contenu d'un onglet (information + graphique) dans le corps de mail (et pas en piece jointe).

J'ai essayé pas mal de code mais imposible d'envoyé plus d'une cellule (ou en tous cas en gardant la meme mise en page).

J'ai donc eu l'idée de transformer la selection que je veux envoyer en .GIF.

Donc je cré ce .GIF que j'archive sur mon disque dur, en meme temps, je copie le .GIF dans le presse papier et c'est la que je bloque.

J'arrive pas a le copier dans lotus.


Voila mon code pour le moment (ne pas faire attention a la partie archivage, c'est nul)

Sub EnvoiUnMailetarchiveenGIF()
    Dim MailAd As String
    Dim msg As String
    Dim Subj As String
    Dim URLto As String
    Dim MonMessage As Object
    Dim Plage As Range
    Dim Fold, Fold2, Fold3, Foldorigine

MailAd = Sheets('information pour le mail').Range('C17')   'adresse Email
Subj = Sheets('information pour le mail').Range('F23')     'Titre du mail

'procedure pour recréer l'emplacement de base si il a été effacé
Foldorigine = Sheets('information pour le mail').Range('B25').Value 'emplacement d'origine
If Dir(Foldorigine, vbDirectory) = '' Then
        Sheets('Paramètre').Select
        Range('A1:V65000').Select
        Selection.ClearContents
        Sheets('Paramètre').Range('A1') = Foldorigine
        'lancement de la procedure de création arborescence
        Création_arborescence
End If

'Mettre la procedure pour créer un dossier
Fold = Sheets('information pour le mail').Range('B27').Value  '1er étape
Fold2 = Sheets('information pour le mail').Range('C27').Value  'adresse finale sans le nom du fichier
Fold3 = Sheets('information pour le mail').Range('E27').Value 'adresse finale avec le nom du fichier

If Dir(Fold, vbDirectory) = '' Then MkDir Fold
If Dir(Fold2, vbDirectory) = '' Then MkDir Fold2


'Exportation de l'onglet au format GIF
Sheets('TRAME').Select
'selection des cellules à copier
Set Plage = Sheets('TRAME').Range('B2:M40')
        Application.ScreenUpdating = False
        Workbooks.Add
        Plage.CopyPicture
        ActiveSheet.Paste


'Enregistrement en .GIF
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
    .Paste
    .Export Fold3, 'GIF'
End With
       
    
'Copie dans un nouveau classeur
With ActiveSheet.ChartObjects('Graphique 2')
    .Activate
    .Copy
End With
       
'Erreur au niveau de la ligne ci dessous
'msg = '' & Application.SendKeys('^v')   'Corps du message
'Application.SendKeys ('^v')


URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
    
ActiveWorkbook.Close False
ActiveWorkbook.Sheets('Page de garde').Select
End Sub

Voila j'ai essayé
ActiveWorkbook.FollowHyperlink Address:=URLto
Application.SendKeys('^v')
Mais il ne le copie nul part

Voila sinon comment faire pour mettre le focus sur la partie corps de message et lui dire de ne pas passer a l'instruction suivante avant qu'il n'est copié le .GIF


Merci pour votre aide

Désolé je n'ai pas vu le message avant, d'ou ma réponse tardive.

Adeus33


Edit1: en fait si il me le copie dans la page de garde c'est a dire qu'il continu le code et ne le copie pas au bon moment

Message édité par: adeus33, à: 18/05/2006 11:16

Message édité par: adeus33, à: 18/05/2006 11:18

 

[Adeus33]

Re:Code VBA Envoi Mail Lotus

Bonjour,

J'ai lu attentivement tous les liens que m'a donné Pascal76 et le dernier me semble fort interressant car il me permettait de faire exactement ce que je veux.

Le probleme est que je ne le comprend pas.

(je ne peux pas mettre le code sinon le message est trop long est le serveur m'interdit de l'envoyer est ce normal!?

Quelqu'un pourrait il m'aider a l'adapter au code que j'ai mis en haut

Pour info le lien:
Lien supprimé

Il faudrait que tu crée un autre objet de type 'RichText' afin de pouvoir y placer ton image

Voila j'ai essayé pas mal de temps et j'y suis pas arrivé (des que le code est un peu trop long je m'y perd lol.

Toute aide est la bienvenue.

Merci d'avance

Adeus33