Discussion :

[Acarp47]

Bonjour à tous

Pour des problemes de déploiement, j'ai inclus un fichier excel dans une base access. Je cherche désormais à créer un code vba pour créer un fichier Excel dans mon système de fichiers à partir de cet objet OLE.

Connaissez vous une méthode pas trop lourde pour faire cela (je souhaite vraiment éviter de devoir trimballer le fichier excel a coté de la base access)

Je récupère pour l'instant l'objet OLE de la facon suivante (tres simple) :

Code :

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

1
2
3
4
5
6
 
Dim ExcelSheetOle As Variant
 
    Set rst = CurrentDb.OpenRecordset("Select * from T_Fichiers_fic")
    rst.MoveFirst
    Set ExcelSheetOle = rst.Fields(1)

Notez que je ne récupère que le premier objet car la table n'en contient qu'un seul !

Merci de votre aide

[LedZeppII]

Bonjour,

Est-ce que ce post peut t'aider ?

A+

[Acarp47]

Ca m'a l'air interessant effectivement!

Je te tiens au courant dès que j'ai testé ta solution.

Si il s'avère que ca marche, je collerai le code correspondant au contexte excel ici.

Merci pour ton aide

[Acarp47]

Après essai, il se passe quelque chose d'assez étrange !

- J'ai créé un formulaire F_Fic dans lequel j'ai inséré l'objet OLE à partir du fichier excel que j'ai nommé OLE_template.

- J'ai ajouté le bout de code suivant

Code :

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

1
2
3
4
5
 
Private Sub Form_Open(Cancel As Integer)
    [OLE_template].Object.Activate
    [OLE_template].Object.saveas "C:\test.xls"
End Sub

Lorsque j'ouvre mon formulaire, un fichier c:\test.xls se crée bien. Il fait la même taille à quelques kilos près que mon premier fichier que j'avais importé précédemment dans le formulaire F_FIC. Mais quand j'essaye de l'ouvrir, c'est la cata, il est illisible!
Excel se lance mais aucun classeur n'apparait!
Evidemment, tous les traitements automatiques que je tente de lancer dessus s'en trouvent chamboulés!

Si quelqu'un a une idée, je suis prenneur!

Merci d'avance à tous

[Acarp47]

pffff... rien de grave j'ai fait le boulet!

Le classeur était simplement masqué, ce qui rendait impossible l'écriture qui suivait.

Un simple

Code :

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

1
2
3
4
 
NomFichierSource = "TemplatePourGraphs.xls"
(...)
MyExcelApplication.Windows("" & NomFichierSource).Visible = True

aura fait l'affaire.

Merci pour votre aide, ce topic peut etre clos