OVH Cloud OVH Cloud

PutInClipboard

6 réponses
Avatar
Michel MTO
Bonjour à tout le monde,

Je vais faire encore appel à vos lumières.

J'utilise dans le code d'une feuille ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PressePapier As New dataobject
Set PressePapier = New dataobject
PressePapier.SetText Target
PressePapier.PutInClipboard
End Sub

Dans le code du classeur ThisWorkbook ceci :
Private Sub Workbook_Open()
Sheets("Feuil1").Select
[A1].Select
End Sub

l'erreur suivante est retournée :
Erreur de compilation : Type défini par l'utilisateur non défini

J'utilise exactement le même code dans un autre classeur (puisque j'ai fai
un copier/coller du code), et là ça fonctionne parfaitement.

Je n'y comprend rien.

Quelqu'un a t il une explication, que dois je faire ?

Merci par avance

Michel

6 réponses

Avatar
Daniel.C
Bonjour.
As-tu vérifié que la référence "Microsoft Forms n object Library" est
bien cochée ?
Cordialement.
Daniel

Bonjour à tout le monde,

Je vais faire encore appel à vos lumières.

J'utilise dans le code d'une feuille ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PressePapier As New dataobject
Set PressePapier = New dataobject
PressePapier.SetText Target
PressePapier.PutInClipboard
End Sub

Dans le code du classeur ThisWorkbook ceci :
Private Sub Workbook_Open()
Sheets("Feuil1").Select
[A1].Select
End Sub

l'erreur suivante est retournée :
Erreur de compilation : Type défini par l'utilisateur non défini

J'utilise exactement le même code dans un autre classeur (puisque j'ai fai
un copier/coller du code), et là ça fonctionne parfaitement.

Je n'y comprend rien.

Quelqu'un a t il une explication, que dois je faire ?

Merci par avance

Michel


Avatar
Jacky
Bonjour,

Erreur de compilation : Type défini par l'utilisateur non défini



XL 2003
Alt+F11
Menu / outils / références...==>cocher "Microsoft Forms 2.0 Object Library"
--
Salutations
JJ


"Michel MTO" a écrit dans le message de news:
hak9b3$vjj$
Bonjour à tout le monde,

Je vais faire encore appel à vos lumières.

J'utilise dans le code d'une feuille ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PressePapier As New dataobject
Set PressePapier = New dataobject
PressePapier.SetText Target
PressePapier.PutInClipboard
End Sub

Dans le code du classeur ThisWorkbook ceci :
Private Sub Workbook_Open()
Sheets("Feuil1").Select
[A1].Select
End Sub

l'erreur suivante est retournée :
Erreur de compilation : Type défini par l'utilisateur non défini

J'utilise exactement le même code dans un autre classeur (puisque j'ai fai
un copier/coller du code), et là ça fonctionne parfaitement.

Je n'y comprend rien.

Quelqu'un a t il une explication, que dois je faire ?

Merci par avance

Michel




Avatar
Michel MTO
"Microsoft Forms n object Library" était bien coché
par contre "Microsoft Forms 2.0 Object Library" ne l'était pas.

Toujours une question en suspens : pourquoi avec mon autre classeur le même
code fonctionnait alors que "Microsoft Forms 2.0 Object Library" n'était pas
coché?

Enfin, merci à tous les 2, Daniel et Jacky


Michel

"Jacky" a écrit dans le message de
news:%23Yxyrj$
Bonjour,

>Erreur de compilation : Type défini par l'utilisateur non défini

XL 2003
Alt+F11
Menu / outils / références...==>cocher "Microsoft Forms 2.0 Object


Library"
--
Salutations
JJ


"Michel MTO" a écrit dans le message de news:
hak9b3$vjj$
> Bonjour à tout le monde,
>
> Je vais faire encore appel à vos lumières.
>
> J'utilise dans le code d'une feuille ceci :
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim PressePapier As New dataobject
> Set PressePapier = New dataobject
> PressePapier.SetText Target
> PressePapier.PutInClipboard
> End Sub
>
> Dans le code du classeur ThisWorkbook ceci :
> Private Sub Workbook_Open()
> Sheets("Feuil1").Select
> [A1].Select
> End Sub
>
> l'erreur suivante est retournée :
> Erreur de compilation : Type défini par l'utilisateur non défini
>
> J'utilise exactement le même code dans un autre classeur (puisque j'ai


fai
> un copier/coller du code), et là ça fonctionne parfaitement.
>
> Je n'y comprend rien.
>
> Quelqu'un a t il une explication, que dois je faire ?
>
> Merci par avance
>
> Michel
>
>




Avatar
LSteph
Bonjour,

..pourquoi avec mon autre classeur


peut-être une autre bibli qui gèrerait cela le serait, je ne sais pas
vraiment...

Il m'est néanmoins permis de confirmer que chez moi cela semble
incontournable
quand au résultat (même erreur si c'est pas coché) sur n'importe que l
classeur.

Cordialement.

--
lSteph


On 8 oct, 12:14, "Michel MTO" wrote:
"Microsoft Forms n object Library" était bien coché
par contre  "Microsoft Forms 2.0 Object Library" ne l'était pas.

Toujours une question en suspens : pourquoi avec mon autre classeur le m ême
code fonctionnait alors que "Microsoft Forms 2.0 Object Library" n'étai t pas
coché?

Enfin, merci à tous les 2,  Daniel et Jacky

Michel

"Jacky" a écrit dans le message denews:%23Yxyrj$RKHA



> Bonjour,

> >Erreur de compilation : Type défini par l'utilisateur non défini

> XL 2003
> Alt+F11
> Menu / outils / références...==>cocher "Microsoft Forms 2.0 Obj ect
Library"
> --
> Salutations
> JJ

> "Michel MTO" a écrit dans le message de new s:
> hak9b3$
> > Bonjour à tout le monde,

> > Je vais faire encore appel à vos lumières.

> > J'utilise dans le code d'une feuille ceci :
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > Dim PressePapier As New dataobject
> > Set PressePapier = New dataobject
> > PressePapier.SetText Target
> > PressePapier.PutInClipboard
> > End Sub

> > Dans le code du classeur ThisWorkbook ceci :
> > Private Sub Workbook_Open()
> > Sheets("Feuil1").Select
> > [A1].Select
> > End Sub

> > l'erreur suivante est retournée :
> > Erreur de compilation : Type défini par l'utilisateur non défini

> > J'utilise exactement le même code dans un autre classeur (puisque j 'ai
fai
> > un copier/coller du code), et là ça fonctionne parfaitement.

> > Je n'y comprend rien.

> > Quelqu'un a t il une explication, que dois je faire ?

> > Merci par avance

> > Michel- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Avatar
michdenis
Lorsque tu ajoutes un formulaire (userform) cette bibliothèque
se charge d'elle-même avec l'insertion du formulaire. En conséquence
tu ne l'as peut être pas ajouté manuellement, mais elle devait être
présente.



"Michel MTO" a écrit dans le message de groupe de discussion :
hakdt2$6cg$
"Microsoft Forms n object Library" était bien coché
par contre "Microsoft Forms 2.0 Object Library" ne l'était pas.

Toujours une question en suspens : pourquoi avec mon autre classeur le même
code fonctionnait alors que "Microsoft Forms 2.0 Object Library" n'était pas
coché?

Enfin, merci à tous les 2, Daniel et Jacky


Michel

"Jacky" a écrit dans le message de
news:%23Yxyrj$
Bonjour,

>Erreur de compilation : Type défini par l'utilisateur non défini

XL 2003
Alt+F11
Menu / outils / références...==>cocher "Microsoft Forms 2.0 Object


Library"
--
Salutations
JJ


"Michel MTO" a écrit dans le message de news:
hak9b3$vjj$
> Bonjour à tout le monde,
>
> Je vais faire encore appel à vos lumières.
>
> J'utilise dans le code d'une feuille ceci :
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim PressePapier As New dataobject
> Set PressePapier = New dataobject
> PressePapier.SetText Target
> PressePapier.PutInClipboard
> End Sub
>
> Dans le code du classeur ThisWorkbook ceci :
> Private Sub Workbook_Open()
> Sheets("Feuil1").Select
> [A1].Select
> End Sub
>
> l'erreur suivante est retournée :
> Erreur de compilation : Type défini par l'utilisateur non défini
>
> J'utilise exactement le même code dans un autre classeur (puisque j'ai


fai
> un copier/coller du code), et là ça fonctionne parfaitement.
>
> Je n'y comprend rien.
>
> Quelqu'un a t il une explication, que dois je faire ?
>
> Merci par avance
>
> Michel
>
>




Avatar
Michel MTO
Merci à toi Michdenis

Michel