Manipulation de fichiers excel depuis access
Bonjour tout le monde,
Voilà maintenant trop longtemps que je me casse les dents sur ce problème, donc je vous le soumet!
Je réalise une extraction de données depuis access sur une bdd SQL serveur puis j'exporte ces données dans un fichiers excel! Jusque là tout va bien! Ensuite j'aimerais copier une plage de cellules (contenant des formules pour l'analyse des données extraites) provenant d'un fichier excel vers celui que je viens de créer en exportant mes données! Et c'est là que je me galère!
Voici le code que j'utilise (depuis access)
Code:
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
| Private Sub Mise_en_page_export(tx_fichier As String)
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim xlBook2 As Excel.Workbook
Dim temp As String
' Initialisation des variables
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("P:\Commun\Tables temporaires\Stock_libre\Stocks_libres_FORMULES_CALCUL.xls")
temp = Mid(tx_fichier, 42)
Sheets(1).Select
xlApp.DisplayAlerts = False
xlApp.Sheets("Réalisé").Select
Range("D1516:AQ1537").Select
Selection.Copy
Set xlBook2 = xlApp.Workbooks.Open(tx_fichier)
Set xlSheet2 = xlBook2.Sheets(temp)
xlSheet2.Select
ActiveSheet.Paste Destination:=Worksheets(temp).Range("D1516")
xlBook.Save
xlBook2.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlSheet2 = Nothing
Set xlBook = Nothing
Set xlBook2 = Nothing
Set xlApp = Nothing
End Sub |
Si qqn pouvait me dépétrer la dedans ça m'enlèverait une belle épine du pied!
Bonne journée
Julius
