bonjour a tous.
j'utilise le programme suivant pour ecrire dans un fichier excel.

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
Public appexcel As Excel.Application
 
 
Private Sub Form()
 
Dim PathFileName As String, PathName As String, CurrFileName As String
 
'creation d'une instance Excel
Set appexcel = CreateObject("excel.application")
 
'chemin d'accés au fichier toto.xls
PathName = "chemin d'acce a mon fichier"
PathFileName = PathName & "toto.xls"
 
'ouverture du fichier toto
Open PathFileName For Append Access Read Write As #1
 
 
'ecriture des données dans le fichier toto
Print #1, Text4.Text & vbTab & Text1.Text & vbTab & Combo8.Text & vbTab & _
          Text2.Text & vbTab & Text3.Text & vbTab & Combo6.Text & vbTab & _
          Text5.Text & vbTab & Combo1.Text & vbTab & Combo2.Text & vbTab & _
          Combo7.Text & vbTab & Combo3.Text & vbTab & Text7.Text & vbTab & _
          Text8.Text & vbTab & Combo4.Text & vbTab & Text9.Text & vbTab & _
          Text10.Text & vbTab & Text12.Text & vbTab & Text13.Text & vbTab & _
          Text11.Text & vbTab & Combo5.Text & vbTab & Text14.Text & vbTab & _
          Text15.Text & vbTab & Text16.Text & vbTab & Text17.Text & vbTab & _
          Text18.Text & vbTab & Text19.Text
 
Close #1
appexcel.Quit
End Sub
le probleme avec ce code c que lorsque j'ecrit dans un fichier que je viens de creer je n'ai pas de souci j'arrive bien a ecrire ligne par ligne. mais si je l'utilise pour ecrire dans un fichier excel deja existantt je n'y arrive pas je n'ai aucune ecriture de ligne.
je precise que ce fichier excel a des filtre et un figeage de volet mais je ne comprend pas pourquoi cela pose probleme.

merci bcp pour votre aide.