bonjour a tous.
j'utilise le programme suivant pour ecrire dans un fichier excel.
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.
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
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.
Partager