Discussion :

[Qatbot]

[UPDATE : J'ai trouvé un moyen de contourner le problème en ouvrant le fichier dans Open Office : ce programme accepte la sélection de tout le contenu de la cellule sur triple-clic. Mais ma question originale reste valable.]

Bonjour à tous,

Contexte : J'ai une feuille Excel 2000 comprenant des milliers de cellules. Chacune contient une phrase que je souhaite copier dans un éditeur online. (une à une, je sais, c'est fastidieux).

Le problème :
- si je copie la cellule et la colle dans l'éditeur externe, il reconnaît que c'est une cellule et génère un tas de code HTML pour rendre l'aspect "cellule". Or, je ne veux que le texte.
- si j'entre dans la cellule, sélectionne le texte manuellement, le copie et le colle dans l'éditeur externe, ça marche. Mais quelle perte de temps !

Ce que je cherche : j'aimerais donc faire une petite macro qui sélectionne le texte de la cellule courante, et le mette dans le presse-papier. C'est tout.

Un truc comme

Code :

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

1
2
3
4
5
Sub Test00()
dim a as string
a= activeCell.text
a.copy
End Sub

Mais mes essais n'ont pas été fructueux (faut dire aussi que je suis une quiche en VBA)...

Vous pensez pouvoir m'aider ?

[tototiti2008]

Bonjour Qabot,

as-tu essayé de copier d'Excel dans le Bloc-notes (Notepad) puis du bloc-notes à ton éditeur externe ?

[Kaëléphine]

Bonjour,
essaye avec ça :

Code :

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

1
2
3
4
5
Sub test00()
    Set mydata = New DataObject
    mydata.SetText ActiveCell.Value
    mydata.PutInClipboard
End Sub