Création de lien texte entre fichier par cochage.

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #16

Merci!

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 24 Août 2005

• #17

c bon ca marche ?

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #18

Oui ça marche, j'ai vais une procedure pour chaque TextBox:

Private Sub TextBox2_Change()
If TextBox2.Value = 'Prénom:' Then
TextBox2 = ''
End If
End Sub

Private Sub TextBox3_Change()
If TextBox3.Value = 'Ville:' Then
TextBox3 = ''
End If
End Sub

Private Sub TextBox4_Change()
If TextBox4.Value = 'Age:' Then
TextBox4 = ''
End If
End Sub

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #19

🙂

'Vers classeur 3 (Prénom et ville)
Workbooks.Open ('C:\\Program Files\\classeurs\\3.xls')
With Sheets('feuil1')
l = Sheets('feuil1').Range('A65536').End(xlUp).Row + 1
Cells(l, 1) = TextBox2.Value
Cells(l, 2) = TextBox3.Value
End With
ActiveWorkbook.Save
ActiveWorkbook.Close


Je voudrai savoir à quoi sert cette ligne:

Cells(ListBox1.ListIndex + 2, 5) = '1'

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 24 Août 2005

• #20

en faites si la valeur est =1 ca veut dire que les infos sur la personne ont ete envoyé vers les autres classeurs et c'est comme ca que le label t'indique si transférer ou non , sinon la valeur est = a 0 c'est pour ca que sur chaque ligne des noms dans le classeur 1 tu as '1' ou '0' sur la 5 eme colonne

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #21

Ok, si je veux rajouter un fichier de destination, je ne suis pas obligé d'écrire à chaque fois cette ligne.
J'ai juste à marquer ceci alors:

'Vers classeur 2 (Nom et age)
Workbooks.Open ('C:\\Program Files\\classeurs\\2.xls')


With Sheets('feuil1')
l = Sheets('feuil1').Range('A65536').End(xlUp).Row + 1
Cells(l, 1) = ListBox1.Value
Cells(l, 2) = TextBox4.Value
End With
ActiveWorkbook.Save
ActiveWorkbook.Close

'Vers présence sport
Workbooks.Open ('C:\\Program Files\\Classeurs\\3.xls')
With Sheets('feuil1')
l = Sheets('feuil1').Range('A65536').End(xlUp).Row + 1
Cells(l, 2) = ListBox1.Value
Cells(l, 3) = TextBox2.Value
End With
ActiveWorkbook.Save
ActiveWorkbook.Close

'Vers classeur 3 (Prénom et ville)
Workbooks.Open ('C:\\Program Files\\classeurs\\4.xls')
With Sheets('feuil1')
l = Sheets('feuil1').Range('A65536').End(xlUp).Row + 1
Cells(l, 1) = TextBox2.Value
Cells(l, 2) = TextBox3.Value
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Cells(ListBox1.ListIndex + 2, 5) = '1'

Message édité par: Nagrom, à: 24/08/2005 15:31

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 24 Août 2005

• #22

oui
par contre dans ce code oublie pas le slash\\ :
Workbooks.Open ('C:\\Program Filesclasseurs2.xls')

et pense aussi a faire la modife dans le bouton pour supprimer du transfert mais en faite je pense que c dans le forum qu'il ne se voit pas 🙂

Message édité par: tontoncarton, à: 24/08/2005 15:36

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #23

Encore une petite mission: 🙂

Quand on transfert les données dans les classeurs, serait-il possible que les cellules où figurent les informations soient encadrées par un trait fin.

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 24 Août 2005

• #24

de cette facon la ligne qui a ete transferer sera en rouge , tu peux changer la couleur (c le &hfff).Ensuite pense a faire la meme chose si tu enleves des autres classeurs pour la refaire passer en blanc

Range('a' & ListBox1.ListIndex + 2 & ': E' & ListBox1.ListIndex + 2).Interior.Color = &HFFF

voilou .ton patron va m'embaucher je crois lol

ps : si tu veux faire des bordures a la place :

Range('a' & ListBox1.ListIndex + 2 & ': E' & ListBox1.ListIndex + 2).Borders.Color = &HFFF
@ +

Message édité par: tontoncarton, à: 24/08/2005 16:22

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #25

Merci!

ton patron va m'embaucher je crois lol

Cliquez pour agrandir...

Dans ce cas, tu seras Sapeur Pompier!! 😉

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 24 Août 2005

• #26

oué bah non merci , les fumiers ils m'ont pété un retro hier dans ma rue parce que ce cher pompier en avait un coup dans le nez au volant de la grande echelle ! lol

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #27

T'inquiète, cela n'arrive pas dans ma caserne!

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 25 Août 2005

• #28

Salut,

J'ai tenté de de mettre en place l'userform de transfert sur d'autres fichiers, mais les transferts ne fonctionnent pas.
Est-ce que tu pourrais jetter un coup d'oeil dans mon code et me dire ce qui va pas?

Merci d'avance.

P.S.: Il faut mettre le fichier JSP dans c:\\Program Files\\classeurs

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 25 Août 2005

• #29

salut nagrom , oui envoie

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 25 Août 2005

• #30

Merci, désolé, j'ai oublié de mettre le fichier avec.

Edit: ça passe pas, je te le met sur un serveur et je te fille le lien.

Message édité par: Nagrom, à: 25/08/2005 15:33

 

Vote positif 0 Vote négatif