Discussion :

[shakapouet]

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 :

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

Ma dernière ligne ne fonctionne pas bien sûr

Cordialement

[titi95]

Bonsoir

Il ne faut pas confondre l'appli Excel, le classeur (fichier) et la feuille

Pour ouvrir et intervenir sur le Xls :

Code :

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

1
2
3
4
5
6
    Dim xlAppAs Variant, xlBook As Variant, xlSheet As Variant  
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("CheminCompletDuFichierXls") 'à modifier
    Set xlSheet = xlBook.Worksheets("NomDeLaFeuille") 'à modifier
    xlApp.visible = True
    ...

Pour Sauvegarder :

Code :

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

    xlBook.SaveAs "CheminCompletDuFichierXls"   'et non xlApp !

Pour fermer :

Code :

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

1
2
3
4
5
    xlBook.Close
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

titi95

[titi95]

Un complément

Pour créer un classeur Excel

Code :

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

1
2
3
4
    Dim xlAppAs Variant, xlBook As Variant, xlSheet As Variant  
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    xlBook.SaveAs "CheminCompletDuFichierXls"

titi95

[shakapouet]

parfait ça marche

Merci beaucoup

[hopee]

Bonjour,

Je profite de cette discussion, pour savoir, si quelqu'un sais comment « enregistrer sous » un classeur en lecture seule par Access en VBA.

En fait, j’ai utilisé les commandes

Code :

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

1
2
3
4
 
 
DoCmd.OpenForm "nomFormulaire_tableauCroiséDynamique", acFormPivotTable
DoCmd.RunCommand acCmdPivotTableExportToExcel

pour exporter ma tableau croisé dynamique dépandant en formulaire vers excel, mais le classeur est en lecture seule. Je voudrais pouvoir enregistrer ce classeur en VBA, mais j’ai pas trouvé la solution...

Quelqu'un peux m’aider s’il vous plait ?

Merci d’avance

Cdt,
DY

Un complément

Pour créer un classeur Excel

Code :

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

1
2
3
4
    Dim xlAppAs Variant, xlBook As Variant, xlSheet As Variant  
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    xlBook.SaveAs "CheminCompletDuFichierXls"

titi95

[unlucky luke]

pour Hopee,

voir ma solution dans ma réponse du 26/06 : il faut mettre la propriété du Classeur en Lecture-Ecriture avant son ouverture (je crois). dans mon code ça marche

Extraits :


Dim NomFichierExcel As String
Dim NomClasseur As String

Dim ApplicationExcel As Excel.Application 'Application Excel
Dim FichierExcel As Excel.Workbook 'Classeur Excel


NomClasseur = "MonClasseur.xlsx" 'Nom du Classeur
NomFichierExcel = "C:\MonRepertoire\MonClasseur.xlsx" 'Chemin du Classeur


Set ApplicationExcel = GetObject(, "Excel.Application") 'Session active d'Excel


SetAttr NomFichierExcel, vbNormal 'Donne la propriété Lecture-écriture au Classeur

Set FichierExcel = ApplicationExcel.Workbooks(NomFichierExcel)


' ...

FichierExcel.Save

[hopee]

merci Luc,

mais en fait, c'est pas mon problème...
mon souci est que, j'ai réussi à exporter mon tableau croisé dynamique dépendant (formulaire) vers Excel, mais je sais pas comment faire pour enregistrer le classeur nommé avec la date d'exportation. (surtôt le problème d'enregisrtement).

quand j'exporte le tableau croisé dynamique, le classeur est exporté, dans le premier onglet, le tcd, et dans le 2em onglet, les données. pourtant, ce classeur est en lecture seule...
j'ai pas envie de sauvegarder 100 fois le classeur si j'ai envie d'exporter 100 tcd... c'est long pour le traitement, la nominnation, ...

tu peux m'aider s'en sortir, stp?

merci d'avance


Hopee