Excel et le presse-papier

Version imprimable

02/04/2010, 11h20
Jay-P

Excel et le presse-papier

Bonjour,

J'ai un souci avec la commande Activesheet.Paste lorsque les éléments à copier proviennent du presse-papier.
Pour bien voir mon problème, voici un pas à pas :

-J'ouvre le bloc note windows
-je tappe un nombre avec plus de deux décimales avec une virgule : 1,2345
-je copie ce nombre
-j'execute dans excel une macro ne comportant que la commande Activesheet.Paste
-Excel colle 12 345. Plus de virgule!

Bien sûr, j'ai besoin de cette virgule!
A noter que si le nombre est écrit 1.2345 (avec un point pour séparateur des décimales), le collage s'effectue correctement et excel se permet de remplacer le point par une virgule.
Quelqu'un peut-il m'aider à régler ce problème svp?
Merci d'avance

Bonjour,
J'ai cherché un peu pour toi et trouver une vieille prposition de ouskel'n'or que tu dois pouvoir adapter

Code:

1
2
3
4
5
6
7
8
9
10
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Sub RécupérerDepuisPressePapier()
Dim monobjet
    Set monobjet = New DataObject
    monobjet.GetFromClipboard
    MsgBox Val(monobjet.GetText(1))
End Sub

il ne te reste plus qu'a changer la ligne msgbox......

j'ai oublié le lien :
http://www.developpez.net/forums/d16...access-2003-a/

un autre lien
http://excel.developpez.com/faq/?page=PressePapier

Allez, pendand qu'on y est :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub recupererTextePressePapier()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Resultat As String
 
With New DataObject
    .GetFromClipboard
    Resultat = .GetText(1)
End With
MsgBox Resultat
ViderPressePapier
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
Sub ViderPressePapier()
'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Cible As DataObject
 
Set Cible = New DataObject
Cible.SetText ""
Cible.PutInClipboard
 
Set Cible = Nothing
End Sub

02/04/2010, 12h07
casefayere
je viens de faire un essai à partir de word
change la déclaration de variable dans le premier SUb
Code:

1 2 3 4 5 6 ....... Dim Resultat As Currency ........ Range("a1") = Resultat ViderPressePapier End Sub
02/04/2010, 18h05
Jay-P

Bonjour,

Merci pour toutes ces indications! :ccool:
Etant un newbie de VBA, je vais mettre un peu de temps à intégrer tout ça, mais le weekend est long cette semaine, je vais en profiter pour prendre un peu de niveau..