Nom du fichier ou de classe introuvable lors de l'opération Automation

Version imprimable

:salut: à tous amis VBA-tiste !

Je souhaite dans le but d'implémenter une BDD, la remplir avec plusieurs tableaux de données.
J'effectue le code suivant :

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
46
 
Private Sub BDD_Click()
    Dim BDD, Wb As Object
    Dim l, c As Integer
    Dim num As Long
    Dim str As String
 
    str = Worksheets(3).Range("C10") 'Se trouve dans C10 "C:\Users\Documents\Fichier\Comptage\Comptage2016"
    num = Worksheets(3).Range("C11") ' Se trouve dans C11 "23703". Le numéro change pour chaque tableau
    Set BDD = CreateObject("Scripting.FileSystemObject")
    Set Wb = GetObject(str & "_" & num & ".xlsx")
 
 
    If BDD.FileExists(str & ".xlsx") = False Then
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        'On crée l'objet Excel
        Set xlApp = CreateObject("Excel.Application")
        'On défini le nombre d'onglets (ici 5)
        xlApp.SheetsInNewWorkbook = 10
        'On ajoute un classeur
        Set xlBook = xlApp.Workbooks.Add
        'On donne un nom au classeur
        xlBook.SaveAs (str & ".xlsx")
        'On rend le classeur visible
        xlApp.Visible = True
        'On crée l'objet onglet dans le nouveau classeur créé
        Set xlSheet = xlBook.Worksheets(1)
        'On affecte un nom aux l'onglets
        xlSheet.Name = "BDD2016"
    End If
 
    Set BDD = GetObject("C:\Users\Documents\Fichier\Comptage\Comptage2016.xlsx")
    BDD.Sheets(1).Name = "BDD2016"
    BDD.Worksheets(2).Copy After:=BDD.Worksheets(1)
    BDD.Sheets(2).Name = "C_" & num
    BDD.Worksheets(2).Range("C2:C100").NumberFormatLocal = "hh:mm"
    BDD.Worksheets(2).Range("A1:F10").ClearContents
    For l = 1 To 30
        For c = 1 To 10
            BDD.Worksheets(2).Cells(l, c) = Wb.Worksheets(1).Cells(l, c)
        Next c
    Next l
 
End Sub

Tout fonctionnait à merveille jusqu'au numéro 23711 qui a décidé de ne pas marcher sans raison.
Je n'ai pas changé mon code et pourtant Excel m'affiche "Nom du fichier ou de classe introuvable lors de l'opération Automation".
Il me pointe la ligne suivante :

Code:

Set Wb = GetObject(str & "_" & num & ".xlsx")

J'ai bien cherché pendant longtemps, j'ai presque tout essayé. Mais je reste sans explication.

Est-ce que quelqu'un peut m'aider please ? :mrgreen:

27/01/2016, 17h29
Menhir

Que contiennent str et num ?
27/01/2016, 17h37
BDA53

str contient le chemin du fichier "C:\.....\Comptage2016"
et num le numéro "23703"
27/01/2016, 17h39
BDA53

AAAAAH .... En fait c'est bon j'ai trouvé !

C'est peut-être mieux si je sauvegarde les données du numéro 23711 :mouarf2:
Merci quand même de ta réponse :zoubi:
04/02/2016, 15h03
BDA53

:salut: le peuple !

Je relance le sujet parce-que je retrouve le même message d'erreur mais cette fois aucune erreur de fichier non enregistré.... Je cherche je ne trouve pas pour le moment

Si quelqu'un peut me venir en aide avant 16h ça me sauverait vraiment la vie ! :mrgreen: :alerte: :help:
04/02/2016, 15h12
joe.levrai

Bonjour,

pourquoi réaliser de l'automation Excel pour ... Excel ??
et pourquoi créer des nouvelles instances Excel, alors que c'est une instance Excel qui travaille déjà ?

c'est une raison précise ou une habitude d'écriture (je vois ça assez souvent dans tes codes)

Au lieu d'un GetObjet, tu pourrais faire un WorkBooks.Open
Au lieu d'un FSO, tu pourrai utiliser Dir()
etc...

Effectivement tu as peut-être raison.

Hormis le principe d'automation je ne connais pas trop la syntaxe pour la gestion des classeurs Excel.
J'ai essayé
Code:

1 2 3 4 5 6 7 'Récup' des valeurs chemin du fichier et numéro de train str = Worksheets(3).Range("C10") num = Worksheets(3).Range("C11") 'Creation du fichier de la base Set BDD = CreateObject("Scripting.FileSystemObject") Set Wb = Application.Workbooks.Open(str & "_" & num & ".xlsx")
un autre message d'erreur s'affiche " votre fichier est introuvable
... vérifiez l'orthographe du nom du classeur et la validité de l'emplacement" ... je ne comprends pas j'arrive pourtant à accéder à mes fichiers depuis cet emplacement

04/02/2016, 15h20
Menhir

C'est de nouveau "Fichier introuvable" sur le GetObject ?
Même question : que contiennent str et num au moment de l'erreur ?

Essaye de mettre juste avant le GetObject une ligne :

Code:

Debug.Print str & "_" & num & ".xlsx"

Regarde quelle nom s'affiche dans le fenêtre d'exécution et vérifie que le fichier existe effectivement et qu'il n'est pas en cours d'utilisation.

Dans ton Open, tu n'indiques pas le chemin.
Donc essaye aussi de mettre quelque part un :

Code:

Debug.Print DefaultFilePath

Pour vérifier si le chemin par défaut est le bon.
04/02/2016, 15h26
BDA53

Menhir,

Grâce à ton idée j'ai pu voir qu'il y a bien eu un problème dans ma variable "str".

L'erreur est rectifiée et par conséquent le problème est résolu. :mrgreen:

Merci à vous 2 pour votre aide elle m'a été très précieuse :zoubi:
04/02/2016, 15h28
Menhir

Quand il y a un problème, premier réflexe à avoir : vérifier le contenu des variables.