VBA-E: Pb copier-coller entre Excel et .csv
Bonjour à tous,
je suis novice dans la programmation en VBA Excel.
voilà mon problème:
j'ai créé un document Excel, dans lequel l'utilisateur futur entrera des données dans un tableau.
il faut ensuite que je copie ces données et que je les colle dans un document .csv existant, que j'enregistre et que je referme le .csv.
j'ai ainsi créé une boucle qui parcourre le tableau, et pour chaque valeur non nulle du tableau (valeurs allant de 1 à une valeur x donnée), je copie cette valeur et je la colle dans mon document csv ligne par ligne.
pour la permire valeur, ça marche très bien, j'ai bien la valeur 1 qui apparait dans mon document csv, mais par la suite, ça beugue. il me semble que le soucis est dans l'activation du worksheet Excel dans lequel se trouve le tableau. j'ai bien essayé de faire workbooks("" ).worksheets("" ).activate, mais pas de résultats...
est ce que qqn pourrait m'aider svp?
je vous transmets le code que j'ai écris.
merci par avance pour vos réponses!
Code:
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
| Private Sub CommandButton9_Click()
Dim h As Integer
x = Val(TextBox1.Text)
Dim NombreCase As Integer
NombreCase = x + x - 1
i = 1
j = 1
h = 1
For j = 1 To NombreCase
For i = 1 To NombreCase
Worksheets("Maschinen" ).Activate
If Val(ActiveSheet.Cells(13 + j, 2 + i)) > 0 Then
If Val(ActiveSheet.Cells(13 + j, 2 + i)) <= x Then
MsgBox ("Maschinen " & h)
For h = 1 To x
If Val(ActiveSheet.Cells(13 + j, 2 + i)) = h Then
Workbooks.Open Filename:="C:\Documents and Settings\Propriétaire\Bureau\Classeur1.csv"
ActiveSheet.Cells(2 + h, 1) = h
End If
Next
End If
End If
Next
Next
End Sub |
