Bonjour,
J'ai un fichier DQY qui s'ouvre dans un fichier Excel en VBA.
J'aimerai pouvoir enregistrer ce fichier excel dans un répertoire spécifique. Le problème je ne trouve pas la bonne propriété car elle est différente que le VBA sous Excel.
Voila mon code :
Ma dernière ligne ne fonctionne pas bien sûr
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
35
36
37
38
39
40
41
42
43 'On intègre dans la feuille BDCF les résultats du fichier dqy Private Sub extraction_dqy_aval(fichier_bdcf_aval, ledir_bdcf) Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.Workbooks.Open ("" & ledir_bdcf & fichier_bdcf_aval & "") 'On ajoute la derniere dans le fichier intFic = FreeFile Open ledir_bdcf & fichier_bdcf_aval For Append As intFic Print #intFic, res Close intFic 'On lance l'éxécution du fichier DQY With ActiveSheet.QueryTables.Add(Connection:= _ "FINDER;" & ledir_bdcf & fichier_bdcf_aval & "", _ Destination:=Range("A1")) .Name = "bdcf_aval" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With timestamp = Format(Now, "dd-mm-yyyy-hhnnssms") fichier_final = "bdcf_aval_MAJ_timestamp" xlApp.Workbooks.SaveAs "" & ledir_bdcf & "Archive/" & fichier_final & "" End Sub
Cordialement
Partager