Bonjour, j'espère que tout va bien pour vous!

De mon côté j'ai un petit soucis avec Access! J'aimerais piloter excel depuis Access mais je n'arrive pas du tout à passer un paramètre (un nom de fichier sous la forme d'une variable String) à Excel.

En fait j'extrais une grosse quantité de données depuis Access et j'exporte le tout dans un fichier Excel. Ensuite, afin d'utiliser ces données, je synthétise les informations dans un tableau que je prends dans un autre fichier Excel et que je copie dans mon fichier d'exportation. Seulement je n'arrive pas à indiquer à Excel dans quel fichier il doit coller ce fameux tableau.

Voivi la requête Âccess dans laquelle j'exécute les macros 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
Private Sub Mise_en_page_export(tx_fichier As String)
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim i As Long
    Dim vtemp As Variant
 
    ' Initialisation des variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("P:\Commun\Tables temporaires\Stock_libre\Stocks_libres_FORMULES_CALCUL.xls")
 
 
    'copier la matrice de calcul contenant les formules pour tableau de consolidation
    xlBook.Application.Run ("copier_tableau_de_consolidation")
    xlBook.Save
 
    'coller la matrice de calcul dans le fichier fraîchement créé
    xlBook.Application.Run ("coller_tableau_de_consolidation" ,tx_fichier)
 
 
   'Code de fermeture
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub
et voici le code des 2 macros que j'ai dans 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
Sub copier_tableau_de_consolidation()
'
' copier_tableau_de_consolidation Macro
' Macro enregistrée le 06/10/2008 par Julien Braun
'
'
    Application.DisplayAlerts = False
    Range("D1516:AQ1537").Select
    Selection.Copy   
End Sub
 
Sub coller_tableau_de_consolidation(fichier As String)
 
    ChDir "P:\Commun\Tables temporaires\Stock_libre"
    Workbooks.Open Filename:=fichier
 
    Range("D1516").Select
    ActiveSheet.Paste
 
End Sub
J'espère que je suis à peu près clair et que mon charabia est compréhensible! Quelqu'un aurait-il donc une idée pour m'aider à résoudre ou contourner mon soucis?

D'avance merci et et bonne journée