Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
tu dois charger la référence suivante si ce n'est déjà fait :
"Microsoft Forms 2.0 Object Librairy"
Fenêtre de l'éditeur de code / barre des menus / références /
et tu la coches...
Cette bibliothèque se charge toute seule lorsqu'on ajouter un
formulaire (userform) à un projet vba.
Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
tu dois charger la référence suivante si ce n'est déjà fait :
"Microsoft Forms 2.0 Object Librairy"
Fenêtre de l'éditeur de code / barre des menus / références /
et tu la coches...
Cette bibliothèque se charge toute seule lorsqu'on ajouter un
formulaire (userform) à un projet vba.
Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
tu dois charger la référence suivante si ce n'est déjà fait :
"Microsoft Forms 2.0 Object Librairy"
Fenêtre de l'éditeur de code / barre des menus / références /
et tu la coches...
Cette bibliothèque se charge toute seule lorsqu'on ajouter un
formulaire (userform) à un projet vba.
Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
tu dois charger la référence suivante si ce n'est déjà fait :
"Microsoft Forms 2.0 Object Librairy"
Fenêtre de l'éditeur de code / barre des menus / références /
et tu la coches...
Cette bibliothèque se charge toute seule lorsqu'on ajouter un
formulaire (userform) à un projet vba.
Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
tu dois charger la référence suivante si ce n'est déjà fait :
"Microsoft Forms 2.0 Object Librairy"
Fenêtre de l'éditeur de code / barre des menus / références /
et tu la coches...
Cette bibliothèque se charge toute seule lorsqu'on ajouter un
formulaire (userform) à un projet vba.
Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
tu dois charger la référence suivante si ce n'est déjà fait :
"Microsoft Forms 2.0 Object Librairy"
Fenêtre de l'éditeur de code / barre des menus / références /
et tu la coches...
Cette bibliothèque se charge toute seule lorsqu'on ajouter un
formulaire (userform) à un projet vba.
Je n'ai pas d'autres suggestions.
La presque totalité de ta procédure se résume
a des commande "SendKeys"... si cela dépanne
ça peut devenir problématique à plus d'un égard.
Lorsque les 2 ordinateurs sont de puissances différentes,
il se peut q'un de ceux-ci ait besoin d'une seconde ou
deux pour effectuer une tâche et que cela ait un impact
sur le déroulement des commandes....mais à part
de faire toutes sortes de tests manuels, il n'y a pas grand
chose à faire !!!
"pellet15" a écrit dans le message de news:
On 20 sep, 13:46, "michdenis" wrote:
> Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> tu dois charger la référence suivante si ce n'est déjà fait :
> "Microsoft Forms 2.0 Object Librairy"
> Fenêtre de l'éditeur de code / barre des menus / références /
> et tu la coches...
> Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> formulaire (userform) à un projet vba.
Bonjour Michdenis
oui elle est cocher
"Microsoft Forms 2.0 Object Librairy"
et le presse papier ne change pas.
Quoi faire
merci
Je n'ai pas d'autres suggestions.
La presque totalité de ta procédure se résume
a des commande "SendKeys"... si cela dépanne
ça peut devenir problématique à plus d'un égard.
Lorsque les 2 ordinateurs sont de puissances différentes,
il se peut q'un de ceux-ci ait besoin d'une seconde ou
deux pour effectuer une tâche et que cela ait un impact
sur le déroulement des commandes....mais à part
de faire toutes sortes de tests manuels, il n'y a pas grand
chose à faire !!!
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
f2312453-317a-411e-8bad-f76b9a672...@m3g2000hsc.googlegroups.com...
On 20 sep, 13:46, "michdenis" <michde...@hotmail.com> wrote:
> Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> tu dois charger la référence suivante si ce n'est déjà fait :
> "Microsoft Forms 2.0 Object Librairy"
> Fenêtre de l'éditeur de code / barre des menus / références /
> et tu la coches...
> Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> formulaire (userform) à un projet vba.
Bonjour Michdenis
oui elle est cocher
"Microsoft Forms 2.0 Object Librairy"
et le presse papier ne change pas.
Quoi faire
merci
Je n'ai pas d'autres suggestions.
La presque totalité de ta procédure se résume
a des commande "SendKeys"... si cela dépanne
ça peut devenir problématique à plus d'un égard.
Lorsque les 2 ordinateurs sont de puissances différentes,
il se peut q'un de ceux-ci ait besoin d'une seconde ou
deux pour effectuer une tâche et que cela ait un impact
sur le déroulement des commandes....mais à part
de faire toutes sortes de tests manuels, il n'y a pas grand
chose à faire !!!
"pellet15" a écrit dans le message de news:
On 20 sep, 13:46, "michdenis" wrote:
> Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> tu dois charger la référence suivante si ce n'est déjà fait :
> "Microsoft Forms 2.0 Object Librairy"
> Fenêtre de l'éditeur de code / barre des menus / références /
> et tu la coches...
> Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> formulaire (userform) à un projet vba.
Bonjour Michdenis
oui elle est cocher
"Microsoft Forms 2.0 Object Librairy"
et le presse papier ne change pas.
Quoi faire
merci
Je n'ai pas d'autres suggestions.
La presque totalité de ta procédure se résume
a des commande "SendKeys"... si cela dépanne
ça peut devenir problématique à plus d'un égard.
Lorsque les 2 ordinateurs sont de puissances différentes,
il se peut q'un de ceux-ci ait besoin d'une seconde ou
deux pour effectuer une tâche et que cela ait un impact
sur le déroulement des commandes....mais à part
de faire toutes sortes de tests manuels, il n'y a pas grand
chose à faire !!!
"pellet15" a écrit dans le message de news:
On 20 sep, 13:46, "michdenis" wrote:
> Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> tu dois charger la référence suivante si ce n'est déjà fait :
> "Microsoft Forms 2.0 Object Librairy"
> Fenêtre de l'éditeur de code / barre des menus / références /
> et tu la coches...
> Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> formulaire (userform) à un projet vba.
Bonjour Michdenis
oui elle est cocher
"Microsoft Forms 2.0 Object Librairy"
et le presse papier ne change pas.
Quoi faire
merci
Je n'ai pas d'autres suggestions.
La presque totalité de ta procédure se résume
a des commande "SendKeys"... si cela dépanne
ça peut devenir problématique à plus d'un égard.
Lorsque les 2 ordinateurs sont de puissances différentes,
il se peut q'un de ceux-ci ait besoin d'une seconde ou
deux pour effectuer une tâche et que cela ait un impact
sur le déroulement des commandes....mais à part
de faire toutes sortes de tests manuels, il n'y a pas grand
chose à faire !!!
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
f2312453-317a-411e-8bad-f76b9a672...@m3g2000hsc.googlegroups.com...
On 20 sep, 13:46, "michdenis" <michde...@hotmail.com> wrote:
> Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> tu dois charger la référence suivante si ce n'est déjà fait :
> "Microsoft Forms 2.0 Object Librairy"
> Fenêtre de l'éditeur de code / barre des menus / références /
> et tu la coches...
> Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> formulaire (userform) à un projet vba.
Bonjour Michdenis
oui elle est cocher
"Microsoft Forms 2.0 Object Librairy"
et le presse papier ne change pas.
Quoi faire
merci
Je n'ai pas d'autres suggestions.
La presque totalité de ta procédure se résume
a des commande "SendKeys"... si cela dépanne
ça peut devenir problématique à plus d'un égard.
Lorsque les 2 ordinateurs sont de puissances différentes,
il se peut q'un de ceux-ci ait besoin d'une seconde ou
deux pour effectuer une tâche et que cela ait un impact
sur le déroulement des commandes....mais à part
de faire toutes sortes de tests manuels, il n'y a pas grand
chose à faire !!!
"pellet15" a écrit dans le message de news:
On 20 sep, 13:46, "michdenis" wrote:
> Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> tu dois charger la référence suivante si ce n'est déjà fait :
> "Microsoft Forms 2.0 Object Librairy"
> Fenêtre de l'éditeur de code / barre des menus / références /
> et tu la coches...
> Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> formulaire (userform) à un projet vba.
Bonjour Michdenis
oui elle est cocher
"Microsoft Forms 2.0 Object Librairy"
et le presse papier ne change pas.
Quoi faire
merci
| le débogage me retour
| Erreur d'execution' -2147221404 (80040064)':
| DataObject:GeText Structure FORMATETC non valide
L'objet "DataObject" requiert la référence suivante pour fonctionner :
"Microsoft Forms 2.0 Object Librairy"
Tu dois te rappeler que "DataObject" ne fonctionne qu'avec
des données "texte (numérique)" présent dans le presse-papier.
Le type d'erreur que tu obtiens suppose que tu as autre chose
dans le presse-papier que du texte que tu veux copier dans ta
cellule.
Une façon de constater cela par toi-même, ajoute un nouveau module
standard à ton classeur et copie la procédure suivante :
'--------------------------------
Sub test()
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard
Range("H15") = Presspp.GetText
Set Pressp = Nothing
End Sub
'--------------------------------
Maintenant, envoie dans le presse-papier (copie) une donnée
d'une de tes feuilles de calcul et exécute ta macro, cela fonctionne
très bien.
Refais le teste en copiant dans le presse-papier, un objet quelqueconque
dans le presse-papier (bouton de commande par exemple) et exécute à
nouveau la procédure, tu obtiendras ton message d'erreur.
Conclusion : Dans ton presse-papier, es-tu certain d'avoir une donnée
texte avant de lancer la proc édure ?
"pellet15" a écrit dans le message de news:
On 21 sep, 07:24, "michdenis" wrote:
> Je n'ai pas d'autres suggestions.
> La presque totalité de ta procédure se résume
> a des commande "SendKeys"... si cela dépanne
> ça peut devenir problématique à plus d'un égard.
> Lorsque les 2 ordinateurs sont de puissances différentes,
> il se peut q'un de ceux-ci ait besoin d'une seconde ou
> deux pour effectuer une tâche et que cela ait un impact
> sur le déroulement des commandes....mais à part
> de faire toutes sortes de tests manuels, il n'y a pas grand
> chose à faire !!!
> "pellet15" a écrit dans le message de news:
>
> On 20 sep, 13:46, "michdenis" wrote:
> > Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> > tu dois charger la référence suivante si ce n'est déjà fait :
> > "Microsoft Forms 2.0 Object Librairy"
> > Fenêtre de l'éditeur de code / barre des menus / références /
> > et tu la coches...
> > Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> > formulaire (userform) à un projet vba.
> Bonjour Michdenis
> oui elle est cocher
> "Microsoft Forms 2.0 Object Librairy"
> et le presse papier ne change pas.
> Quoi faire
> merci
Bonjour Michdenis
J'ai ajouter des pause Application.Wait (Now +
TimeValue("00:00:01"))
mais cela ne fonctionne pas.
le débogage me retour
Erreur d'execution' -2147221404 (80040064)':
DataObject:GeText Structure FORMATETC non valide
et la ligne suisvant est en Jaune !!!!!
Range("H15") = Presspp.GetText
Un autre fait est que ci je copie une autre cellule dans le Presse-
papier avant l'exécution de la macros , il la colle a la place de ce
que je voulait .
Normalement en H15, je devrais avoir une donner GPS comme N45.50237
W73.55350
Voici la procédure manuellement (qui fonctionne)
Ouvre le programe nRoute
ESCP (pour fermer des fenêtres qui s'ouvre automatiquement)
ESCP
CTRL-W (pour ouvrie une fenêtre dans nRoute)
ALT-TAB (pour changer de champ)
ALT-TAB (pour changer de champ)
CTRL-C
ESCP (pour fermer la fenêtre W)
ALT-TAB (pour revenir dans Excel
select cellule H15
CTRL-V
manuellement ca va
ou est l'erreur ????
Merci (je doit absolument trouver une solution)- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
| le débogage me retour
| Erreur d'execution' -2147221404 (80040064)':
| DataObject:GeText Structure FORMATETC non valide
L'objet "DataObject" requiert la référence suivante pour fonctionner :
"Microsoft Forms 2.0 Object Librairy"
Tu dois te rappeler que "DataObject" ne fonctionne qu'avec
des données "texte (numérique)" présent dans le presse-papier.
Le type d'erreur que tu obtiens suppose que tu as autre chose
dans le presse-papier que du texte que tu veux copier dans ta
cellule.
Une façon de constater cela par toi-même, ajoute un nouveau module
standard à ton classeur et copie la procédure suivante :
'--------------------------------
Sub test()
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard
Range("H15") = Presspp.GetText
Set Pressp = Nothing
End Sub
'--------------------------------
Maintenant, envoie dans le presse-papier (copie) une donnée
d'une de tes feuilles de calcul et exécute ta macro, cela fonctionne
très bien.
Refais le teste en copiant dans le presse-papier, un objet quelqueconque
dans le presse-papier (bouton de commande par exemple) et exécute à
nouveau la procédure, tu obtiendras ton message d'erreur.
Conclusion : Dans ton presse-papier, es-tu certain d'avoir une donnée
texte avant de lancer la proc édure ?
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
4f26f0db-4eb5-482b-a600-0fa50993f...@r66g2000hsg.googlegroups.com...
On 21 sep, 07:24, "michdenis" <michde...@hotmail.com> wrote:
> Je n'ai pas d'autres suggestions.
> La presque totalité de ta procédure se résume
> a des commande "SendKeys"... si cela dépanne
> ça peut devenir problématique à plus d'un égard.
> Lorsque les 2 ordinateurs sont de puissances différentes,
> il se peut q'un de ceux-ci ait besoin d'une seconde ou
> deux pour effectuer une tâche et que cela ait un impact
> sur le déroulement des commandes....mais à part
> de faire toutes sortes de tests manuels, il n'y a pas grand
> chose à faire !!!
> "pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
> f2312453-317a-411e-8bad-f76b9a672...@m3g2000hsc.googlegroups.com...
> On 20 sep, 13:46, "michdenis" <michde...@hotmail.com> wrote:
> > Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> > tu dois charger la référence suivante si ce n'est déjà fait :
> > "Microsoft Forms 2.0 Object Librairy"
> > Fenêtre de l'éditeur de code / barre des menus / références /
> > et tu la coches...
> > Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> > formulaire (userform) à un projet vba.
> Bonjour Michdenis
> oui elle est cocher
> "Microsoft Forms 2.0 Object Librairy"
> et le presse papier ne change pas.
> Quoi faire
> merci
Bonjour Michdenis
J'ai ajouter des pause Application.Wait (Now +
TimeValue("00:00:01"))
mais cela ne fonctionne pas.
le débogage me retour
Erreur d'execution' -2147221404 (80040064)':
DataObject:GeText Structure FORMATETC non valide
et la ligne suisvant est en Jaune !!!!!
Range("H15") = Presspp.GetText
Un autre fait est que ci je copie une autre cellule dans le Presse-
papier avant l'exécution de la macros , il la colle a la place de ce
que je voulait .
Normalement en H15, je devrais avoir une donner GPS comme N45.50237
W73.55350
Voici la procédure manuellement (qui fonctionne)
Ouvre le programe nRoute
ESCP (pour fermer des fenêtres qui s'ouvre automatiquement)
ESCP
CTRL-W (pour ouvrie une fenêtre dans nRoute)
ALT-TAB (pour changer de champ)
ALT-TAB (pour changer de champ)
CTRL-C
ESCP (pour fermer la fenêtre W)
ALT-TAB (pour revenir dans Excel
select cellule H15
CTRL-V
manuellement ca va
ou est l'erreur ????
Merci (je doit absolument trouver une solution)- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
| le débogage me retour
| Erreur d'execution' -2147221404 (80040064)':
| DataObject:GeText Structure FORMATETC non valide
L'objet "DataObject" requiert la référence suivante pour fonctionner :
"Microsoft Forms 2.0 Object Librairy"
Tu dois te rappeler que "DataObject" ne fonctionne qu'avec
des données "texte (numérique)" présent dans le presse-papier.
Le type d'erreur que tu obtiens suppose que tu as autre chose
dans le presse-papier que du texte que tu veux copier dans ta
cellule.
Une façon de constater cela par toi-même, ajoute un nouveau module
standard à ton classeur et copie la procédure suivante :
'--------------------------------
Sub test()
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard
Range("H15") = Presspp.GetText
Set Pressp = Nothing
End Sub
'--------------------------------
Maintenant, envoie dans le presse-papier (copie) une donnée
d'une de tes feuilles de calcul et exécute ta macro, cela fonctionne
très bien.
Refais le teste en copiant dans le presse-papier, un objet quelqueconque
dans le presse-papier (bouton de commande par exemple) et exécute à
nouveau la procédure, tu obtiendras ton message d'erreur.
Conclusion : Dans ton presse-papier, es-tu certain d'avoir une donnée
texte avant de lancer la proc édure ?
"pellet15" a écrit dans le message de news:
On 21 sep, 07:24, "michdenis" wrote:
> Je n'ai pas d'autres suggestions.
> La presque totalité de ta procédure se résume
> a des commande "SendKeys"... si cela dépanne
> ça peut devenir problématique à plus d'un égard.
> Lorsque les 2 ordinateurs sont de puissances différentes,
> il se peut q'un de ceux-ci ait besoin d'une seconde ou
> deux pour effectuer une tâche et que cela ait un impact
> sur le déroulement des commandes....mais à part
> de faire toutes sortes de tests manuels, il n'y a pas grand
> chose à faire !!!
> "pellet15" a écrit dans le message de news:
>
> On 20 sep, 13:46, "michdenis" wrote:
> > Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> > tu dois charger la référence suivante si ce n'est déjà fait :
> > "Microsoft Forms 2.0 Object Librairy"
> > Fenêtre de l'éditeur de code / barre des menus / références /
> > et tu la coches...
> > Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> > formulaire (userform) à un projet vba.
> Bonjour Michdenis
> oui elle est cocher
> "Microsoft Forms 2.0 Object Librairy"
> et le presse papier ne change pas.
> Quoi faire
> merci
Bonjour Michdenis
J'ai ajouter des pause Application.Wait (Now +
TimeValue("00:00:01"))
mais cela ne fonctionne pas.
le débogage me retour
Erreur d'execution' -2147221404 (80040064)':
DataObject:GeText Structure FORMATETC non valide
et la ligne suisvant est en Jaune !!!!!
Range("H15") = Presspp.GetText
Un autre fait est que ci je copie une autre cellule dans le Presse-
papier avant l'exécution de la macros , il la colle a la place de ce
que je voulait .
Normalement en H15, je devrais avoir une donner GPS comme N45.50237
W73.55350
Voici la procédure manuellement (qui fonctionne)
Ouvre le programe nRoute
ESCP (pour fermer des fenêtres qui s'ouvre automatiquement)
ESCP
CTRL-W (pour ouvrie une fenêtre dans nRoute)
ALT-TAB (pour changer de champ)
ALT-TAB (pour changer de champ)
CTRL-C
ESCP (pour fermer la fenêtre W)
ALT-TAB (pour revenir dans Excel
select cellule H15
CTRL-V
manuellement ca va
ou est l'erreur ????
Merci (je doit absolument trouver une solution)- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
| le débogage me retour
| Erreur d'execution' -2147221404 (80040064)':
| DataObject:GeText Structure FORMATETC non valide
L'objet "DataObject" requiert la référence suivante pour fonctionner :
"Microsoft Forms 2.0 Object Librairy"
Tu dois te rappeler que "DataObject" ne fonctionne qu'avec
des données "texte (numérique)" présent dans le presse-papier.
Le type d'erreur que tu obtiens suppose que tu as autre chose
dans le presse-papier que du texte que tu veux copier dans ta
cellule.
Une façon de constater cela par toi-même, ajoute un nouveau module
standard à ton classeur et copie la procédure suivante :
'--------------------------------
Sub test()
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard
Range("H15") = Presspp.GetText
Set Pressp = Nothing
End Sub
'--------------------------------
Maintenant, envoie dans le presse-papier (copie) une donnée
d'une de tes feuilles de calcul et exécute ta macro, cela fonctionne
très bien.
Refais le teste en copiant dans le presse-papier, un objet quelqueconque
dans le presse-papier (bouton de commande par exemple) et exécute à
nouveau la procédure, tu obtiendras ton message d'erreur.
Conclusion : Dans ton presse-papier, es-tu certain d'avoir une donnée
texte avant de lancer la procédure ?
"pellet15" a écrit dans le message de news:
On 21 sep, 07:24, "michdenis" wrote:
> Je n'ai pas d'autres suggestions.
> La presque totalité de ta procédure se résume
> a des commande "SendKeys"... si cela dépanne
> ça peut devenir problématique à plus d'un égard.
> Lorsque les 2 ordinateurs sont de puissances différentes,
> il se peut q'un de ceux-ci ait besoin d'une seconde ou
> deux pour effectuer une tâche et que cela ait un impact
> sur le déroulement des commandes....mais à part
> de faire toutes sortes de tests manuels, il n'y a pas grand
> chose à faire !!!
> "pellet15" a écrit dans le message de news:
>
> On 20 sep, 13:46, "michdenis" wrote:
> > Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> > tu dois charger la référence suivante si ce n'est déjà fait :
> > "Microsoft Forms 2.0 Object Librairy"
> > Fenêtre de l'éditeur de code / barre des menus / références /
> > et tu la coches...
> > Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> > formulaire (userform) à un projet vba.
> Bonjour Michdenis
> oui elle est cocher
> "Microsoft Forms 2.0 Object Librairy"
> et le presse papier ne change pas.
> Quoi faire
> merci
Bonjour Michdenis
J'ai ajouter des pause Application.Wait (Now +
TimeValue("00:00:01"))
mais cela ne fonctionne pas.
le débogage me retour
Erreur d'execution' -2147221404 (80040064)':
DataObject:GeText Structure FORMATETC non valide
et la ligne suisvant est en Jaune !!!!!
Range("H15") = Presspp.GetText
Un autre fait est que ci je copie une autre cellule dans le Presse-
papier avant l'exécution de la macros , il la colle a la place de ce
que je voulait .
Normalement en H15, je devrais avoir une donner GPS comme N45.50237
W73.55350
Voici la procédure manuellement (qui fonctionne)
Ouvre le programe nRoute
ESCP (pour fermer des fenêtres qui s'ouvre automatiquement)
ESCP
CTRL-W (pour ouvrie une fenêtre dans nRoute)
ALT-TAB (pour changer de champ)
ALT-TAB (pour changer de champ)
CTRL-C
ESCP (pour fermer la fenêtre W)
ALT-TAB (pour revenir dans Excel
select cellule H15
CTRL-V
manuellement ca va
ou est l'erreur ????
Merci (je doit absolument trouver une solution)- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
| le débogage me retour
| Erreur d'execution' -2147221404 (80040064)':
| DataObject:GeText Structure FORMATETC non valide
L'objet "DataObject" requiert la référence suivante pour fonctionner :
"Microsoft Forms 2.0 Object Librairy"
Tu dois te rappeler que "DataObject" ne fonctionne qu'avec
des données "texte (numérique)" présent dans le presse-papier.
Le type d'erreur que tu obtiens suppose que tu as autre chose
dans le presse-papier que du texte que tu veux copier dans ta
cellule.
Une façon de constater cela par toi-même, ajoute un nouveau module
standard à ton classeur et copie la procédure suivante :
'--------------------------------
Sub test()
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard
Range("H15") = Presspp.GetText
Set Pressp = Nothing
End Sub
'--------------------------------
Maintenant, envoie dans le presse-papier (copie) une donnée
d'une de tes feuilles de calcul et exécute ta macro, cela fonctionne
très bien.
Refais le teste en copiant dans le presse-papier, un objet quelqueconque
dans le presse-papier (bouton de commande par exemple) et exécute à
nouveau la procédure, tu obtiendras ton message d'erreur.
Conclusion : Dans ton presse-papier, es-tu certain d'avoir une donnée
texte avant de lancer la procédure ?
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
4f26f0db-4eb5-482b-a600-0fa50993f...@r66g2000hsg.googlegroups.com...
On 21 sep, 07:24, "michdenis" <michde...@hotmail.com> wrote:
> Je n'ai pas d'autres suggestions.
> La presque totalité de ta procédure se résume
> a des commande "SendKeys"... si cela dépanne
> ça peut devenir problématique à plus d'un égard.
> Lorsque les 2 ordinateurs sont de puissances différentes,
> il se peut q'un de ceux-ci ait besoin d'une seconde ou
> deux pour effectuer une tâche et que cela ait un impact
> sur le déroulement des commandes....mais à part
> de faire toutes sortes de tests manuels, il n'y a pas grand
> chose à faire !!!
> "pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
> f2312453-317a-411e-8bad-f76b9a672...@m3g2000hsc.googlegroups.com...
> On 20 sep, 13:46, "michdenis" <michde...@hotmail.com> wrote:
> > Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> > tu dois charger la référence suivante si ce n'est déjà fait :
> > "Microsoft Forms 2.0 Object Librairy"
> > Fenêtre de l'éditeur de code / barre des menus / références /
> > et tu la coches...
> > Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> > formulaire (userform) à un projet vba.
> Bonjour Michdenis
> oui elle est cocher
> "Microsoft Forms 2.0 Object Librairy"
> et le presse papier ne change pas.
> Quoi faire
> merci
Bonjour Michdenis
J'ai ajouter des pause Application.Wait (Now +
TimeValue("00:00:01"))
mais cela ne fonctionne pas.
le débogage me retour
Erreur d'execution' -2147221404 (80040064)':
DataObject:GeText Structure FORMATETC non valide
et la ligne suisvant est en Jaune !!!!!
Range("H15") = Presspp.GetText
Un autre fait est que ci je copie une autre cellule dans le Presse-
papier avant l'exécution de la macros , il la colle a la place de ce
que je voulait .
Normalement en H15, je devrais avoir une donner GPS comme N45.50237
W73.55350
Voici la procédure manuellement (qui fonctionne)
Ouvre le programe nRoute
ESCP (pour fermer des fenêtres qui s'ouvre automatiquement)
ESCP
CTRL-W (pour ouvrie une fenêtre dans nRoute)
ALT-TAB (pour changer de champ)
ALT-TAB (pour changer de champ)
CTRL-C
ESCP (pour fermer la fenêtre W)
ALT-TAB (pour revenir dans Excel
select cellule H15
CTRL-V
manuellement ca va
ou est l'erreur ????
Merci (je doit absolument trouver une solution)- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
| le débogage me retour
| Erreur d'execution' -2147221404 (80040064)':
| DataObject:GeText Structure FORMATETC non valide
L'objet "DataObject" requiert la référence suivante pour fonctionner :
"Microsoft Forms 2.0 Object Librairy"
Tu dois te rappeler que "DataObject" ne fonctionne qu'avec
des données "texte (numérique)" présent dans le presse-papier.
Le type d'erreur que tu obtiens suppose que tu as autre chose
dans le presse-papier que du texte que tu veux copier dans ta
cellule.
Une façon de constater cela par toi-même, ajoute un nouveau module
standard à ton classeur et copie la procédure suivante :
'--------------------------------
Sub test()
Dim Presspp As New DataObject
Set Pressp = New DataObject
Presspp.GetFromClipboard
Range("H15") = Presspp.GetText
Set Pressp = Nothing
End Sub
'--------------------------------
Maintenant, envoie dans le presse-papier (copie) une donnée
d'une de tes feuilles de calcul et exécute ta macro, cela fonctionne
très bien.
Refais le teste en copiant dans le presse-papier, un objet quelqueconque
dans le presse-papier (bouton de commande par exemple) et exécute à
nouveau la procédure, tu obtiendras ton message d'erreur.
Conclusion : Dans ton presse-papier, es-tu certain d'avoir une donnée
texte avant de lancer la procédure ?
"pellet15" a écrit dans le message de news:
On 21 sep, 07:24, "michdenis" wrote:
> Je n'ai pas d'autres suggestions.
> La presque totalité de ta procédure se résume
> a des commande "SendKeys"... si cela dépanne
> ça peut devenir problématique à plus d'un égard.
> Lorsque les 2 ordinateurs sont de puissances différentes,
> il se peut q'un de ceux-ci ait besoin d'une seconde ou
> deux pour effectuer une tâche et que cela ait un impact
> sur le déroulement des commandes....mais à part
> de faire toutes sortes de tests manuels, il n'y a pas grand
> chose à faire !!!
> "pellet15" a écrit dans le message de news:
>
> On 20 sep, 13:46, "michdenis" wrote:
> > Pour pouvoir utiliser l'objet "DataObject" dans une procédure,
> > tu dois charger la référence suivante si ce n'est déjà fait :
> > "Microsoft Forms 2.0 Object Librairy"
> > Fenêtre de l'éditeur de code / barre des menus / références /
> > et tu la coches...
> > Cette bibliothèque se charge toute seule lorsqu'on ajouter un
> > formulaire (userform) à un projet vba.
> Bonjour Michdenis
> oui elle est cocher
> "Microsoft Forms 2.0 Object Librairy"
> et le presse papier ne change pas.
> Quoi faire
> merci
Bonjour Michdenis
J'ai ajouter des pause Application.Wait (Now +
TimeValue("00:00:01"))
mais cela ne fonctionne pas.
le débogage me retour
Erreur d'execution' -2147221404 (80040064)':
DataObject:GeText Structure FORMATETC non valide
et la ligne suisvant est en Jaune !!!!!
Range("H15") = Presspp.GetText
Un autre fait est que ci je copie une autre cellule dans le Presse-
papier avant l'exécution de la macros , il la colle a la place de ce
que je voulait .
Normalement en H15, je devrais avoir une donner GPS comme N45.50237
W73.55350
Voici la procédure manuellement (qui fonctionne)
Ouvre le programe nRoute
ESCP (pour fermer des fenêtres qui s'ouvre automatiquement)
ESCP
CTRL-W (pour ouvrie une fenêtre dans nRoute)
ALT-TAB (pour changer de champ)
ALT-TAB (pour changer de champ)
CTRL-C
ESCP (pour fermer la fenêtre W)
ALT-TAB (pour revenir dans Excel
select cellule H15
CTRL-V
manuellement ca va
ou est l'erreur ????
Merci (je doit absolument trouver une solution)- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -