Créer un fichier excel

**Leimi** · 01/06/2006, 12h25

Bonjour,

Sur la Faq j'ai pu trouver comment ouvrir un fichier excel dejà existant
mais je n'arrive pas a comprendre comment tester si un fichier excel existe et en créer un si ce n'est pas le cas.

Merci de voter aide.

**emeraudes** · 01/06/2006, 12h28

Coucou

pour tester si un classeur existe voila le 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
 
Public Function TestExistenceClasseur(strNomFichier As String) As Boolean
On Error GoTo err
    Dim oAppExcel As Excel.Application
    Dim oWbk As Excel.Workbook
 
    'Lance Excel
    Set oAppExcel = New Excel.Application
 
    'Ouvre le classeur
    Set oWbk = oAppExcel.Workbooks.Open(strNomFichier)
 
    TestExistenceClasseur = True
    'Libère les variables et quitte
 
    oWbk.close
    oAppExcel.Quit
    Set oWbk = Nothing
    Set oAppExcel = Nothing
err:
End Function

je te dirais la suite des mon retour
j'espère que ca t'aidera

**pgz** · 01/06/2006, 12h35

Bonjour,

Tu peux utiliser GetObject

Code :

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

1
2
dim WdDoc As Word.Document
Set WdDoc = GetObject("FullName")

ouvre le document s'il existe et renvoie une erreur dans le cas contraire. Avec une gestion des erreurs, tu devrais obtenir ce que tu veux.

Bon courage,

pgz

**Leimi** · 01/06/2006, 13h58

merci, mais pour créer le classeur si il n'existe pas on fait comment??

**Skizo** · 01/06/2006, 14h03

bonjour

pour creer une feuille, c'est dans un tuto ca donne

Code :

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

1
2
3
    'Ajouter une feuille de calcul nommée Toto
 Set xlSheet = xlBook.Worksheets.Add
 xlSheet.Name = "Toto"

pardon j'ai mal lu ta question, donc je ne crois pas que cela vas t'aider, et comme je en sais pas comment on supprime un message...

dsl

**emeraudes** · 01/06/2006, 14h04

tu veux créer un fichier Excel vide ou remplir grace à une requête?

**Leimi** · 01/06/2006, 14h05

je veux créer un fichier excel et le remplir avec une requette

**emeraudes** · 01/06/2006, 14h13

alors le code est le suivant

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
 
Private Sub Exporter_Click()
    Dim nomFic As String
    Dim qd As QueryDef
    Dim exist As Boolean
 
    If Not TestExistenceClasseur(cheminExcel) Then
 
    nomFic = InputBox("Saisissez le nom du fichier", "Exportation de la table [table]")
 
    For Each qd In CurrentDb.QueryDefs
            'export_table est le nom de la requete qui te permet d'exporter ta requete sous excel
        If qd.Name = "export_table" Then 
            DoCmd.DeleteObject acQuery, "export_table"
            exist = True
        End If
    Next
 
    Set qd = CurrentDb.CreateQueryDef("export_table", "select * from [table]")
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "export_table", "cheminRépertoire" + nomFic +".xls"
    'ouverture de la requete
    DoCmd.OpenQuery "export_table"
  End If
End Sub

avec la fonction que je t'ai donné précédemment

**pgz** · 01/06/2006, 14h19

Re,

Tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
dim xl as Excel.Application, wbk as excel.workbook
set xl = Excel.Application
On error Resume next
set wbk = GetObject("Fullname")
If Err.Number <> 0 Then 
    Err.Clear 
    Set wbk = xl.Workbooks.Add(xlWBATWorksheet)
    wbk.SaveAs "FullName"
End if

Ca ne devrait pas être loin;

pgz

**Leimi** · 01/06/2006, 14h23

merci beaucoup,
je vais essayer

**emeraudes** · 01/06/2006, 14h23

si ta besoin d'aide n'hésite pas

**Leimi** · 01/06/2006, 15h04

Code :

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

1
2
3
4
5
6
7
8
dim xl as Excel.Application, wbk as excel.workbook
set xl = Excel.Application
On error Resume next
set wbk = GetObject("Fullname")
If Err.Number <> 0 Then 
    Err.Clear 
    Set wbk = xl.Workbooks.Add(xlWBATWorksheet)
    wbk.SaveAs "FullName"

Ce code me donne des excel.exe dans le gestionaire des taches mais ne m'ouvre pas excel

**emeraudes** · 01/06/2006, 15h06

tu as testé mon code? cra il fonctionne bien, c'est celui que j'utilise

**Leimi** · 01/06/2006, 15h10

je voudrais mettre en forme et j'ai l'impression que ton code ne le permet pas non?

**emeraudes** · 01/06/2006, 15h12

mon code ne met pas en forme le fichier mais dans la FAQ tu devrais pouvoir trouver comment faire

**pgz** · 01/06/2006, 16h45

re,

Ce code me donne des excel.exe dans le gestionaire des taches mais ne m'ouvre pas excel

Tu devrais plutôt montrer ton code. Par exemple, à la place de Fullname, il devrait y avoir le chemin complet de ton classeur xl..

Tu peux aussi ajouter

Code :

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