Discussion :

[jawed]

Bonjour le forum
j'ai ce bout de code qui copie le résultat d'une requête access vers excel pour traitement, sur mon PC de bureau ça marche nickel mais quand je veut l'utiliser sur mon PC Portable il m'affiche dans Excel cette image au lieu du résultat de la requête


Mon 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
25
26
27
Private Sub Commande4_Click()
 Dim xls As Excel.Application
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Viste médical par date", acViewNormal, acEdit
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
    DoCmd.Close acQuery, "Viste médical par date"
    DoCmd.SetWarnings True
 
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open "F:\MAJ MEDS TRAV\Liste des salaries sans visite.xlsm"
    xls.Workbooks("Liste des salaries sans visite.xlsm").Sheets("Traitement").Activate
    xls.Visible = True
 
    DoCmd.SetWarnings False
    DoCmd.OpenTable "Salariés"
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
    DoCmd.Close acTable, "Salariés"
    DoCmd.SetWarnings True
 
    xls.Workbooks("Liste des salaries sans visite.xlsm").Sheets("Salariés").Activate
    xls.Visible = True
    xls.Run "Macro1"
    DoCmd.RunCommand acCmdAppMinimize
End Sub

Vraiment je ne comprend rien, si quelqu'un à une idée je suis preneur
Cordialement

[Jean-Philippe André]

Salut,

la methode de copier/coller ne me plait pas trop, j'aurais prefere un

Code :

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

1
2
3
4
dim RS As New ADOBD.REcordset
Rs.OPEN "SELECT * FROM Salariés",Currentproject.connection
...
xls.Workbooks("Liste des salaries sans visite.xlsm").Sheets("Traitement").Range("a1").CopyFromRecordset RS

[jawed]

Bonjour Jean-Philippe André
Désolé pour le retard car j'était en déplacement
effectivement c'est mieux avec votre méthode ça marche très bien
Cordialement