Discussion :

[Zak Blayde]

Je ne saisis pas pourquoi j'ai cette erreur avec le code suivant :
http://www.developpez.net/forums/att...1&d=1215073193

[J.Michel]

Es tu sûr du nom de ta feuille ?

[Zak Blayde]

sûr et certain !

[J.Michel]

Essayes ca juste pour voir:
Active le Workbook puis Active la feuille puis tente le paste
Ca permettra de mieux voir ce qui déclenche l'erreur

[Zak Blayde]

L'erreur serait sur le paste.
Je vois mal en quoi un pauvre

Range("R5").Paste

ne fonctionne pas -_-

Le fait est qu'on colle une grande plage de cellules, l'erreur vient peut-être de là...

edit : J'ai tenté en donnant les coordonnées exactes de la plage sur laquelle copier, mais le résultat est le même. Quelques fois, j'ai l'erreur, mais ça se colle quand même, mais pas sur R5, sur R1...

[fring]

Bonjour,

Essaye ceci :

Code :

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

1
2
3
4
5
6
Dim ShSource As Worksheet, ShCible As Worksheet
 
Set ShSource = Workbooks("Ajout de projet.xls").Sheets("Feuil1")
Set ShCible = Workbooks("heures_cbellanger.xls").Sheets("BELLANGER")
 
ShSource.Range("P5:P317").Copy ShCible.Range("R5")

[ilcocodrillo]

Ton erreur de départ vient du fait que tu ne peux pas faire un Pase dans une feuile qui n'est pas la feuille active. Cequi est ton cas puique tu active une autre feuille à ligne précedente de ton Paste.

Je sais c'est débile !Je me suis fais avoir aussi et j'ai cherché un bon moment avant de comprendre ça, car ça n'est marqué nul part...

ceci dit -> la solution du chef sioux local, ça me parait interresante !

[Zak Blayde]

ilcocodrillo : Raaah c'était donc ça

fring : Ta solution est efficace et compacte, j'adopte !
Merci.

[FannyNg]

Bonjour,

J'ai eu le même problème mais même en activant les 2 sheets avant de faire le copy paste, ça ne marche pas. J'espère que vous pouvez m'aider svp.
Dans le workbooks getprice, sheet Starches, j'ai 2 colonnes, la première contient les numéros de semaines (de 1 à 52), la deuxième colonne sera rempli par les valeurs venant de cells (10,6) dans workbook "Pricing list" à chaque semaine. Je voudrais qu'Excel détecte la semaine actuelle dans colonne 1 et rempli la valeur dans colonne 2 sur la même ligne. Pourtant le pauvre "paste" n'est pas géré. Quelqu'un puis me donner un conseil svp?

Public Sub GetPrice()

Workbooks("PRICING LIST.xlsx").Activate
Workbooks("PRICING LIST.xlsx").Sheets("Starches").Cells(10, 6).Copy
Workbooks("getprice.xlsm").Activate
Workbooks("getprice.xlsm").Sheets("Starches").Cells(Application.Match(Application.IsoWeekNum(Date), Columns(1)), 2).Paste

End Sub

[FannyNg]

J'ai essayé d'utiliser la méthode de Fringe et cela donne l'erreur "incompatibilité de type"

Public Sub GetPrice()

Dim ShSource As Range, ShCible As Range

Set ShSource = Workbooks("PRICING LIST.xlsx").Sheets("Starches").Cells(10, 6)
Set ShCible = Workbooks("getprice.xlsm").Sheets("Starches").Cells(Application.Match(Application.IsoWeekNum(Date), Columns(1)), 2)

ShSource.Copy ShCible

End Sub

[deedolith]

@FannyNg:
Normal,

Ta recherche peut être infructueuse, il convient de tester si l'instance retournée est valide (ne vaut pas Nothing).

@Zak Blayde:
Ton erreur est que tu fais 100% confiance au contexte (le truc "actif"= qui bien sûre ne se comporte pas comme tu l'esperes.
Utilises des références et ça ira mieux.

Note:
Un code VBA bien foutu n'a nullement besoin d'activer quoi que ce soit (ça nuit aux performances, transforme ton classeur en sapin de noël très moche).