Discussion :

[sossso112333]

Bonjour,
En fait , je suis un peu débutant en VBA et j'ai besoin de votre aide . Dans un classeur1 , j'ai créer une useform à la quelle je donne une date , une maturité et un taux1 , lorsque j'execute , elle me cherche un taux2 et taux3 qui correspond à ce taux 1 à partir d'un tableau . Mon problème c'est que je veux que ces informations : le taux2, taux3, taux 1 , date, maturité soient copié dans un autre classeur2 dans un tableau dans la feuille "marketing " dans les colonnes H , G , F ,C ,A .Qui ce qui manque pour que les informations peuvent être copiés ? concentrez vous sur la fin du code . ci dessous mon code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub CommandButton1_Click() 
Dim d As Date 
Dim s As String 
s = ComboBox1.Text 
Select Case s 
Case Is = "52s" 
Worksheets("52 W").Activate 
Case Is = "2A" 
Worksheets("2 ans").Activate 
Case Is = "5A" 
Worksheets("5 ans").Activate 
Case Is = "10A" 
Worksheets("10 ans").Activate 
Case Is = "15A" 
Worksheets("15 ans").Activate 
Case Is = "20A" 
Worksheets("20 ans").Activate 
Case Is = "30A" 
Worksheets("30 ans").Activate 
End Select 
d = TextBox2.Text 
Range("b1").Value = d 
Dim l As Integer 
l = Range(Range("a14"), Range("a14").End(xlDown)).Count 
Dim aa As Double 
Dim bb As Double 
Dim a As Integer 
Dim b As Integer 
Dim cost As Boolean 
cost = False 
Dim r As String 
Dim i As Integer 
For i = 1 To l 
If Range("a" & 13 + i).Value = r Then 
aa = Range("c" & 13 + i).Value 
bb = Range("d" & 13 + i).Value 
cost = True 
i = l + 1 
End If 
Next 
If cost = False Then 
MsgBox ("Verifier le taux1") 
Else 
Dim appExcel As Excel.Application 'Application Excel 
Dim wbExcel As Excel.Workbook 'Classeur Excel 
Dim wsExcel As Excel.Worksheet 'Feuille Excel 
'Ouverture de l'application 
Set appExcel = CreateObject("Excel.Application") 
'Ouverture d'un fichier Excel 
Set wbExcel= 
appExcel.Workbooks.Open("C:\Users\sossso\Desktop\\classeur2.xls") 
'wsExcel correspond à la première feuille du fichier 
Set wsExcel = wbExcel.Worksheets("marketing") 
Dim lo As Integer 
lo = wsExcel.Range(wsExcel.Range("b6"), wsExcel.Range("b6").End(xlDown)).Count 
lo = lo + 6 
wsExcel.Range("a" & lo).Value = d 
wsExcel.Range("c" & lo).Value = ComboBox1.Text 
wsExcel.Range("h" & lo).Value = TextBox3.Text 
wsExcel.Range("f" & lo).Value = aa 
wsExcel.Range("g" & lo).Value = bb

[Daniel.C]

Bonjour,

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Users\sossso\Desktop\\classeur2.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets("marketing")
Dim lo As Integer
lo = wsExcel.Range(wsExcel.Range("b6"), wsExcel.Range("b6").End(xlDown)).Count
lo = lo + 6
wsExcel.Range("a" & lo).Value = d
wsExcel.Range("c" & lo).Value = ComboBox1.Text
wsExcel.Range("h" & lo).Value = TextBox3.Text
wsExcel.Range("f" & lo).Value = aa
wsExcel.Range("g" & lo).Value = bb

[sossso112333]

Bonjour ,

Merci pour votre proposition Daniel . Excusez moi mais je vois pas la différence entre ce que j'ai proposé et le votre , c'est le même code non ? . En fait ,j'ai essayé ça mais c'est la même chose , le problème c'est qu'il manque quelque chose à la fin du code . J'ai essayer de mettre à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbExcel.Close

, cela marche mais lorsque le classeur2 est ouvert il me demande à chaque fois d' enregistrer le classeur 2 avec un autre nom . Moi je veux que ces données soient copiés directement dans les places que j'ai mentionné dans la feuille "marketing" classeur2 à chaque fois que j'utilise ma Useform. Qu'est ce que vous me proposez ? et merci

[Daniel.C]

J'ai remplacé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set wbExcel= 
appExcel.Workbooks.Open("C:\Users\sossso\Desktop\\classeur2.xls")

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wbExcel = appExcel.Workbooks.Open("C:\Users\sossso\Desktop\\classeur2.xls")

Pour le message à la fermeture, essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbExcel.Close False

[sossso112333]

Malheureusement Daniel .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 wbExcel.Close False

n'a pas marché . les données ne s'enregistre pas dans le fichier classeur 2 . Avez vous une autre idée SVp

[Daniel.C]

Pardon, j'avais compris que tu ne voulais [B]pas[B] les enregistrer.

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbExcel.Close True

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbExcel.Close SaveChanges:=True