Discussion :

[GADENSEB]

Bonjour le forum


je cherche à copier le contenu d'un textbox vers le presse-papier pour pouvoir le coller dans tout type de documents (mail, word.....)

mais je bloque ici



J'ai une erreur 424 - objet requis sur

Code :

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

'DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectAllRecords, , acMenuVer70

Code :

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

1
2
3
4
5
6
Private Sub COPIER1_Click()
CANDIDATURECVLM.SelStart = 0
CANDIDATURECVLM.SelLength = Len(CANDIDATURECVLM.Value)
 
'DoCmd.DoMenuItem acFormBar, acEditMenu, acSelectAllRecords, , acMenuVer70
End Sub

J'ai oublié de déclaré une variable ?


Bonne fin d'aprem

Seb

[clementmarcotte]

1) Dans combien de sites as-tu posé ta question ?

2) Faire du copier-coller de macros d'Access, cela peut planter dans Excel. Si jamais tu trouves DoCmd dans l'aide de VBA pour Excel, tu nous diras où.

3a) Dans l'aide de VBA Excel, pas dans l'aide de VBA Access, chercher:

SetText, DataObject, GetText

3b)Il y a même cet article dans l'aide:

GetFormat, GetText, SetText, méthodes, exemple

et du code à copier-coller.

Puis tu pourras aller brailler sur Excel Downloads, que le méchant Marcotte de Développez ne t'a pas donné le poisson que tu voulais tout cuit. Il t'as juste dit où aller le pêcher.

[GADENSEB]

Salut !

1- Ben je n'ais posé la question qu'ici. C'est vrai qu'au début, quand je connaissais pas trop VBA je chercher des réponses à droite à gauche.... mais plus maintenant.....

2- Access !!! oups .... en fait je suis partit d'un code trouvé sur le net .... mea culpa, je comprends maintenant le *****

3- Je vais fouiller !

4- Merci de ton aide, je n'irais pas brailler sur Excel Downloads.
L'important dans la vie c'est la recherche ... pas la solution tout cuite. Merci de 'm'avoir mis sur le chemin


Bonne journée
Seb

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
Private Sub Copier_Click()
  Dim objClipboard As MSForms.DataObject
    Set objClipboard = New MSForms.DataObject
     objClipboard.SetText TextBox1.Value
    objClipboard.PutInClipboard
End Sub

[GADENSEB]

Merciiii

Ca marche au poil !!!


bonne journée

Seb

[kiki29]

Salut, en retard, mais cela peut t'intéresser : copier/coller via menu contextuel dans/depuis TextBox