Bonjour.
Quelqu'un pourrait m'aider à resoudre mon problème:
Dans mon classeur je veux récupérer une valeur se trouvant dans un tableau
dans Word et la mettre dans une cellule. J'ai créée une macro me permettant
de le faire mais au moment de coller cette valeur dans la cellule A1 par:
Range("A1").Select
ActiveCell.PasteSpecial (xlPasteValues)
Une boite de dialogue me sort le message suivant:
Erreur d’exécution 1004
La methode PasteSpecial de la classe Range a echoué.
NB: Je vous fais savoir que ce message ne sort pas à chaque fois dès fois
j'ai un bon résultat et la plupart du temps c'est non
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
David
Bonjour, Je n'ai a priori pas trouvé d'erreur lorsque j'ai testé la fonction, cependant l'erreur pourrait peut etre provenir du fait que tu copies des donnes d'une application vers une autre. Donc logiquement il ne faudrait pas utiliser la fonction PasteSpecial de l'objet Range(ActiveCell) mais plutot de l'objet Worksheet comme indiqué dans l'exemple ci-dessous
This example pastes a Microsoft Word document object from the Clipboard to cell D1 on Sheet1. Worksheets("Sheet1").Range("D1").Select ActiveSheet.PasteSpecial format:= _ "Microsoft Word 8.0 Document Object" This example pastes the same Microsoft Word document object and displays it as an icon.
Worksheets("Sheet1").Range("F5").Select ActiveSheet.PasteSpecial _ Format:="Microsoft Word 8.0 Document Object", _ DisplayAsIcon:=True En esperant que cela t'aide...David "Hsofy" wrote in message news:
Bonjour. Quelqu'un pourrait m'aider à resoudre mon problème: Dans mon classeur je veux récupérer une valeur se trouvant dans un tableau dans Word et la mettre dans une cellule. J'ai créée une macro me permettant de le faire mais au moment de coller cette valeur dans la cellule A1 par: Range("A1").Select ActiveCell.PasteSpecial (xlPasteValues) Une boite de dialogue me sort le message suivant: Erreur d'exécution 1004 La methode PasteSpecial de la classe Range a echoué. NB: Je vous fais savoir que ce message ne sort pas à chaque fois dès fois j'ai un bon résultat et la plupart du temps c'est non Merci pour votre aide.
Bonjour,
Je n'ai a priori pas trouvé d'erreur lorsque j'ai testé la fonction,
cependant l'erreur pourrait peut etre provenir du fait que tu copies des
donnes d'une application vers une autre.
Donc logiquement il ne faudrait pas utiliser la fonction PasteSpecial de
l'objet Range(ActiveCell) mais plutot de l'objet Worksheet comme indiqué
dans l'exemple ci-dessous
This example pastes a Microsoft Word document object from the Clipboard to
cell D1 on Sheet1.
Worksheets("Sheet1").Range("D1").Select
ActiveSheet.PasteSpecial format:= _
"Microsoft Word 8.0 Document Object"
This example pastes the same Microsoft Word document object and displays
it as an icon.
Worksheets("Sheet1").Range("F5").Select
ActiveSheet.PasteSpecial _
Format:="Microsoft Word 8.0 Document Object", _
DisplayAsIcon:=True
En esperant que cela t'aide...David
"Hsofy" <Hsofy@discussions.microsoft.com> wrote in message
news:2999BE8B-05AC-4D30-B65C-1CB325F3C2CE@microsoft.com...
Bonjour.
Quelqu'un pourrait m'aider à resoudre mon problème:
Dans mon classeur je veux récupérer une valeur se trouvant dans un tableau
dans Word et la mettre dans une cellule. J'ai créée une macro me
permettant
de le faire mais au moment de coller cette valeur dans la cellule A1 par:
Range("A1").Select
ActiveCell.PasteSpecial (xlPasteValues)
Une boite de dialogue me sort le message suivant:
Erreur d'exécution 1004
La methode PasteSpecial de la classe Range a echoué.
NB: Je vous fais savoir que ce message ne sort pas à chaque fois dès fois
j'ai un bon résultat et la plupart du temps c'est non
Merci pour votre aide.
Bonjour, Je n'ai a priori pas trouvé d'erreur lorsque j'ai testé la fonction, cependant l'erreur pourrait peut etre provenir du fait que tu copies des donnes d'une application vers une autre. Donc logiquement il ne faudrait pas utiliser la fonction PasteSpecial de l'objet Range(ActiveCell) mais plutot de l'objet Worksheet comme indiqué dans l'exemple ci-dessous
This example pastes a Microsoft Word document object from the Clipboard to cell D1 on Sheet1. Worksheets("Sheet1").Range("D1").Select ActiveSheet.PasteSpecial format:= _ "Microsoft Word 8.0 Document Object" This example pastes the same Microsoft Word document object and displays it as an icon.
Worksheets("Sheet1").Range("F5").Select ActiveSheet.PasteSpecial _ Format:="Microsoft Word 8.0 Document Object", _ DisplayAsIcon:=True En esperant que cela t'aide...David "Hsofy" wrote in message news:
Bonjour. Quelqu'un pourrait m'aider à resoudre mon problème: Dans mon classeur je veux récupérer une valeur se trouvant dans un tableau dans Word et la mettre dans une cellule. J'ai créée une macro me permettant de le faire mais au moment de coller cette valeur dans la cellule A1 par: Range("A1").Select ActiveCell.PasteSpecial (xlPasteValues) Une boite de dialogue me sort le message suivant: Erreur d'exécution 1004 La methode PasteSpecial de la classe Range a echoué. NB: Je vous fais savoir que ce message ne sort pas à chaque fois dès fois j'ai un bon résultat et la plupart du temps c'est non Merci pour votre aide.
