Bonjour à tous

après avoir recherché sans succès dans les forums, je finis par vous poser ma question.
Voila, j'ai une feuille excel, que je nommerais "A" pour plus de compréhension , dont je me sers pour remplir les textbox d'un formulaire, ceci afin de pouvoir faire des modifications sur ces données.
Après avoir effectué mes modifs, je les recopie dans la même feuille "A" à un autre endroit. Jusque là pas de pb!
Puis je demande au code de m'ouvrir une autre feuille excel ,que je nomme "B", qui se trouve dans un autre classeur. Dans cette feuille "B", je demande au code de me trouver une cellule contenant un nom qui a été choisi dans une textbox de mon formulaire. Et je voudrai commencer à recopier les données des textbox de mon formulaire, 2 lignes plus bas que la cellule qui contient le nom qui a été choisi.
Le classeur s'ouvre à la feuille choisie "B". Mais quand je demande au code de m'écrire "oui" dans la cellule où doit commencer la recopie, afin de tester si je suis bien positionnée, , il m' l'écrit dans la cellule située 2 lignes plus bas MAIS dans la feuille de départ "A".

Voici la partie du code concerné :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Déclaration des variables pour ouvrir Excel
'Application Excel
Dim appexcel As New Excel.Application
'Classeur Excel
Dim wbExcel As Excel.Workbook
'Feuille Excel
Dim wsExcel As Excel.Worksheet
'Ouverture de l'application
'Ouverture du fichier Excel feuilles d'horaire des ams
Set wbExcel = appexcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\VBA\TEST1.xls")
appexcel.Visible = True
'choisir la feuille de l'am
Dim sam As String
sam = am
wbExcel.Sheets(sam).Activate
'Recherche du nom de l'enfant
Dim enfant As String
Dim cible As Range
enfant = TextBox80
Set cible = ActiveSheet.Cells.Find(enfant, LookIn:=xlValues)
ActiveCell.Offset(rowOffset:=2, ColumnOffset:=0).Activate
ActiveCell = "oui"
Merci pour votre aide
Titemireille