copier / coller valeur cellule

Question

Bonjour à toutes et tous,

En access 2002, catégorie débutant,....
Depuis access, je souhaite modifier un fichier excell avant de l'importer mais je ne sais pas comment écrire le code.
Je veux copier la cellule A:12 de ma feuille "front page" pour la coller ensuite dans la cellule A:2 de ma feuille target.
Un aimable contributeur pourrait-il m'aider pour le code ?
Merci d'avance
JL
***********************************************

 objExcel.ActiveWorkbook.Sheets("Front Page").Select
    objExcel.ActiveWorkbook.Worksheets("Front page").Cell("A:12").Copy
    
    'Insert la selection coupée a partir de la ligne 2
        objExcel.ActiveWorkbook.Sheets("target").Select
    objExcel.ActiveWorkbook.Worksheets("target").Cell("A:2").Insert Shift:=xlDow

cs_casy · Answer

Essaye avec ça pour voir

objExcel.ActiveWorkbook.Sheets("Front Page").Select
objExcel.ActiveWorkbook.Worksheets("Front page").Range("A12").Select
objExcel.ActiveWorkbook.Worksheets("Front page").Selection.Copy

'Insert la selection coupée a partir de la ligne 2
objExcel.ActiveWorkbook.Sheets("target").Select
objExcel.ActiveWorkbook.Worksheets("target").Range("A2").Select
objExcel.ActiveWorkbook.Worksheets("target").Selection.Insert Shift:=xlDown

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_MPi · Answer

Si tu veux insérer une cellule dans la colonne A sans insérer de ligne complète

A2.select

Insert

Le reste des colonnes n'aura pas bougé


Si tu veux qu'un ligne complète soit insérée

Rows(2).select

Insert

MPi

jeanluc065 · Answer

Bonjour, 

Merci pour la réponse mais çà ne marche pas.
J'obtiens un message d'erreur " propriété ou méthode non gérée par cet objet" 
et le ligne suivnate apparaît en surbrillance.
JL

objExcel.ActiveWorkbook.Worksheets("Front Page").Selection.Copy

jeanluc065 · Answer

Re,

Voilà, j'ai trouvé.
Merci
JL

 objExcel.ActiveWorkbook.Sheets("Front Page").Select
objExcel.ActiveWorkbook.Worksheets("Front Page").Range("A12").Copy



'Insert la selection coupée a partir de la ligne 2
objExcel.ActiveWorkbook.Sheets("target").Select
objExcel.ActiveWorkbook.Worksheets("target").Range("A2").Select
objExcel.ActiveWorkbook.Worksheets("target").Paste

cs_casy · Answer

Dsl, j'avais fait l'essais sous Excel, donc sans objExcel...

Donc à remplacer par objExcel.Selection.Copy
 et Idem pour Selection.Insert

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Copier / coller valeur cellule

5 réponses

Votre réponse

Discussions similaires