Discussion :

[Supermichou]

Bonjour, EDIT : et désolé je pensais vraiment écrire sur le forum VBA.....

Je souhaite faire une boucle For each .. Next sur des extractions d'un ERP qui sort des .xlsx sans pour autant avoir à les enregistrer.

Le soucis c'est que la détection des fichiers ouverts est sensible et que je ne la comprend pas.
Cette simple macro ne revoit que le fichier où je suis si je referme le fichier où se trouve la macro et le réouvre.

idem si j'enregistre les fichiers extraits et que je les ouvre depuis l'explorateur.

Par contre tout va très bien si je les ouvre depuis le menu excel.

Code :

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

1
2
3
4
5
6
Sub Macro2()
'
For Each book In Workbooks
MsgBox book.Name
Next
End Sub

J'avais déjà vu ce soucis sur d'autres macro, mais là c'est ennuyeux.

En bref, j'ai 5 ou 6 .xlsx ouverts en même temps que le .xlsm mais c'est ce en même temps qui ne semble pas être évident du point de vue du code.

Merci pour votre aide.

SM

[unparia]

Bonjour
Rappels :
1) la collection WorkBooks ne contient que les classeurs ouverts (des procédures d'ouverture, dans la même instance de Excel, donc) depuis le classeur principal
2) les procédures d'un classeur ne sont plus effectives si l'on ferme ce classeur.

Ton soucis vient probablement d'une faille de prise en compte de ces deux aspects (le mécanisme mis en place lui-même).

[Supermichou]

Merci Unparia,

pour le point 1) comment écrire le code pour que les fichiers excel ouverts en même temps soient pris en compte quelque soit le mode d'ouverture ?

pour le 2) c'était juste pour expliquer maladroitement que je changeais de session...

SM

[Igloobel]

Bonjour,

...Le soucis c'est que la détection des fichiers ouverts est sensible et que je ne la comprend pas...

Qui ouvre les fichiers Excel ? toi manuellement ou une macro ?

[Supermichou]

Bonjour,



Qui ouvre les fichiers Excel ? toi manuellement ou une macro ?

Bonjour,

moi, en faisant les extractions depuis l'ERP.
Le nombre peu varier un peu et le nom sera toujours différent (croisement de date et heure de l'extraction).

Donc je passe en revue les fichiers ouverts.

SM

[parmi]

Bonjour,

Si je comprends bien, tu pourrais utiliser les Windows

Code :

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

1
2
3
For each prog in Application.Windows
    msgbox prog.caption
Next

[Supermichou]

Bonjour,

Si je comprends bien, tu pourrais utiliser les Windows

Code :

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

1
2
3
For each prog in Application.Windows
    msgbox prog.caption
Next

Bonjour,

J'ai testé ta solution.
Malheureusement elle doit obéir aux même contraintes, puisque je rencontre les même difficultés.
Merci quand même.

SM

[Igloobel]

Bonjour,

moi, en faisant les extractions depuis l'ERP.
Le nombre peu varier un peu et le nom sera toujours différent (croisement de date et heure de l'extraction).

Donc je passe en revue les fichiers ouverts.

SM

Juste pour que l'on se comprenne bien :

- c'est l'ERP qui génère les fichiers Excel ou c'est toi qui pilote l'ERP qui envoie les données dans Excel

[Supermichou]

re-

C'est l'ERP qui génère les .xlsx

SM

[Igloobel]

re-

C'est l'ERP qui génère les .xlsx

SM

Donc j'en déduis que c'est toi qui les ouvre pour les gérer

Dans ce cas j'utiliserai les "FileDialog"

exemple

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
    Dim Wrbk As Workbook
    Dim Chem_Select As String
    Dim Shp As Shape
    Dim Wsh As Worksheet
 
'ouverture d'un fichier par boite FileDialog
'**********************************************************
    'Declaration d'une variable comme objet FileDialog
    Dim fd As FileDialog
 
    'Creation d'un objet FileDialog comme un File Open dialog box.
    Set fd = Application.FileDialog(msoFileDialogOpen)
 
    'Déclaration d'une variable contenant le "path" de style variant
    Dim vrtSelectedItem As Variant 'obligatoirement de type variant
 
    With fd
        .AllowMultiSelect = True
        .InitialFileName = "D:\Travaux\en cours"
 
        If .Show = -1 Then
             .Execute
        Else
            Exit Sub
        End If
    End With

là tous tes fichiers sont ouvert puis

Code :

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

1
2
3
4
5
6
7
8
9
    For Each Wrbk In Workbooks
 
    ' ...
    ' ton traitement par classeur
    ' ...
 
    Wrbk.Close
 
    Next Wrbk

j'ai épurer mon code qui est en production actuellement dans mon entreprise

tu dis
A+

[Pierre Fauconnier]

Oui Patrick,

Je suis bien d'accord sur le fond. Je tiquais simplement sur "faille de sécurité" car ce n'est en rien une faille de sécurité.

Par la simple installation d'une application ou d'un logiciel sur ta machine, tu lui donnes implicitement le droit d'ouvrir, voire de modifier, des fichiers de ton réseau (même si elle n'est pas censée le faire) et elle peut le faire à ton insu sans le moindre problème.

Si tu veux protéger tes fichiers et/ou dossiers, tu utilises les options de sécurité de Windows qui doivent normalement s'imposer à cette application (je ne suis pas un expert de sécurité Windows, cependant).