[MACRO] copier le contenu d'une cellule exel vers un autre programe

Question

Bonjours

Je cherche un exemple de code qui permet de copier le contenu  d'une cellule exel pour le coller dans un champ de recherche (firefox ou IE)
je suis débutant et je ne voie pas comment faire pour récupéré le contenu de la cellule copiée pour ensuite le coller.

Merci

Renfield · Answer

voir la méthode Copy de la classe Range

cs_ludowik · Answer

Merci je vais voire la piste que tu ma donnée

cs_ludowik · Answer

je suis toujours bloquée pour coller le contenue de ma case 
je ne c'est pas comment faire pour extrait la valeur du presse papier puis le coller dans un champ html
(dans mon cas c'est prendre un nom et le coller dans le champs de recherche d'un webmail intranet) 
j'ai trouver sur ce forum des info concernant les execweb mai je ne comprend pas son utilisation  

Voici mon code source 

Sub BTmail()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
Range("d5").Copy
ie.Navigate ("http://www.google.fr")

'Document.WebBrowser.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT

End Sub

Renfield · Answer

jouer avec le DOM.
en gros


ie.Document.getElementByID("q").value = ClipBoard.GetText


http://www.vbfrance.com/codes/PILOTER-INTERNET-EXPLORER-OU-WEBBROWSER-REPONSE-FORUM_25669.aspx

cs_ludowik · Answer

Merci pour ta réponse

je suis restée au même stade car mes notions en programmation son très limiter 

Voila ce que j'ai écrit

Sub BTmail()
Dim ie As Object
Dim doc As DocumentProperty
Set ie = CreateObject("InternetExplorer.Application")

Range("d5").Copy
ie.navigate ("http://192.168.100.10/horde/imp/search/popup.php?champ=to&all=1")
'ie.doc.getElementByID("q").value = ClipBoard.GetText

'ie.doc.execCommand ("paste")

End Sub

juste un coller dans le champs de recherche 

http://www.casimages.com/img.php?i=090525120751863071.jpg

cs_ludowik · Answer

je re dépose le lien de l'image  http://www.casimages.com/img.php?i=090525120751863071.jpg

cs_ludowik · Answer

C'est encore moi et toujours bloquer 
j'ai erreur 438  une propriété ou méthode  nom gérer par cette object pour la ligne " Set IEdoc = IE.documents.Add"

Voila mon code

Sub BTmail()

Dim IE As Object
Dim IEdoc As Object

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
Set IEdoc = IE.documents.Add

Cells(ActiveCell.Row, 4).Copy
IE.Navigate ("http://192.168.100.10/horde/imp/search/popup.php?champ=to&all=1")

IE.document.getElementByID("input_search_contact").Value = ClipBoard.GetText
'ie.document.execCommand ("paste")

SendKeys "{ENTER}"
End Sub

Es que quel un peut m'expliquer la propriété  documents ou me renvoyer ver une doc

merci.

[MACRO] copier le contenu d'une cellule exel vers un autre programe

7 réponses

Votre réponse

Discussions similaires