la copie ne se fait pas malgré bon positionnement sur la cellule Résolu/Fermé

Question

Bonjour, 
C'est surement rien, mais je n'y arrive pas.
Dans une feuille je copie les cellules C1 et C2 que je veux copier dans une autre feuille dans les cellules situées en dessous d'une cellule sélectionnée d'après une date. j'arrive bien sur la cellule mais la copie ne s"effectue pas.

Range("C1:C2").Select
    selection.Copy
   Workbooks.Open ("D:\ESSAI\comptage TBORD.xlsx")
   Dim Celtbord As Range
   Set Celtbord = Cells.Find(what:=Date, after:=ActiveCell).Offset(1, 0).Select
    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Merci d'avance si quelqu'un peu me donner un peu d'aide.

Theo.R · Answer

Bonjour,

Pour un copier-coller, vous ne pouvez pas faire en vba "Cells(...).Paste", il faut passer par ActiveSheet :
Cells(...).SelectActiveSheet.Paste

Cdt,

Dom.are · Answer

Bonjour,

Merci beaucoup pour votre réponse. J'essaie tout de suite.

Cordialement.

eriiic · Answer

Bonjour,

Set Celtbord = Cells.Find(what:=Date, after:=ActiveCell).Offset(1, 0).Select  
Dangereux !
1) à l'ouverture tu ne sais pas quelle feuille sera active, ni quelle cellule.
Il faut désigner la feuille à utiliser et la plage de recherche sur celle-ci.
2) tu ne testes pas le résultat du .find. Si non trouvé =Nothing et tu plantes...

eric

Dom.are · Answer

Bonjour,

Merci pour cette info supplémentaire je ne manquerai pas de m'en rappeler.

La copie ne se fait pas malgré bon positionnement sur la cellule

4 réponses

Discussions similaires