[AC-2000] Ouverture d'un fichier Excel depuis VBA Access

Ouverture d'un fichier Excel depuis VBA Access

Bonjour

Ma question porte sur une "bizarrerie" d'une ligne de code qui parfois marche et parfois ne marche pas..

Le suspect est:

Code:

Workbooks.Open Filename:=wkName

Où wkName est de type C:\Mon Poste\MES DOCUMENTS\Mon classeur.xls

Quand je parle de "bizarrerie" c'est que la fonction qui contient cette ligne de commande est appelée par plusieurs autres fonctions et dans certains cas la ligne exécute bien l'ouverture du fichier Excel et dans certains non.

Et même si la fonction "appelante" est la même elle peut marcher ou non. En gros c'est totalement aléatoire il ne semble pas y avoir de règle c'est surtout ça le plus embêtant :?

Est ce que quelqu'un à une idée ou une piste de reflexion ?

Je donnerai plus d'infos si besoin.

Là où cela ne marche pas, as-tu une erreur d'exécution ou simplement le XLS ne s'ouvre pas ?

A+

Ci-dessous le code complet que j'utilise qui ne pas jamais posé de PB :

Déclaration du test d'existence du fichier :

Code:

1
2
3
4
5
Function existeFileFSO(ByVal fichier As String) As Boolean
Set fs = CreateObject("Scripting.FileSystemObject")
existeFileFSO = fs.FileExists(fichier)
Set fs = Nothing
End Function

Si le fichier existe = Suppression :

Code:

1
2
3
If existeFileFSO("c:\NomDuFichier.xls") Then
    Kill "c:\NomDuFichier.xls"
End If

Ensuite création du fichier :

Code:

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
44
45
Dim FileName As String    'stocke le nom du fichier XLS sauvegardé
Dim FileSource As String            'Fichier modèle
Dim rs As DAO.Recordset            'objet recordset
Dim i As Integer
 
 
    '======================================
    ' Ecriture dans le XLS à partir de la table temporaire
 '========================================
 
    Set rs = CurrentDb.OpenRecordset("SELECT * from XLS_temp", dbOpenSnapshot)
 
    If rs.RecordCount > 0 Then
 
        Set AppExcel = CreateObject("Excel.Application")
 
        FileSource = "C:\NomDuFichierModèle.xls"   'chemin du modèle
        FileName = "C:\NomDuFichier.xls"
        FileCopy FileSource, FileName
        AppExcel.Visible = True ' ouverture du xls pour qu'il soit visible
        Set WbExcel = AppExcel.Workbooks.Open(FileName)
 
        Set WsExcel = WbExcel.Worksheets(1)  '1 est le n° de feulle
 
        i = 0
        While Not rs.EOF
 
            ' POSITIONNEMENT DANS LES CELULES
 
            For j = 0 To 21  ' 0 =premier champ et 20 le dernier
                WsExcel.Cells(i + 5, j + 1) = rs.Fields(j) 'i+5 = ligne 5 | J+1 = colonne 1
            Next j
            i = i + 1
            rs.MoveNext
 
        Wend
        'XLS
 
        rs.Close
        Set rs = Nothing
 
 
        Set AppExcel = Nothing
        Set WbExcel = Nothing
        Set WsExcel = Nothing

En espérant que ça pourra t'aider.