Discussion :

[Invité]

Bonjour,

Aujourd'hui, je me confronte à un problème à première vue assez basique mais dont je ne trouve pas la solution, le voici :

J'ai pour objectif de créer une fonction permettant de récupérer un nombre important d'informations sur l'une des machines de mon entreprise et de les inscrire dans un fichier excel.
Le cheminement que j'effectue est le suivant :

-Je récupère les informations de la machine dans des variables
-Je lance la création du fichier excel
-Je remplis ce fichier avec les informations récupérées dans mes variables
-Je l'affiche à l'utilisateur puis le sauvegarde automatiquement à un emplacement fixe et avec un nom fixe.

Cependant, j'aimerai vérifier que le fichier créé plus tôt ne soit pas encore ouvert si l'on ré exécute la fonction, chose logiquement assez simple :

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
Private Sub donnee()
 
 If EstClasseurOuvert(App.Path & "\XXX\XXX.xlsx") Then
            Workbooks(App.Path & "\XXX\XXX.xlsx").Close
 End If
 
end Sub
 
Public Function EstClasseurOuvert(MonClasseur As String)
 
    Dim NumeroFichier As Long
    Dim NumeroErreur As Long
 
    On Error Resume Next
        NumeroFichier = FreeFile()
        Open MonClasseur For Input Lock Read As #NumeroFichier
        Close NumeroFichier
        NumeroErreur = Err
    On Error GoTo 0
 
    Select Case NumeroErreur
        Case 0:    EstClasseurOuvert = False
        Case 70:   EstClasseurOuvert = True
        Case Else: Error NumeroErreur
    End Select
 
End Function

Mais je tombe sur une erreur qui me dit que l'indice est en dehors de la plage lors du workbooks.close alors que je suis sûr que le chemin indiqué est correct !

Si quelqu'un a une idée d'où peut venir le problème, merci d'avance .

[halaster08]

Bonjour,

Essaye avec

Code :

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

Workbooks("XXX.xlsx").Close

Il me semble que n'as besoin que du nom du fichier, et pas de tout le chemin pour le fermer

[Invité]

Bonjour,

Essaye avec

Code :

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

Workbooks("XXX.xlsx").Close

Il me semble que n'as besoin que du nom du fichier, et pas de tout le chemin pour le fermer

Merci de ton aide, malheureusement j'avais déjà essayé de cette façon, l'erreur est toujours présente.

[unparia]

Bonjour
un classeur ouvert alors que l'on est dans une instance de l'application Excel devient l'un des éléments de la collection WorkBooks de l'instance en cours.
La gestion d'erreur faite ici est maladroite.
Il est bien plus adroit d'affecter le classeur que l'on ouvre à une variable déclarée comme workbook et initialisée par une instruction Set. Il est ensuite facile :
- tant de fermer le classeur (en appliquant l'instruction close à cette variable)
- que de détruire totalement cette variable (en lui affectant l'objet Nothing) lorsque souhaité (après fermeture du dernier classeur ouvert et avant fermeture du classeur "principal".

[Menhir]

Si le fichier à tester est un classeur Excel, je ne comprends pas pourquoi tu utilises le Open des fichiers ouverts séquentiellement.
Il serait plus simple d'utiliser Workbooks.Open.

Mais il y a une méthode plus simple et plus efficace pour savoir si un fichier Excel est ouvert sur le poste de la macro : scruter la collection Workbooks.
Ca t'éviterait de mettre des actions dans une fonction (ce qui n'est jamais bon) et l'utilisation de On Error (ce qui n'est pas très bon non plus).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub donnee()
 If EstClasseurOuvert("XXX.xlsx") Then Workbooks("XXX.xlsx").Close
End Sub
 
Public Function EstClasseurOuvert(MonClasseur As String) As Boolean
    Dim WB_I As Workbook
    EstClasseurOuvert = False
    For Each WB_I In Workbooks
        If WB_I.Name = MonClasseur Then EstClasseurOuvert = True
    Next WB_I 
    Set WB_I = Nothing
End Function

[Invité]

Bonjour
un classeur ouvert alors que l'on est dans une instance de l'application Excel devient l'un des éléments de la collection WorkBooks de l'instance en cours.
La gestion d'erreur faite ici est maladroite.
Il est bien plus adroit d'affecter le classeur que l'on ouvre à une variable déclarée comme workbook et initialisée par une instruction Set. Il est ensuite facile :
- tant de fermer le classeur (en appliquant l'instruction close à cette variable)
- que de détruire totalement cette variable (en lui affectant l'objet Nothing) lorsque souhaité (après fermeture du dernier classeur ouvert et avant fermeture du classeur "principal".

Bonjour unparia,
J'ai suivi tes conseils et voici ce que je j'obtiens :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub donnee()
 
Dim xlBook As Excel.Workbook 
 
If EstClasseurOuvert(App.Path & "\XXX\XXX.xlsx") Then
            Set xlBook = Workbooks("XXX.xlsx")
            xlBook.Close
            Set xlBook = Nothing
End If
 
End Sub

Cependant l'erreur persiste même de cette façon.

EDIT : Merci de ton conseil Menhir, je vais de suite l'appliquer .

[Marc-L]

Bonjour !

Vérification de niveau grand débutant ‼

Activer le classeur puis côté VBE dans la fenêtre Exécution entrer ?activeworkbook.name et valider …

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …