textbox

[fred94]

Bonjour à tous et toi le forum,

petit probleme de syntaxe.

J'ai un classeur intitulé DEMARRAGE
ou apparait un Userform2 avec 2 textbox
je voudrais que c'est 2 textbox, copient les deux valeurs entrées dans un autre classeur intitulé Rapport Accident.
le textbox1 dans la feuille BD1 range A1
le textbox2 dans la feuille BD2 range A1

sachant que tout mes classeurs sont installés dans c:\\Program Files\\Rapports d'Accidents.
Car j'ai crée une install.

Merci à tous dans l'attente d'une réponse.

 

[fred94]

j'ai reussi a les copier dans le classeur ou se trouve les textbox.
cela donne ça pour celui qui veut.

Private sub commandButton_click()
sheets('BD1').activate
[A1]=userform1.Textbox1
sheets('BD2').activate
[A1]=userform1.Textbox2
unload me
end sub

 

[Temjeh]

Bonjour à tous

Au début:

Workbooks.Open Filename:='C:/Program Files/Rapports d'Accidents/Rapport Accident.xls'
Windows('Rapport Accident.xls').Activate
sheets('BD1').Range('A1')= TextBox1
sheets('BD2').Range('A1')= TextBox2

Temjeh

Message édité par: Temjeh, à: 08/05/2006 12:41

 

[fred94]

Merci a toi Temjeh
Je vais l'essayer dans l'instant et te tiens au courant.
merci encore