Insérer des données dans un autre classeur

tiboo · 19 Juillet 2011

Bonjour à tous,

Je souhaite ajouter la valeur "test" dans la cellule A1 dans la feuille "FeuilDest" du classeur "destination.xls".
Avec le code ci-dessous, la valeur "test" s'insère dans la cellule A1 du classeur dans lequel se trouve mon code.

Mon code :

VB:

Dim dest As String
dest = "C:\Documents and Settings\tiboo\Desktop\destination.xls"

Workbooks.Open (dest)
Sheets("FeuilDest").Select
Range("A1").Value = "test"

Que dois-je modifier ?

Merci d'avance pour votre aide.

tiboo

bond · 19 Juillet 2011

Re : Insérer des données dans un autre classeur

Que dois-je modifier ?

rien !

Chez moi ce code fonctionne bien.
Pose des points d'arrêt pour voir si chacune des lignes suivantes réagies correctement :

Code:

Workbooks.Open (dest)
Sheets("FeuilDest").Select
Range("A1").Value = "test"

stefan373 · 19 Juillet 2011

Bonjour tiboo, bond et le forum.

Voir si cela vous convient.
Il faut activer le feuil du classeur destination.

Code:

Private Sub CommandButton1_Click()
Dim dest As String
dest = "c:\Documents and Settings\tiboo\Desktop\destination.xls"
Workbooks.Open (dest)
With Workbooks("destination.xls").Worksheets("FeuilDest")
        .Activate
        ActiveSheet.Range("A1").Value = "test"

    End With
End Sub

A +

tiboo · 19 Juillet 2011

Re : Insérer des données dans un autre classeur

Bonjour bond et stefan373,

Merci pour votre aide.
Effectivement, je devais activer le feuil.

Merci !

Insérer des données dans un autre classeur

tiboo

XLDnaute Nouveau

bond

XLDnaute Occasionnel

stefan373

XLDnaute Occasionnel

tiboo

XLDnaute Nouveau

Discussions similaires