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)
Si qqn pouvait me dépétrer la dedans ça m'enlèverait une belle épine du pied!
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 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
Bonne journée
Julius
Partager