Discussion :

[touche_a_tout]

Bonjour,
J'ai une moulinette qui sélectionne dans un classeur (utilisé comme DB) un enregistrement dont un certain champ est vide et va le copier dans un autre classeur en y sélectionnant une ligne vide. Ca marche un coup mais au deuxième j'ai un "la méthode paste a échoué". Je n'arrive pas à comprendre pourquoi. J'ai voulu aller voir ce qui se passe dans le presse-papier Windows mais ce n'est pas un objet de VBA, à ce que je crois. Je suis un débutant retraité autodidacte curieux et je m'attaque peut-être à un pb trop gros pour moi, mais j'aimerais bien y arriver
Si quelqu'un a une idée... ?
Merci de m'avoir lu.
Pierre

[SfJ5Rpw8]

ben difficile de t'aider sans voir le code...

[Invité]

Pierruel

La methode "paste" s'applique à l'objet "Sheet", il faut donc faire en général

Code :

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

1
2
3
 
Sheet("NomFeuille").Cells(NumLigne,NumColonne).select
Activesheet.Paste

J'espère répondre à ton problème

[ouskel'n'or]

Tu dois séparément activer ou sélectionner le classeur où tu colles, puis la feuille puis la plage ou la première cellule de la plage dans laquelle tu vas coller les cellules copiées

Code :

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

1
2
3
4
5
6
Workbooks("Classeur1").Activate
Worksheets("Feuil1").Range("A1:D4").Copy
Workbooks("Classeur2").Activate
Worksheets("Feuil1").Select 'facultatif si Classeur2 est ouvert sur la bonne feuille de calculs.
Range("D1").Select
ActiveCell.PasteSpecial

A+

[touche_a_tout]

Bonjour,
Je patauge !
Je voulais répondre à bbil sur le forum, j'ai loupé le bouton ! Donc je lui disais que je n'ai pas le code sur ce PC, je le posterai demain. En attendant, merci et merci aussi à Ousk'el'nor (pardon pour l'orthographe ?) et à BrunoM45. J'ai bien la ligne
Activesheet.Paste. Donc ça, ça joue.
Ensuite, comme la moulinette doit servir sur divers classeurs avec des enregistrements comportant un nombre de colonnes différent, j'ai utilisé
Entirerow.Select
dans le classeur source *et* dans le classeur cible.
Est-ce que dans la cible je devrais sélectionner seulement la première cellule de la ligne cible ? Et remplacer Paste par PasteSpecial (je n'ai pas la différence en tête) ?
Quant au fait que ça marche un coup mais pas les suivants, vous avez une idée ?
Merci encore de vous être penchés sur mon pb.
Cordialement
Pierre

[SfJ5Rpw8]

Bonjour,
Je patauge !...

oui j'ai vu j'ai reçu ta réponse par MP ( en double d'ailleurs..)

Bien d'accord avec toi. J'ai pas le code sur ce poste, mais je repasse demain.
Merci d'avoir réagi.
+
Pierre

mais je vois que tu as trouvé le bouton

[Lexot2]

Bonjour

La méthode "Paste" peut échouer pour plusieurs raisons. Une des raisons possibles pourrait-être celle-là :
Si en C1 se trouve une formule du genre

Code :

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

= A1 + B1

et qu'on colle cette formule en B1 sur une autre feuille, la formule relative devient

Code :

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

= ? + A1

Puisqu'il n'existe pas de colonne avant "A" une erreur se produit

On peut faire un PasteSpecial, ou collage spécial en collant seulement les valeurs. Dans ce cas, pas d'erreur possible.

Cordialement