Discussion :

[Jay-P]

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

[casefayere]

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

Code :

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

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 :

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

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 :

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

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

[casefayere]

je viens de faire un essai à partir de word
change la déclaration de variable dans le premier SUb

Code :

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

1
2
3
4
5
6
.......
Dim Resultat As Currency
........
Range("a1") = Resultat
ViderPressePapier
End Sub

[Jay-P]

Bonjour,

Merci pour toutes ces indications!
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..