Problème de copie de cellule

benoa · 12 Juillet 2013

Bonjour,

Dans le classeur "MonClasseur1.xls", dans la feuille "feuil1", j'ai la cellule (lig1,col1) qui contient la formule : SOMME(A1, A2)
Je souhaiterais copier la valeur de cette cellule dans le classeur "MonClasseur2.xls", dans la "feuil2", en cellule(lig2, col2)

Mon code actuel copie la Cellule entière (la formule + la mise en forme) alors que je voudrais copier uniquement la valeur contenu dans cette cellule.

Voici mon code :

Workbooks("MonClasseur1.xls").Sheets("feuil1").Cells(lig1, col1).Copy _
Destination:=Workbooks("MonClasseur2.xls").Sheets("feuil2").Cells(lig2, col2)

Que dois-je changer pour effectuer seulement la copie de la valeur ?
Merci à tous pour vos suggestions.

Pierrot93 · 12 Juillet 2013

Re : Problème de copie de cellule

Bonjour,

essaye ceci :

Code:

Workbooks("MonClasseur2.xls").Sheets( "feuil2").Cells(lig2, col2) = Workbooks("MonClasseur1.xls").Sheets("feuil1").Cel ls(lig1, col1)

bonne journée
@+

benoa · 12 Juillet 2013

Re : Problème de copie de cellule

Après ce changement, j'ai une erreur '438' : Propriété ou méthode non géré par cette objet.

Cordialement

Pierrot93 · 12 Juillet 2013

Re : Problème de copie de cellule

Re,

les 2 classeurs doivent être ouverts... vérifie bien que toutes tes variables soient initialisées... A noter une espace en trop dans "Cel ls(lig1, col1)"....

Staple1600 · 12 Juillet 2013

Re : Problème de copie de cellule

Re, bonjour aux autres lecteurs

Une autre écriture possible
(macro dans le classeur 2)

Code:

Sub a()
Dim wbkSource As Workbook
Set wbkSource = Workbooks("Classeur1")
[A1] = Application.Sum(wbkSource.Sheets(1).Range("A1:A2"))
End Sub

benoa · 12 Juillet 2013

Re : Problème de copie de cellule

C'est bon merci pour ton aide, j'avais zappé une exception.

Problème de copie de cellule

benoa

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

benoa

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

benoa

XLDnaute Junior

Discussions similaires