Discussion :

[eddyG]

Bonjour,


J'ai fait un export à partir d'un bouton pour exporter ma requete.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande0_Click()
 
DoCmd.TransferSpreadsheet acExport, _
                    acSpreadsheetTypeExcel9, _
                    "SYNTHESE_PORT_NAT_HORS_INTRA", _
                    "Clients.xls", _
                    True
 
End Sub

Mon seul problème est que mon export ce fait dans un nouveau fichier.

Alors que moi, je voudrais qu'il se fasse dans mon fichier "Clients" et dans son onglet "Données" .


Comment je peux faire???

[ft035580]

Salut,

As tu consulté la FAQ ?

[helas]

Pour ecrire dans une feuille Excel, appeler la routine suivante en passant en paramètres le nom de la requete, le nom du fichier et l'onglet concerné

Code :

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

1
2
 
Call Exportation("SYNTHESE_PORT_NAT_HORS_INTRA","c:\Clients.xls","Données")

Le 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
Sub Exportation(requete As String, fichier As String, onglet As String)

 Dim xlA As Object, xlW As Object, t As DAO.Recordset
 Dim s As String, NumChamp As Long, ligne As Long
 
 Set xlA = CreateObject("excel.application")    'lance Excel
 xlA.Visible = True
 xlA.workbooks.Open (fichier)       'ouvre le fichier
 Set xlW = xlA.activeworkbook
 ligne = 1
 
 Set t = CurrentDb.OpenRecordset(requete)    'ouvre la requete Do Until t.EOF
   ligne = ligne + 1            'ligne suivante dans la feuille Excel
   For NumChamp = 0 To 4        'pour chaque colonne de la requete
    s = t(NumChamp)             'recupération des données au format Texte    xlW.Sheets(onglet).cells(ligne, NumChamp + 2) = "'" & s 'ecriture dans la cellule
   Next NumChamp
  t.MoveNext                    'enregistrement suivant Loop
 t.Close
 xlW.Save
 xlA.Quit
 Set xlA = Nothing    ' puis libère la référence.

End Sub

Adapter la ligne de départ, le nombre de champs, ...

[helas]

Le Do Until t.Eof et le Loop sont à la ligne suivante

Excuses

[eddyG]

ok et merci pour ta réponse.


Par contre, j'integre ta commande sur un bouton.


Puis le code, je le met où? Directement dans le VBA du formulaire???


Merci d'avance

[helas]

Le code peut être mis dans le formulaire ou un module

xlW.Sheets(onglet).cells(ligne, NumChamp + 2) = "'" & s est sur une autre ligne. Ah, ces retours à la ligne...

[eddyG]

Super merci.


J'ai essayé le code fonctionne très bien. Seulement j'ai un petit soucis.

En fait, ma requete renvoie des champs vides parfois, et ça bloque ici

Code :

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

s = t(NumChamp)

As-tu une idee pour contourner ce problème???


De plus, ma requete contient des comme formulaire et lorsqeu je lance le code, il me dit qu'il y a trop peu d'arguments???


Merci d'avance

[shezam]

pour eviter les champs vides, utilise la fonction isnull. Tu verifie avant d'insérer ton champ s'il contient bien des données.

par contre, je n'ai pas tres bien compris ta derniere question, il manque peut etre des mots.