Discussion :

[cornelius59]

Bonjour à tous,

J'ai créé un bouton dans Excel qui quand on clique dessus fait "bêtement" un copier, que je colle manuellement ensuite dans un message dans internet.

Code :

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

1
2
3
Sheets("Messages").Select
Range("C7").Select
Selection.Copy

Le problème vient du fait que le contenu de C7 est du texte avec des passages à la ligne (pour aérer le contenu du message). Quand je colle (Ctrl+v) dans internet (ou dans le bloc-notes, bizarrement pas dans word!) je me retrouve avec le texte entouré de guillemets " intempestifs au début et à la fin du message, ce qui n'est pas idéal !!

Je ne parviens pas à les supprimer. Quelqu'un peut-il m'aider ?

Merci d'avance

[jfontaine]

Bonjour,

Afin de mieux cerner le problème, peux tu nous mettre un exemple de texte dans une cellule et le texte collé dans le bloc note

[cornelius59]

Re,

ci-joint fichiers. Le copier de la cellule A1 puis le coller dans blocnote ou internet ajoutent des guillemets en début et fin du message, ce que je voudrais arriver à supprimer via VBA ou autre.

Merci de ton aide.

Re,

J'ai oublié autre chose, c'est que le coller me vire mes passages à la ligne.

Le coller me vire certains caractères mais m'en ajoute d'autres (") !!

[jfontaine]

Tu peux utiliser le presse papier de windows en ajoutant la référence
Microsoft Forms 2.0 Object Library

Code :

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

1
2
3
4
Dim DtObj As New MSForms.DataObject
 
DtObj .SetText Range("A1").Value
DtObj .PutInClipboard

Les Guillemets n'apparaissent plus

[cornelius59]

Un grand Merci Jérôme !!!

Aurais-tu une idée sur les passages à la ligne ? j'ai essayé d'insérer des car(13) dans la formule de la cellule A1 mais ce n'est pas pris en compte.

[jfontaine]

a adapter

un chr(13) et un chr(10) font un retour a la ligne

Code :

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

1
2
3
4
5
6
7
8
Dim dataObj As New MSForms.DataObject
Dim str As String
 
str = "coucou" & Chr(13) & Chr(10)
str = str & "test"
 
dataObj.SetText str
dataObj.PutInClipboard

[cornelius59]

Tout fonctionne, merci !!!