Comme écrire une donnée dans un autre fichier en VBA ?

Boujour à tous !!!!!

Un coup de main s’il vous plait !

Dans un FICHIER1, j’ai du code qui a pour tâche de saisir une donnée au clavier et ajouter celle-ci à la première ligne vide de la feuille.

J’aimerais savoir comment faire pour que cette SUB ajoute aussi la données dans un fichier MENU, sous l’onglet « Buffer » et ce à la première ligne vide aussi?

NOTE: Les deux fichiers sont déja ouvert.

Voici le code en question :

Sub Ajouter() ' Ajoute un item au bout de la liste et la date à droite.

' Le Private est enlevé p.c.q. cette SUB est appelée

' par le UserForm1.

Dim Item As String

Dim Colonne As Integer

Item = "Dummy"

Do While Item <> "" ' Tant que l'Item n'est pas vide

Item = InputBox("Entrer l'item à ajouter S.V.P....")

Colonne = 1

If Cells(3, Colonne) = "" Then ' La cellule 3 ou + est vide

Cells(3, Colonne).Select

Else

Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0).Select ' Cellule pas vide

End If

ActiveCell = Item

If Item <> "" Then ' Si on clic sur Annuler ou Fermer ou [Entrer]

ActiveCell.Offset(0, 1) = Date ' Ajout de la date

Item = "Dummy"

End If

Loop

End Sub

Merci pour votre coup de main !!!!!

Salut,

Après

ActiveCell = Item

tu ajoutes

    With Application.Workbooks("Menu.xls").Sheets("Buffer")
        .Range("A" & .Range("A65536").End(xlUp).Row + 1) = Item
    End With

Cordialement.

Salut Youville,

Merci beaucoup, ton code fonctionne très bien.

[u][b]Youpi !

MERCI !!!!![/b][/u]