Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
[VBA] Lister tous les classeurs ouverts... même ceux ouverts par d'autres instances Excel
653 views
Skip to first unread message
HD
Dec 3, 2014, 10:49:30 AM12/3/14
to
Bonjour,
Pour lister les classeurs ouverts dans une combobox je faisais:
For each Wkb in Worbooks
Combobox1.Additem Wkb.name
Next
sauf que... je me suis rendu compte que seul les classeurs ouverts dans
la même instance Excel sont listés...
Comment peut on réellement lister tous les classeurs Excel ouverts sur
un PC quelques soient les instances ouvertes ?
@+
HD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Pour lister les classeurs ouverts dans une combobox je faisais:
For each Wkb in Worbooks
Combobox1.Additem Wkb.name
Next
sauf que... je me suis rendu compte que seul les classeurs ouverts dans
la même instance Excel sont listés...
Comment peut on réellement lister tous les classeurs Excel ouverts sur
un PC quelques soient les instances ouvertes ?
@+
HD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
MichD
Dec 3, 2014, 7:26:25 PM12/3/14
to
Bonjour,
Le moins que je puisse dire, tu te compliques la vie!
Un fichier exemple :
http://cjoint.com/?DLebFlrNGtZ
Le moins que je puisse dire, tu te compliques la vie!
Un fichier exemple :
http://cjoint.com/?DLebFlrNGtZ
HD
Dec 5, 2014, 3:00:15 AM12/5/14
to
> Le moins que je puisse dire, tu te compliques la vie!
Le souci c'est que c'est pour des macros sur des classeurs que je ne
serais pas le seul à utiliser... si l'utilisateur lambda ouvre plusieurs
sessions et veut exécuter ma macro et que celle ci ne trouve pas la
liste de tous les classeurs pour lui ce ne sera rien d'autre qu'un
bug...
Je viens de voir le script utilisé pour listes les classeurs ouverts
même par d'autres instances Excel... il est vrai que c'est plus lourd à
gérer. Mais bon, je vais peut être voir pour l'intégrer à ma macro.
Merci pour l'info.
isabelle
Dec 5, 2014, 3:36:22 AM12/5/14
to
Salut Denis,
j'ai cru un instant que tu étais mon sauveur...
hélas non, en tous les cas pas pour le mien de cas.
je ne sais pas si tu connais le logiciel Cogniview PDF2XL,
ce logiciel sert à convertir les données des fichiers PDF en tableau excel
lors de la conversion, un fichier excel est créer et s'ouvre sous le nom de
"Feuil1 - Microsoft Excel" dans une instance différente.
je dit une instance différente parce que je peut la fermer "Feuil1 - Microsoft
Excel" avec la croix sans que mon instance qui est ouverte ne soit affectée.
alors j'ai testé ta macro après avoir créer un fichier excel provenant de
Cogniview PDF2XL et hélas il n'est pas dans la liste du Combobox :-(
pour précision:
Win 7 - 64 bit, Office 10
isabelle
j'ai cru un instant que tu étais mon sauveur...
hélas non, en tous les cas pas pour le mien de cas.
je ne sais pas si tu connais le logiciel Cogniview PDF2XL,
ce logiciel sert à convertir les données des fichiers PDF en tableau excel
lors de la conversion, un fichier excel est créer et s'ouvre sous le nom de
"Feuil1 - Microsoft Excel" dans une instance différente.
je dit une instance différente parce que je peut la fermer "Feuil1 - Microsoft
Excel" avec la croix sans que mon instance qui est ouverte ne soit affectée.
alors j'ai testé ta macro après avoir créer un fichier excel provenant de
Cogniview PDF2XL et hélas il n'est pas dans la liste du Combobox :-(
pour précision:
Win 7 - 64 bit, Office 10
isabelle
isabelle
Dec 5, 2014, 4:04:35 AM12/5/14
to
aussi voici une image produit lorsque je passe le curseur sur le logo excel sur
la barre au bas,
http://cjoint.com/?DLfkieZPy3l
isabelle
la barre au bas,
http://cjoint.com/?DLfkieZPy3l
isabelle
MichD
Dec 5, 2014, 6:02:17 AM12/5/14
to
Bonjour Isabelle,
Pour retenir seulement les instances d'Excel de tous les programmes ouverts,
j'utilise les extensions de fichier que l'on retrouve habituellement dans le
nom du fichier. Le hic, si ton fichier n'a pas déjà été enregistré, il n'a
pas d'extension. Par conséquent, il n'est pas retenu.
Essaie cette version. Dans le décompte, le fichier perso.xls ou de macros
complémentaires ne sont pas comptés.
Si ce n'est pas suffisant, quel est ton besoin exactement?
'-----------------------------------------------------------------------------------------------------------------
#If Not VBA7 Then
Declare Function GetWindowTextLength Lib "user32" Alias _
"GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As _
String, ByVal cch As Long) As Long
Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
#Else
Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias _
"GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As _
String, ByVal cch As Long) As Long
Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long
#End If
Public NbFileOuverts As Long
'-----------------------------------------------------------------------------------------------------------------
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As
Long
Dim Slength As Long, Buffer As String, NomFichier As String, X As Long
Dim Elt As Variant
'Détermine la longueur du texte de la barre de titre de l'application
Slength = GetWindowTextLength(hwnd) + 1 ' get length of title bar text
If Slength > 1 Then ' if return value refers to non-empty string
'crée l'espace que va demander le titre de l'application
'pour la variable Buffer
Buffer = Space(Slength)
'Obtient dans la variable Buffer, la valeur de la barre
'de titre de l'application
GetWindowText hwnd, Buffer, Slength
'Teste si la chaîne " - Excel" est présente dans la barre
'de titre de l'application
For Each Elt In Array(" - Excel", " - Microsoft Excel", "Microsoft
Excel -")
X = InStr(1, Trim(Buffer), Elt, vbTextCompare)
If X > 0 Then
NbFileOuverts = NbFileOuverts + 1
End If
Next
End If
'processus récursif qui va boucle si elle vaut 1
EnumWindowsProc = 1
End Function
'-----------------------------------------------------------------------------------------------------------------
Sub Liste_Classeurs_Ouverts()
'peu importe l'instance dans laquelle ils sont ouverts
NbFileOuverts = 0
EnumWindows AddressOf EnumWindowsProc, 0
MsgBox NbFileOuverts & " fichiers Excel sont ouverts"
End Sub
'-----------------------------------------------------------------------------------------------------------------
"isabelle" a écrit dans le message de groupe de discussion :
m5rsf0$tde$1...@speranza.aioe.org...
Pour retenir seulement les instances d'Excel de tous les programmes ouverts,
j'utilise les extensions de fichier que l'on retrouve habituellement dans le
nom du fichier. Le hic, si ton fichier n'a pas déjà été enregistré, il n'a
pas d'extension. Par conséquent, il n'est pas retenu.
Essaie cette version. Dans le décompte, le fichier perso.xls ou de macros
complémentaires ne sont pas comptés.
Si ce n'est pas suffisant, quel est ton besoin exactement?
'-----------------------------------------------------------------------------------------------------------------
#If Not VBA7 Then
Declare Function GetWindowTextLength Lib "user32" Alias _
"GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As _
String, ByVal cch As Long) As Long
Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
#Else
Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias _
"GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As _
String, ByVal cch As Long) As Long
Declare PtrSafe Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long
#End If
Public NbFileOuverts As Long
'-----------------------------------------------------------------------------------------------------------------
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As
Long
Dim Slength As Long, Buffer As String, NomFichier As String, X As Long
Dim Elt As Variant
'Détermine la longueur du texte de la barre de titre de l'application
Slength = GetWindowTextLength(hwnd) + 1 ' get length of title bar text
If Slength > 1 Then ' if return value refers to non-empty string
'crée l'espace que va demander le titre de l'application
'pour la variable Buffer
Buffer = Space(Slength)
'Obtient dans la variable Buffer, la valeur de la barre
'de titre de l'application
GetWindowText hwnd, Buffer, Slength
'Teste si la chaîne " - Excel" est présente dans la barre
'de titre de l'application
For Each Elt In Array(" - Excel", " - Microsoft Excel", "Microsoft
Excel -")
X = InStr(1, Trim(Buffer), Elt, vbTextCompare)
If X > 0 Then
NbFileOuverts = NbFileOuverts + 1
End If
Next
End If
'processus récursif qui va boucle si elle vaut 1
EnumWindowsProc = 1
End Function
'-----------------------------------------------------------------------------------------------------------------
Sub Liste_Classeurs_Ouverts()
'peu importe l'instance dans laquelle ils sont ouverts
NbFileOuverts = 0
EnumWindows AddressOf EnumWindowsProc, 0
MsgBox NbFileOuverts & " fichiers Excel sont ouverts"
End Sub
'-----------------------------------------------------------------------------------------------------------------
"isabelle" a écrit dans le message de groupe de discussion :
m5rsf0$tde$1...@speranza.aioe.org...
MichD
Dec 5, 2014, 6:08:25 AM12/5/14
to
Un fichier exemple qui décompte seulement les fichiers Excel à l'écran
http://cjoint.com/?DLfmorV7a7J
http://cjoint.com/?DLfmorV7a7J
MichD
Dec 5, 2014, 6:10:59 AM12/5/14
to
Un petit détail...
Que fais-tu debout à cette heure? Tu regardes la neige tombée ou le froid
s'implanter?
;-))
Que fais-tu debout à cette heure? Tu regardes la neige tombée ou le froid
s'implanter?
;-))
Jacquouille
Dec 5, 2014, 7:29:36 AM12/5/14
to
Bonjour Denis
Ton msg apparait chez moi à 12h10, donc à midi. Il aurait donc été posté
vers 06hoo du matin au Québec. C'est bien cela?
Pour la neige, nous avons reçu les premiers flocons (bien timides) avant
hier. mais ils ne recouvrent même pas la pelouse.
On dirait un petit saupoudrage d'avertissement. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
m5s3rv$hhi$1...@speranza.aioe.org...
Ton msg apparait chez moi à 12h10, donc à midi. Il aurait donc été posté
vers 06hoo du matin au Québec. C'est bien cela?
Pour la neige, nous avons reçu les premiers flocons (bien timides) avant
hier. mais ils ne recouvrent même pas la pelouse.
On dirait un petit saupoudrage d'avertissement. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
m5s3rv$hhi$1...@speranza.aioe.org...
MichD
Dec 5, 2014, 7:38:37 AM12/5/14
to
Bonjour Jacquouille,
Le décalage horaire entre Montréal et Paris ou Bruxelles est de 6 heures.
Effectivement, c'était tôt le matin!
Le décalage horaire entre Montréal et Paris ou Bruxelles est de 6 heures.
Effectivement, c'était tôt le matin!
Jacquouille
Dec 5, 2014, 10:16:50 AM12/5/14
to
C'est quand je lis des trucs comme cela que je suis de plus en plus content
et heureux d'être pensionné.
" Ah, qu'il est doux de ne rien faire quand tout s'agite autour de soi ! ";
Rien faire, rien faire: je dormais, c'est déjà faire quelque chose, cela.
Non ?
Bon WE à tous et toutes et que le Grand Saint ne vous oublie pas pour vous
dire merci pour votre amabilité à nous répondre.
Pensez à demander une nouvelle boule de cristal. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
m5s909$v4s$1...@speranza.aioe.org...
Bonjour Jacquouille,
Le décalage horaire entre Montréal et Paris ou Bruxelles est de 6 heures.
Effectivement, c'était tôt le matin!
et heureux d'être pensionné.
" Ah, qu'il est doux de ne rien faire quand tout s'agite autour de soi ! ";
Rien faire, rien faire: je dormais, c'est déjà faire quelque chose, cela.
Non ?
Bon WE à tous et toutes et que le Grand Saint ne vous oublie pas pour vous
dire merci pour votre amabilité à nous répondre.
Pensez à demander une nouvelle boule de cristal. -))
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"MichD" a écrit dans le message de groupe de discussion :
Bonjour Jacquouille,
Le décalage horaire entre Montréal et Paris ou Bruxelles est de 6 heures.
Effectivement, c'était tôt le matin!
isabelle
Dec 7, 2014, 1:25:15 AM12/7/14
to
Salut Denis,
désolé de n'avoir pu revenir plut tôt,
comme je disais, un fichier excel est créer et s'ouvre sous le nom de "Feuil1 -
l'onglet est toujours nommé Feuil1 et la plage est Range("A1").CurrentRegion
une fois le fichier "Feuil1 - Microsoft Excel" créer par Cogniview,
j'aimerais sélectionner manuellement mon fichier recap.xlsm et importer les
données dans l'onglet base du fichier recap, à la première ligne vide disponible
de la colonne A
et fermer le fichier "Feuil1 - Microsoft Excel"
une image du fichier à lire : http://cjoint.com/?DLhhCaOJAvS
merci pour ta patience et ton aide,
isabelle
désolé de n'avoir pu revenir plut tôt,
comme je disais, un fichier excel est créer et s'ouvre sous le nom de "Feuil1 -
Microsoft Excel" dans une instance différente.
mon besoin est d'avoir accès au données de Feuil1,
l'onglet est toujours nommé Feuil1 et la plage est Range("A1").CurrentRegion
une fois le fichier "Feuil1 - Microsoft Excel" créer par Cogniview,
j'aimerais sélectionner manuellement mon fichier recap.xlsm et importer les
données dans l'onglet base du fichier recap, à la première ligne vide disponible
de la colonne A
et fermer le fichier "Feuil1 - Microsoft Excel"
une image du fichier à lire : http://cjoint.com/?DLhhCaOJAvS
merci pour ta patience et ton aide,
isabelle
isabelle
Dec 7, 2014, 1:28:25 AM12/7/14
to
Ho... ! le froid s'implanter, t'as tombé dans l'mil
isabelle
isabelle
isabelle
Dec 7, 2014, 1:35:34 AM12/7/14
to
Salut Jacques,
vous êtes loin des 216 cm reçue en 3 jours sur la ville de Buffalo
http://www.meteomedia.com/nouvelles/articles/une-deuxieme-tempete-deferle-sur-buffalo/40207/
quand même je nous souhaite un beau noël blanc :-)
isabelle
vous êtes loin des 216 cm reçue en 3 jours sur la ville de Buffalo
http://www.meteomedia.com/nouvelles/articles/une-deuxieme-tempete-deferle-sur-buffalo/40207/
quand même je nous souhaite un beau noël blanc :-)
isabelle
Jacquouille
Dec 7, 2014, 6:01:30 AM12/7/14
to
Encore quelques cm et vous pourrez faire des galeries de métro dans vos
rues....
Merci pour tes bons vœux.
En ce moment, on se soucie plus du confort de Saint Nicolas.
Place aux jouets, nouvelles macros et nouveaux plantages.
Bon WE à vous tous.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
m60sfd$ce5$1...@speranza.aioe.org...
rues....
Merci pour tes bons vœux.
En ce moment, on se soucie plus du confort de Saint Nicolas.
Place aux jouets, nouvelles macros et nouveaux plantages.
Bon WE à vous tous.
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
m60sfd$ce5$1...@speranza.aioe.org...
MichD
Dec 7, 2014, 2:15:29 PM12/7/14
to
Bonjour Isabelle,
Essaie ceci. Exécute la procédure "Départ"
À mettre le tout dans un module standard.
Private Declare Function apiGetClassName Lib "user32" Alias _
"GetClassNameA" (ByVal Hwnd As Long, _
ByVal lpClassname As String, _
ByVal nMaxCount As Long) As Long
Private Declare Function apiGetDesktopWindow Lib "user32" Alias _
"GetDesktopWindow" () As Long
Private Declare Function apiGetWindow Lib "user32" Alias _
"GetWindow" (ByVal Hwnd As Long, _
ByVal wCmd As Long) As Long
Private Declare Function apiGetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal Hwnd As Long, ByVal _
nIndex As Long) As Long
Private Declare Function apiGetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal Hwnd As Long, ByVal _
lpString As String, ByVal aint As Long) As Long
Private Const mcGWCHILD = 5
Private Const mcGWHWNDNEXT = 2
Private Const mcGWLSTYLE = (-16)
Private Const mcWSVISIBLE = &H10000000
Private Const mconMAXLEN = 255
Dim NomFichier As String, Wk As Workbook
'------------------------------------------------------------------------------------------------------------
Sub Départ()
Dim OpenFileName As String
Dim FolderByDefault As String
Dim OpenFile As Workbook
'************* 2 VARIABLES À DÉFINIR*********************
'nom du fichier à rechercher
'ce qui est écrit dans la barre de titr du fichier.
NomFichier = "Feuil1 - Microsoft Excel"
'Le répertoire à ouvrir par défaut au besoin mais non obligatoire
FolderByDefault = "c:\Users\Profile\Documents" '"D:\"
'************************************************************
Call Liste_Application
'Wk représennte le fichier déjà ouvert identifier
'au nom de "MonFichier"
If Not Wk Is Nothing Then
If FolderByDefault <> "" Then ChDrive Left(FolderByDefault, 1)
FileDialog_SelectionFichier OpenFileName, FolderByDefault
If OpenFileName <> "" Then
Set OpenFile = Workbooks(OpenFileName)
End If
End If
'ICI tu as 2 variables Workbook représentant chaque fichier.
'Wk = "Le fichier créé par l'entreprise"
'OpenFile = le fichier que tu viens de choisir et d'ouvrir
'Le reste de ta macro...
End Sub
'------------------------------------------------------------------------------------------------------------
Private Function Liste_Application()
Dim lngx As Long, lngLen As Long
Dim lngStyle As Long, strCaption As String
lngx = apiGetDesktopWindow()
lngx = apiGetWindow(lngx, mcGWCHILD)
Do While Not lngx = 0
strCaption = fGetCaption(lngx)
lngx = apiGetWindow(lngx, mcGWHWNDNEXT)
Loop
End Function
'------------------------------------------------------------------------------------------------------------
Private Function fGetCaption(Hwnd As Long) As String
Dim strBuffer As String
Dim intCount As Integer, DerLig As Long
Dim Wk As Workbook, SonNom As String
strBuffer = String$(mconMAXLEN - 1, 0)
intCount = apiGetWindowText(Hwnd, strBuffer, mconMAXLEN)
If intCount > 0 Then
fGetCaption = Left$(strBuffer, intCount)
If InStr(1, fGetCaption, MonFichier, vbTextCompare) > 0 Then
Set Wk = Workbooks(MonFichier)
End If
End If
End Function
'------------------------------------------------------------------------------------------------------------
Private Sub FileDialog_SelectionFichier(OpenFileName As String, _
Optional FolderByDefault As String)
Dim X As Long
With Application.FileDialog(msoFileDialogFilePicker)
'Définit un titre pour la boîte de dialogue
.Title = "Le tite de la fenêtre:"
'Autorise la multi-sélection
.AllowMultiSelect = False
'Le répertoire par défaut
.InitialFileName = FolderByDefault
'Efface les filtres existants.
.Filters.Clear
'Définit une liste de filtres pour le champ "Type de fichiers".
.Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
.FilterIndex = 1
'Indique le type d'affichage dans la boîte de dialogue
'(exemple visualisation des propriétés)
.InitialView = msoFileDialogViewProperties
'Affiche la boîte de dialogue
.Show
'Boucle sur les fichiers sélectionnés
For X = 1 To .SelectedItems.Count
OpenFileName = .SelectedItems(X)
Next
End With
End Sub
'------------------------------------------------------------------------------------------------------------
Essaie ceci. Exécute la procédure "Départ"
À mettre le tout dans un module standard.
Private Declare Function apiGetClassName Lib "user32" Alias _
"GetClassNameA" (ByVal Hwnd As Long, _
ByVal lpClassname As String, _
ByVal nMaxCount As Long) As Long
Private Declare Function apiGetDesktopWindow Lib "user32" Alias _
"GetDesktopWindow" () As Long
Private Declare Function apiGetWindow Lib "user32" Alias _
"GetWindow" (ByVal Hwnd As Long, _
ByVal wCmd As Long) As Long
Private Declare Function apiGetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal Hwnd As Long, ByVal _
nIndex As Long) As Long
Private Declare Function apiGetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal Hwnd As Long, ByVal _
lpString As String, ByVal aint As Long) As Long
Private Const mcGWCHILD = 5
Private Const mcGWHWNDNEXT = 2
Private Const mcGWLSTYLE = (-16)
Private Const mcWSVISIBLE = &H10000000
Private Const mconMAXLEN = 255
Dim NomFichier As String, Wk As Workbook
'------------------------------------------------------------------------------------------------------------
Sub Départ()
Dim OpenFileName As String
Dim FolderByDefault As String
Dim OpenFile As Workbook
'************* 2 VARIABLES À DÉFINIR*********************
'nom du fichier à rechercher
'ce qui est écrit dans la barre de titr du fichier.
NomFichier = "Feuil1 - Microsoft Excel"
'Le répertoire à ouvrir par défaut au besoin mais non obligatoire
FolderByDefault = "c:\Users\Profile\Documents" '"D:\"
'************************************************************
Call Liste_Application
'Wk représennte le fichier déjà ouvert identifier
'au nom de "MonFichier"
If Not Wk Is Nothing Then
If FolderByDefault <> "" Then ChDrive Left(FolderByDefault, 1)
FileDialog_SelectionFichier OpenFileName, FolderByDefault
If OpenFileName <> "" Then
Set OpenFile = Workbooks(OpenFileName)
End If
End If
'ICI tu as 2 variables Workbook représentant chaque fichier.
'Wk = "Le fichier créé par l'entreprise"
'OpenFile = le fichier que tu viens de choisir et d'ouvrir
'Le reste de ta macro...
End Sub
'------------------------------------------------------------------------------------------------------------
Private Function Liste_Application()
Dim lngx As Long, lngLen As Long
Dim lngStyle As Long, strCaption As String
lngx = apiGetDesktopWindow()
lngx = apiGetWindow(lngx, mcGWCHILD)
Do While Not lngx = 0
strCaption = fGetCaption(lngx)
lngx = apiGetWindow(lngx, mcGWHWNDNEXT)
Loop
End Function
'------------------------------------------------------------------------------------------------------------
Private Function fGetCaption(Hwnd As Long) As String
Dim strBuffer As String
Dim intCount As Integer, DerLig As Long
Dim Wk As Workbook, SonNom As String
strBuffer = String$(mconMAXLEN - 1, 0)
intCount = apiGetWindowText(Hwnd, strBuffer, mconMAXLEN)
If intCount > 0 Then
fGetCaption = Left$(strBuffer, intCount)
If InStr(1, fGetCaption, MonFichier, vbTextCompare) > 0 Then
Set Wk = Workbooks(MonFichier)
End If
End If
End Function
'------------------------------------------------------------------------------------------------------------
Private Sub FileDialog_SelectionFichier(OpenFileName As String, _
Optional FolderByDefault As String)
Dim X As Long
With Application.FileDialog(msoFileDialogFilePicker)
'Définit un titre pour la boîte de dialogue
.Title = "Le tite de la fenêtre:"
'Autorise la multi-sélection
.AllowMultiSelect = False
'Le répertoire par défaut
.InitialFileName = FolderByDefault
'Efface les filtres existants.
.Filters.Clear
'Définit une liste de filtres pour le champ "Type de fichiers".
.Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
.FilterIndex = 1
'Indique le type d'affichage dans la boîte de dialogue
'(exemple visualisation des propriétés)
.InitialView = msoFileDialogViewProperties
'Affiche la boîte de dialogue
.Show
'Boucle sur les fichiers sélectionnés
For X = 1 To .SelectedItems.Count
OpenFileName = .SelectedItems(X)
Next
End With
End Sub
'------------------------------------------------------------------------------------------------------------
isabelle
Dec 7, 2014, 3:33:57 PM12/7/14
to
Salut Denis,
merci pour cette macro,
je crois m'avoir mal exprimé,
le fichier recap.xlsm est déjà ouvert (c'est là que je vais mettre la macro)
ensuite j'ouvre Cogniview et je crée à partir de là le fichier "Feuil1 -
Microsoft Excel" mais celui ci s'ouvre dans une instance différente de mon
fichier recap,
je selectionne le fichier récap et c'est à partir de là que je veut lire les
données de "Feuil1 - Microsoft Excel"
et fermer "Feuil1 - Microsoft Excel" sans l'enregistrer.
isabelle
merci pour cette macro,
je crois m'avoir mal exprimé,
le fichier recap.xlsm est déjà ouvert (c'est là que je vais mettre la macro)
ensuite j'ouvre Cogniview et je crée à partir de là le fichier "Feuil1 -
Microsoft Excel" mais celui ci s'ouvre dans une instance différente de mon
fichier recap,
je selectionne le fichier récap et c'est à partir de là que je veut lire les
données de "Feuil1 - Microsoft Excel"
et fermer "Feuil1 - Microsoft Excel" sans l'enregistrer.
isabelle
Jacquouille
Dec 7, 2014, 4:41:57 PM12/7/14
to
Bonsoir Isa belle
<<ensuite j'ouvre Cogniview et je crée à partir de là le fichier "Feuil1 -
Vraiment par hasard, ce ce serait pas dans Cogniview qu'il faut paramétrer
le chemin du nouveau fichier que tu crées?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
<<ensuite j'ouvre Cogniview et je crée à partir de là le fichier "Feuil1 -
le chemin du nouveau fichier que tu crées?
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
m62djf$4q9$1...@speranza.aioe.org...
isabelle
Dec 7, 2014, 5:34:33 PM12/7/14
to
mais non malheureusement ce pas pas possible,
et je ne veut pas enregistrer ce classeur "Feuil1" qui est créé je veut juste
récupérer les données dans un autre fichier (déjà ouvert)
lorsque je clic sur le bouton (Cogniview) transfert sur excel, la fenetre active
reste celle de Cogniview,
ce que je veut faire c'est activer la fenetre du fichier recap (à la main) et là
par vba importer les données du classeur "Feuil1" puis le détruire.
isabelle
et je ne veut pas enregistrer ce classeur "Feuil1" qui est créé je veut juste
récupérer les données dans un autre fichier (déjà ouvert)
lorsque je clic sur le bouton (Cogniview) transfert sur excel, la fenetre active
reste celle de Cogniview,
ce que je veut faire c'est activer la fenetre du fichier recap (à la main) et là
par vba importer les données du classeur "Feuil1" puis le détruire.
isabelle
MichD
Dec 7, 2014, 8:14:54 PM12/7/14
to
isabelle
Dec 7, 2014, 8:52:14 PM12/7/14
to
Salut denis,
j'ai enregistrer ton fichier sous le nom recap_pdf.xlsm
et modifier la macro comme suit:
Sub Get_Workbook_Another_Instance()
Dim targetWB As TargetWBType
Dim c As Range
targetWB.name = "Feuil1" 'Nom du fichier que tu recherches
Call GetAllWorkbookWindowNames(targetWB)
If Not Wk Is Nothing Then
'Tu as une variable Workbook(WK) à partir duquel tu peux
'extraire les données du fichier de l'autre instance.
Debug.Print Wk.name
For Each c In Wk.Range("A1:G12")
Range(c.Address) = c.Value
Next
Else
MsgBox "Fichier non trouvé."
End If
End Sub
et fait le test, voici l'image du problème rencontré :
http://cjoint.com/?DLic6CKY0j7
isabelle
j'ai enregistrer ton fichier sous le nom recap_pdf.xlsm
et modifier la macro comme suit:
Sub Get_Workbook_Another_Instance()
Dim targetWB As TargetWBType
Dim c As Range
targetWB.name = "Feuil1" 'Nom du fichier que tu recherches
Call GetAllWorkbookWindowNames(targetWB)
If Not Wk Is Nothing Then
'extraire les données du fichier de l'autre instance.
Debug.Print Wk.name
For Each c In Wk.Range("A1:G12")
Range(c.Address) = c.Value
Next
Else
MsgBox "Fichier non trouvé."
End If
End Sub
et fait le test, voici l'image du problème rencontré :
http://cjoint.com/?DLic6CKY0j7
isabelle
isabelle
Dec 7, 2014, 9:10:35 PM12/7/14
to
toutes mes plates excuses,
j'avais oublié de mettre Sheets("Feuil1")
For Each c In Wk.Sheets("Feuil1").Range("A1:G12")
Denis, ça fonctionne du tonnerre, un gros merci cela va m’éviter cette opération
à la mimine
et comme j'ai beaucoup de tableau à lire sur les pdf, c'est un temps précieux
économisé
big bisou*
isabelle
j'avais oublié de mettre Sheets("Feuil1")
For Each c In Wk.Sheets("Feuil1").Range("A1:G12")
Denis, ça fonctionne du tonnerre, un gros merci cela va m’éviter cette opération
à la mimine
et comme j'ai beaucoup de tableau à lire sur les pdf, c'est un temps précieux
économisé
big bisou*
isabelle
MichD
Dec 7, 2014, 10:22:37 PM12/7/14
to
Il y a différentes manières d'ouvrir directement un fichier PDF avec
Excel... bien sûr, il y a des entourloupettes!!!
http://www.vbaexpress.com/kb/getarticle.php?kb_id=977
http://dmcritchie.mvps.org/excel/pdf.htm
http://www.eileenslounge.com/viewtopic.php?f=30&t=5907
http://www.khk.net/wordpress/2009/03/04/adobe-acrobat-and-vba-an-introduction/
Excel... bien sûr, il y a des entourloupettes!!!
http://www.vbaexpress.com/kb/getarticle.php?kb_id=977
http://dmcritchie.mvps.org/excel/pdf.htm
http://www.eileenslounge.com/viewtopic.php?f=30&t=5907
http://www.khk.net/wordpress/2009/03/04/adobe-acrobat-and-vba-an-introduction/
isabelle
Dec 8, 2014, 10:31:47 AM12/8/14
to
malheureusement ces méthodes se sont pas applicable de mon cas,
j'ai différent tableau à lire sur le même fichier pdf et ces tableau n'ont pas
la même structure.
ta macro fait bien mon affaire, il ne reste qu'un petit point obscur à démêler
lors de la lecture des Wk, le classeur "Feuil1" est lu 2 fois
voir la fenêtre d’exécution : http://cjoint.com/?DLic6CKY0j7
au deuxième passage cela cause un erreur sur cette ligne
Wk.Close SaveChanges:=False
vu qu'au 1er passage le classeur a été fermé.
en ajoutant
On Error Resume Next
ça résout le problème mais je me demandait si il y avait une autre solution.
isabelle
j'ai différent tableau à lire sur le même fichier pdf et ces tableau n'ont pas
la même structure.
ta macro fait bien mon affaire, il ne reste qu'un petit point obscur à démêler
lors de la lecture des Wk, le classeur "Feuil1" est lu 2 fois
voir la fenêtre d’exécution : http://cjoint.com/?DLic6CKY0j7
au deuxième passage cela cause un erreur sur cette ligne
Wk.Close SaveChanges:=False
vu qu'au 1er passage le classeur a été fermé.
en ajoutant
On Error Resume Next
ça résout le problème mais je me demandait si il y avait une autre solution.
isabelle
MichD
Dec 8, 2014, 12:13:58 PM12/8/14
to
| lors de la lecture des Wk, le classeur "Feuil1" est lu 2 fois
**** Je ne comprends pas ce que tu essaies de faire... pourquoi lire 2 fois
le même fichier?
Un fichier exemple.
Il y a plus rapide pour copier des données d'un tableau qu'une boucle.
Dans ce fichier, le classeur ouvert dans l'autre instance est fermé sans
enregistrement et cette instance d'Excel est aussi fermée.
Adapte le nom des objets et surtout celle-ci au début de la procédure
targetWB.name = "Classeur1" ' toi tu devrais avoir : targetWB.name =
"Feuil1"
http://cjoint.com/?DLisqhhK80V
isabelle
Dec 8, 2014, 1:49:25 PM12/8/14
to
re bonjour Denis,
au premier test ça fonctionne parfaitement, les données sont transférées, le
classeur et l'application sont fermés,
je sélectionne Cogniview et crée un nouveau classeur "Feuil1"
j’exécute la macro et là j'ai l'erreur d'Automation L'objet invoqué s'est
déconnecté de ses client.
j’appuie sur le bouton fin de cette fenêtre d'erreur,
j’exécute à nouveau la macro et là ça fonctionne
si je continue le problème apparait en alternance 1 fois sur 2
isabelle
au premier test ça fonctionne parfaitement, les données sont transférées, le
classeur et l'application sont fermés,
je sélectionne Cogniview et crée un nouveau classeur "Feuil1"
j’exécute la macro et là j'ai l'erreur d'Automation L'objet invoqué s'est
déconnecté de ses client.
j’appuie sur le bouton fin de cette fenêtre d'erreur,
j’exécute à nouveau la macro et là ça fonctionne
si je continue le problème apparait en alternance 1 fois sur 2
isabelle
MichD
Dec 8, 2014, 2:19:08 PM12/8/14
to
Voici le test que j'ai réalisé avec succès. Je n'ai pas ton environnement,
mais je crée par macro une instance d'Excel et j'y inscris des données
(quelconque) à 3 reprises. Pour chacune de ces 3 instances, j'appelle la
macro dont j'ai légèrement la ligne de déclaration pour y introduire un
paramètre soit le nom du fichier
Get_Workbook_Another_Instance(NomFichier As String)
J'ai aussi ajouté à cette procédure
"Get_Workbook_Another_Instance(NomFichier As String)" la ligne de code
suivante afin de m’assurer que les objets avaient libéré la mémoire : Set
Wk = Nothing: Set objApp = Nothing . Cette ligne de code est à la fin de la
procédure.
Ce test doit se rapprocher de ce que tu essaies de faire... tout fonctionne
correctement durant l'exécution de la procédure.
'-----------------------------------------------------------------------------------
Sub test()
Dim Xl As Excel.Application, Wb As Workbook
Dim A As Long
For A = 1 To 3
Set Xl = CreateObject("Excel.application")
Xl.Visible = True
Set Wb = Xl.Workbooks.Add
Wb.Worksheets("Feuil1").Range("A1:A10") = 1
Get_Workbook_Another_Instance Wb.name
Set Xl = Nothing: Set Wb = Nothing
Next
End Sub
'-----------------------------------------------------------------------------------
Sub Get_Workbook_Another_Instance(NomFichier As String)
Dim targetWB As TargetWBType, Rg As Range, T As Variant
targetWB.name = NomFichier 'Nom du fichier que tu recherches
Call GetAllWorkbookWindowNames(targetWB)
If Not Wk Is Nothing Then
'Tu as une variable Workbook(WK) à partir duquel tu peux
'extraire les données du fichier de l'autre instance.
'Copie dans une variable T, le tableau de la feuille à extraire
T = Wk.Worksheets("Feuil1").Range("A1:D25")
'Détermine où tu veux copier les données, Nom feuille est plage
'de cellules à adapter...
Set Rg = ThisWorkbook.Worksheets("Feuil1").Range("A1")
Application.ScreenUpdating = False
Application.EnableEvents = False
'Ajoute les données de la varible à la plage que tu as déterminé.
Rg.Resize(UBound(T, 1), UBound(T, 2)) = T
Application.EnableEvents = True
Application.ScreenUpdating = True
'pour fermer le classeur sans enregistrement
Wk.Close False
'pour fermer l'instance d'Excel où est ouvert Wk
objApp.Quit
Set Wk = Nothing: Set objApp = Nothing
"isabelle" a écrit dans le message de groupe de discussion :
m64rrf$o0g$1...@speranza.aioe.org...
mais je crée par macro une instance d'Excel et j'y inscris des données
(quelconque) à 3 reprises. Pour chacune de ces 3 instances, j'appelle la
macro dont j'ai légèrement la ligne de déclaration pour y introduire un
paramètre soit le nom du fichier
Get_Workbook_Another_Instance(NomFichier As String)
J'ai aussi ajouté à cette procédure
"Get_Workbook_Another_Instance(NomFichier As String)" la ligne de code
suivante afin de m’assurer que les objets avaient libéré la mémoire : Set
Wk = Nothing: Set objApp = Nothing . Cette ligne de code est à la fin de la
procédure.
Ce test doit se rapprocher de ce que tu essaies de faire... tout fonctionne
correctement durant l'exécution de la procédure.
'-----------------------------------------------------------------------------------
Sub test()
Dim Xl As Excel.Application, Wb As Workbook
Dim A As Long
For A = 1 To 3
Set Xl = CreateObject("Excel.application")
Xl.Visible = True
Set Wb = Xl.Workbooks.Add
Wb.Worksheets("Feuil1").Range("A1:A10") = 1
Get_Workbook_Another_Instance Wb.name
Set Xl = Nothing: Set Wb = Nothing
Next
End Sub
'-----------------------------------------------------------------------------------
Sub Get_Workbook_Another_Instance(NomFichier As String)
Dim targetWB As TargetWBType, Rg As Range, T As Variant
targetWB.name = NomFichier 'Nom du fichier que tu recherches
Call GetAllWorkbookWindowNames(targetWB)
If Not Wk Is Nothing Then
'Tu as une variable Workbook(WK) à partir duquel tu peux
'extraire les données du fichier de l'autre instance.
T = Wk.Worksheets("Feuil1").Range("A1:D25")
'Détermine où tu veux copier les données, Nom feuille est plage
'de cellules à adapter...
Set Rg = ThisWorkbook.Worksheets("Feuil1").Range("A1")
Application.ScreenUpdating = False
Application.EnableEvents = False
'Ajoute les données de la varible à la plage que tu as déterminé.
Rg.Resize(UBound(T, 1), UBound(T, 2)) = T
Application.EnableEvents = True
Application.ScreenUpdating = True
'pour fermer le classeur sans enregistrement
Wk.Close False
'pour fermer l'instance d'Excel où est ouvert Wk
objApp.Quit
Set Wk = Nothing: Set objApp = Nothing
Else
MsgBox "Fichier non trouvé."
End If
End Sub
'-----------------------------------------------------------------------------------
MsgBox "Fichier non trouvé."
End If
End Sub
"isabelle" a écrit dans le message de groupe de discussion :
isabelle
Dec 8, 2014, 2:50:33 PM12/8/14
to
right on,
merci Denis,
isabelle
merci Denis,
isabelle
0 new messages