Je n'arrive pas à faire un coller spécial en valeur d'un classeur sur un
autre classeur.
Mon classeur 1 contient des formules et je voudrais coller sur mon classeur
2 le résultat de ces formules.
Il me faut passer par VB et j'utilise :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
J'ai toujours le message "La méthode Paste Special de la classe Range a
échoué"
J'ai l'impression qu'il ne comprend pas les constantes xlPasteValues et
xlNone.
Quelqu'un peut-il m'aider ?
With Workbooks(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Workbooks(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
dans ce cas il me plante un message sur le premier .Worksheets(num_feuille).activate
Message d'erreur : "Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé. On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Windows(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
J'ai essayé sur un autre poste et la macro fonctionne. Il doit y avoir un paramétrage ou une option qui est désactivée sur mon poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( . Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un bouton ? Daniel "Laurence" a écrit dans le message de news:
Voici le code : Windows(nom_fic1).Activate Worksheets(num_feuille).Activate
'copie en valeur Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste Les feuilles ne contiennent pas de cellules fusionnées. Si je le fais à la main ça marche, mais pas à l'exécution de ma macro.
Bonjour. Publie la partie de ton code qui contient le copier / coller. Cordialement. Daniel "Laurence" a écrit dans le message de news:
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur sur un autre classeur. Mon classeur 1 contient des formules et je voudrais coller sur mon classeur 2 le résultat de ces formules. Il me faut passer par VB et j'utilise : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse J'ai toujours le message "La méthode Paste Special de la classe Range a échoué"
J'ai l'impression qu'il ne comprend pas les constantes xlPasteValues et xlNone. Quelqu'un peut-il m'aider ?
Merci
De ma faute. Teste :
With Workbooks(nom_fic1)
.Activate
.Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy
End With
With Workbooks(nom_fic2)
.Activate
.Worksheets(num_feuille).Activate
'copie en valeur
.Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues
End With
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: BF080ABA-D854-4633-89C7-308CB84AB90F@microsoft.com...
dans ce cas il me plante un message sur le premier
.Worksheets(num_feuille).activate
Message d'erreur :
"Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé.
On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1)
.Activate
.Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy
End With
With Windows(nom_fic2)
.Activate
.Worksheets(num_feuille).Activate
'copie en valeur
.Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues
End With
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message
de
news: B4A18E7F-9D0E-4BEB-A508-B3141BCD49A6@microsoft.com...
J'ai essayé sur un autre poste et la macro fonctionne.
Il doit y avoir un paramétrage ou une option qui est désactivée sur mon
poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( .
Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un
bouton
?
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le
message
de
news: 3E24A47F-5F8D-4115-9BFF-725F85A1B397@microsoft.com...
Voici le code :
Windows(nom_fic1).Activate
Worksheets(num_feuille).Activate
'copie en valeur
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste
Les feuilles ne contiennent pas de cellules fusionnées. Si je le
fais à
la
main ça marche, mais pas à l'exécution de ma macro.
Bonjour.
Publie la partie de ton code qui contient le copier / coller.
Cordialement.
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le
message
de
news: E1341A79-7C2A-4184-8D46-584E16F16D42@microsoft.com...
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur
sur
un
autre classeur.
Mon classeur 1 contient des formules et je voudrais coller sur
mon
classeur
2 le résultat de ces formules.
Il me faut passer par VB et j'utilise :
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
J'ai toujours le message "La méthode Paste Special de la classe
Range a
échoué"
J'ai l'impression qu'il ne comprend pas les constantes
xlPasteValues
et
xlNone.
Quelqu'un peut-il m'aider ?
With Workbooks(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Workbooks(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
dans ce cas il me plante un message sur le premier .Worksheets(num_feuille).activate
Message d'erreur : "Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé. On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Windows(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
J'ai essayé sur un autre poste et la macro fonctionne. Il doit y avoir un paramétrage ou une option qui est désactivée sur mon poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( . Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un bouton ? Daniel "Laurence" a écrit dans le message de news:
Voici le code : Windows(nom_fic1).Activate Worksheets(num_feuille).Activate
'copie en valeur Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste Les feuilles ne contiennent pas de cellules fusionnées. Si je le fais à la main ça marche, mais pas à l'exécution de ma macro.
Bonjour. Publie la partie de ton code qui contient le copier / coller. Cordialement. Daniel "Laurence" a écrit dans le message de news:
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur sur un autre classeur. Mon classeur 1 contient des formules et je voudrais coller sur mon classeur 2 le résultat de ces formules. Il me faut passer par VB et j'utilise : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse J'ai toujours le message "La méthode Paste Special de la classe Range a échoué"
J'ai l'impression qu'il ne comprend pas les constantes xlPasteValues et xlNone. Quelqu'un peut-il m'aider ?
Merci
Daniel
Je n'ai même pas cette possibilité dans l'aide VBA à la rubrique "paste special". Tu as quelle version d'XL ? Daniel "Laurence" a écrit dans le message de news:
J'ai trouvé !!!!!!!!!!!
J'ai remplacé le Paste:=xlPasteValues par Paste:=xlValues et ça marche ! Le copier se fait bien en valeur, je ne vois pas à première vu de problème.
Quelqu'un peut-il m'explique la différence entre ces 2 syntaxes ?
Merci d'avance
dans ce cas il me plante un message sur le premier .Worksheets(num_feuille).activate
Message d'erreur : "Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé. On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Windows(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
J'ai essayé sur un autre poste et la macro fonctionne. Il doit y avoir un paramétrage ou une option qui est désactivée sur mon poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( . Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un bouton ? Daniel "Laurence" a écrit dans le message de news:
Voici le code : Windows(nom_fic1).Activate Worksheets(num_feuille).Activate
'copie en valeur Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste Les feuilles ne contiennent pas de cellules fusionnées. Si je le fais à la main ça marche, mais pas à l'exécution de ma macro.
Bonjour. Publie la partie de ton code qui contient le copier / coller. Cordialement. Daniel "Laurence" a écrit dans le message de news:
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur sur un autre classeur. Mon classeur 1 contient des formules et je voudrais coller sur mon classeur 2 le résultat de ces formules. Il me faut passer par VB et j'utilise : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse J'ai toujours le message "La méthode Paste Special de la classe Range a échoué"
J'ai l'impression qu'il ne comprend pas les constantes xlPasteValues et xlNone. Quelqu'un peut-il m'aider ?
Merci
Je n'ai même pas cette possibilité dans l'aide VBA à la rubrique "paste
special". Tu as quelle version d'XL ?
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: 573F9D3F-D2E4-4454-AA89-7C97802EE53C@microsoft.com...
J'ai trouvé !!!!!!!!!!!
J'ai remplacé le Paste:=xlPasteValues par Paste:=xlValues et ça marche !
Le copier se fait bien en valeur, je ne vois pas à première vu de
problème.
Quelqu'un peut-il m'explique la différence entre ces 2 syntaxes ?
Merci d'avance
dans ce cas il me plante un message sur le premier
.Worksheets(num_feuille).activate
Message d'erreur :
"Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé.
On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1)
.Activate
.Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy
End With
With Windows(nom_fic2)
.Activate
.Worksheets(num_feuille).Activate
'copie en valeur
.Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues
End With
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message
de
news: B4A18E7F-9D0E-4BEB-A508-B3141BCD49A6@microsoft.com...
J'ai essayé sur un autre poste et la macro fonctionne.
Il doit y avoir un paramétrage ou une option qui est désactivée sur
mon
poste - et sur celui de mon chef, qui ne fonctionne pas non plus
:-( .
Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par
un
bouton
?
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le
message
de
news: 3E24A47F-5F8D-4115-9BFF-725F85A1B397@microsoft.com...
Voici le code :
Windows(nom_fic1).Activate
Worksheets(num_feuille).Activate
'copie en valeur
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste
Les feuilles ne contiennent pas de cellules fusionnées. Si je le
fais à
la
main ça marche, mais pas à l'exécution de ma macro.
Bonjour.
Publie la partie de ton code qui contient le copier / coller.
Cordialement.
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le
message
de
news: E1341A79-7C2A-4184-8D46-584E16F16D42@microsoft.com...
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un
classeur
sur
un
autre classeur.
Mon classeur 1 contient des formules et je voudrais coller sur
mon
classeur
2 le résultat de ces formules.
Il me faut passer par VB et j'utilise :
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
J'ai toujours le message "La méthode Paste Special de la classe
Range a
échoué"
J'ai l'impression qu'il ne comprend pas les constantes
xlPasteValues
et
xlNone.
Quelqu'un peut-il m'aider ?
Je n'ai même pas cette possibilité dans l'aide VBA à la rubrique "paste special". Tu as quelle version d'XL ? Daniel "Laurence" a écrit dans le message de news:
J'ai trouvé !!!!!!!!!!!
J'ai remplacé le Paste:=xlPasteValues par Paste:=xlValues et ça marche ! Le copier se fait bien en valeur, je ne vois pas à première vu de problème.
Quelqu'un peut-il m'explique la différence entre ces 2 syntaxes ?
Merci d'avance
dans ce cas il me plante un message sur le premier .Worksheets(num_feuille).activate
Message d'erreur : "Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé. On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Windows(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
J'ai essayé sur un autre poste et la macro fonctionne. Il doit y avoir un paramétrage ou une option qui est désactivée sur mon poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( . Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un bouton ? Daniel "Laurence" a écrit dans le message de news:
Voici le code : Windows(nom_fic1).Activate Worksheets(num_feuille).Activate
'copie en valeur Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste Les feuilles ne contiennent pas de cellules fusionnées. Si je le fais à la main ça marche, mais pas à l'exécution de ma macro.
Bonjour. Publie la partie de ton code qui contient le copier / coller. Cordialement. Daniel "Laurence" a écrit dans le message de news:
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur sur un autre classeur. Mon classeur 1 contient des formules et je voudrais coller sur mon classeur 2 le résultat de ces formules. Il me faut passer par VB et j'utilise : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse J'ai toujours le message "La méthode Paste Special de la classe Range a échoué"
J'ai l'impression qu'il ne comprend pas les constantes xlPasteValues et xlNone. Quelqu'un peut-il m'aider ?
Merci
Laurence
Merci !! ça marche
Peux-tu m'expliquer pourquoi cette syntaxe fonctionne contrairement à ma première (Selection.PasteSpecial Paste := xlPasteValues ...) ? et quelle est la différence entre xlPasteValues et xlValues ?
De ma faute. Teste :
With Workbooks(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Workbooks(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
dans ce cas il me plante un message sur le premier .Worksheets(num_feuille).activate
Message d'erreur : "Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé. On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Windows(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
J'ai essayé sur un autre poste et la macro fonctionne. Il doit y avoir un paramétrage ou une option qui est désactivée sur mon poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( . Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un bouton ? Daniel "Laurence" a écrit dans le message de news:
Voici le code : Windows(nom_fic1).Activate Worksheets(num_feuille).Activate
'copie en valeur Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste Les feuilles ne contiennent pas de cellules fusionnées. Si je le fais à la main ça marche, mais pas à l'exécution de ma macro.
Bonjour. Publie la partie de ton code qui contient le copier / coller. Cordialement. Daniel "Laurence" a écrit dans le message de news:
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur sur un autre classeur. Mon classeur 1 contient des formules et je voudrais coller sur mon classeur 2 le résultat de ces formules. Il me faut passer par VB et j'utilise : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse J'ai toujours le message "La méthode Paste Special de la classe Range a échoué"
J'ai l'impression qu'il ne comprend pas les constantes xlPasteValues et xlNone. Quelqu'un peut-il m'aider ?
Merci
Merci !! ça marche
Peux-tu m'expliquer pourquoi cette syntaxe fonctionne contrairement à ma
première (Selection.PasteSpecial Paste := xlPasteValues ...) ? et quelle est
la différence entre xlPasteValues et xlValues ?
De ma faute. Teste :
With Workbooks(nom_fic1)
.Activate
.Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy
End With
With Workbooks(nom_fic2)
.Activate
.Worksheets(num_feuille).Activate
'copie en valeur
.Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues
End With
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message de
news: BF080ABA-D854-4633-89C7-308CB84AB90F@microsoft.com...
dans ce cas il me plante un message sur le premier
.Worksheets(num_feuille).activate
Message d'erreur :
"Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé.
On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1)
.Activate
.Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy
End With
With Windows(nom_fic2)
.Activate
.Worksheets(num_feuille).Activate
'copie en valeur
.Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues
End With
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le message
de
news: B4A18E7F-9D0E-4BEB-A508-B3141BCD49A6@microsoft.com...
J'ai essayé sur un autre poste et la macro fonctionne.
Il doit y avoir un paramétrage ou une option qui est désactivée sur mon
poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( .
Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un
bouton
?
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le
message
de
news: 3E24A47F-5F8D-4115-9BFF-725F85A1B397@microsoft.com...
Voici le code :
Windows(nom_fic1).Activate
Worksheets(num_feuille).Activate
'copie en valeur
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste
Les feuilles ne contiennent pas de cellules fusionnées. Si je le
fais à
la
main ça marche, mais pas à l'exécution de ma macro.
Bonjour.
Publie la partie de ton code qui contient le copier / coller.
Cordialement.
Daniel
"Laurence" <Laurence@discussions.microsoft.com> a écrit dans le
message
de
news: E1341A79-7C2A-4184-8D46-584E16F16D42@microsoft.com...
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur
sur
un
autre classeur.
Mon classeur 1 contient des formules et je voudrais coller sur
mon
classeur
2 le résultat de ces formules.
Il me faut passer par VB et j'utilise :
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
J'ai toujours le message "La méthode Paste Special de la classe
Range a
échoué"
J'ai l'impression qu'il ne comprend pas les constantes
xlPasteValues
et
xlNone.
Quelqu'un peut-il m'aider ?
Peux-tu m'expliquer pourquoi cette syntaxe fonctionne contrairement à ma première (Selection.PasteSpecial Paste := xlPasteValues ...) ? et quelle est la différence entre xlPasteValues et xlValues ?
De ma faute. Teste :
With Workbooks(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Workbooks(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
dans ce cas il me plante un message sur le premier .Worksheets(num_feuille).activate
Message d'erreur : "Propriété ou méthode non gérée par cet objet."
C'est pas possible! il y a forcément un paramétrage qui n'est pas activé. On m'a changé mon poste la semaine dernière et j'ai bien tout vérifié.
Essaie avec le code suivant :
With Windows(nom_fic1) .Activate .Worksheets(num_feuille).Activate
.Sheets(num_feuille).Cells.Copy End With
With Windows(nom_fic2) .Activate .Worksheets(num_feuille).Activate
'copie en valeur .Sheets(num_feuille).Cells.PasteSpecial Paste:=xlPasteValues End With
Daniel "Laurence" a écrit dans le message de news:
J'ai essayé sur un autre poste et la macro fonctionne. Il doit y avoir un paramétrage ou une option qui est désactivée sur mon poste - et sur celui de mon chef, qui ne fonctionne pas non plus :-( . Je ne vois vraiment pas quoi
Il n'y a pas d'erreur dans ton code. La macro est-elle activée par un bouton ? Daniel "Laurence" a écrit dans le message de news:
Voici le code : Windows(nom_fic1).Activate Worksheets(num_feuille).Activate
'copie en valeur Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse
il plante sur le Selection.PasteSpecial Paste Les feuilles ne contiennent pas de cellules fusionnées. Si je le fais à la main ça marche, mais pas à l'exécution de ma macro.
Bonjour. Publie la partie de ton code qui contient le copier / coller. Cordialement. Daniel "Laurence" a écrit dans le message de news:
Bonjour
Je n'arrive pas à faire un coller spécial en valeur d'un classeur sur un autre classeur. Mon classeur 1 contient des formules et je voudrais coller sur mon classeur 2 le résultat de ces formules. Il me faut passer par VB et j'utilise : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :úlse, Transpose:úlse J'ai toujours le message "La méthode Paste Special de la classe Range a échoué"
J'ai l'impression qu'il ne comprend pas les constantes xlPasteValues et xlNone. Quelqu'un peut-il m'aider ?