Insérer des données dans un autre classeur

[tiboo]

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 :

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]

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 :

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

 

[stefan373]

Bonjour tiboo, bond et le forum.

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

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]

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 !