Discussion :

[Christophe93250]

salut
voila en me basant sur le tutoriel de caféine et d'autres j'ai créé ce code, c'est mon premier coup, bien sur ce n'est pas sans dire que je n'y comprends quasiment rien pour les fonctions spécifiques ...
j'essaye d'exporter une requête "Suivi-donnees-Bigenet" vers la feuille "Suivi-donnees-Bigenet" d'un fichier Suivi-donnees-Bigenet déja éxistant, je ne peux créer un nouveau fichier comme marqué dans les tutoriaux, car sur ma 2eme feuille il y a un TCD...

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
Private Sub Créer_fichier_de_suivi_Click()
On Error GoTo Err_Créer_fichier_de_suivi_Click
 
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim I As Long, J As Long
    Dim t0 As Long, t1 As Long
 
    t0 = Timer
    Dim rec As Recordset
 
    Set rec = CurrentDb.OpenRecordset("Suivi-donnees-Bigenet", DbOpenSnapshot)
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\commun\Donnees_Bigenet_a_partir_de_2005\Fichier suivi données\vierge\Suivi-donnees-Bigenet.xls")
 
    xlApp.Visible = True
 
    Set xlSheet = xlBook.Worksheets("Suivi-donnees-Bigenet").Select
    I = 2
    Do While Not rec.EOF
    For J = 0 To rec.Fields.Count - 1
    If rec.Fields(J).Type = dbText Then
        xlshet.Cells(I, J + 1) = "'" & rec.Fields(J)
    End If
    Next J
    I = I + 1
    rec.MoveNext
    Loop
 
    xlBook.SaveAs ("C:\commun\Donnees_Bigenet_a_partir_de_2005\Fichier suivi données\tempor\Suivi-donnees-Bigenet.xls")
    xlApp.Quit
    rec.Close
    Set rec = Nothing
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
 
Exit_Créer_fichier_de_suivi_Click:
    Exit Sub
 
Err_Créer_fichier_de_suivi_Click:
    MsgBox Err.Description
    Resume Exit_Créer_fichier_de_suivi_Click
End Sub

qqun pourrait me dire ou sont mes erreurs sil vous plait ? et ce que je peux modifier (bien sur l'action comme vous pouvez le voir est déclenchée par un bouton dans un formulaire)
merci d'avance

modération : cafeine, merci d'utiliser les balises code et non quote.

[Muhad'hib]

Salut,

Peux tu nous dire quelles sont les erreurs que tu as et sur quelle lignes ?

Tu peux aussi regarder là , j'ai mis une fonction qui gére ce genre de besoin (fin de page 5).

A+

[Christophe93250]

au débugage il ne me marque rien de particulier mais lorsque je clic sur le bouton dans le formulaire il me sort : argument non valide

[cafeine]

Hello,

un bug parmi d'autres ..;

Code :

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

1
2
3
4
5
6
    Set xlSheet = xlBook.Worksheets("Suivi-donnees-Bigenet").Select
    I = 2
    Do While Not rec.EOF
    For J = 0 To rec.Fields.Count - 1
    If rec.Fields(J).Type = dbText Then
        xlshet.Cells(I, J + 1) = "'" & rec.Fields(J)

1- un coup c'est xlSheet, et un autre c'est xlShet ... à corriger

2- dans ton code tu n'exporte que les champs de type Text est-ce délibéré ?

[Christophe93250]

salut
a vi pas vu l'erreur merci
pour le texte je sais pas trop vu que je comprennais pas tout malgré le fait que je sache que j'importais que du texte j'ai déja recopié betement ta formule déja pour voir si ca marchais