En VBA, j'aimerais obtenir la liste de tous les fichiers ouverts dans Excel,
que ce soit un "xls" ou un "xla". Est-ce possible ?
En fait, ce sont les "xla" que je n'arrive pas à récupérer. Les "xls", il
n'y a pas de problème.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Patrick,
pour les xls
For Each w In Application.Workbooks x = w.Name Next
pour les xla et xll
For Each ad In Application.AddIns x = ad.Name Next
isabelle
Patrick a écrit :
Bonjour,
En VBA, j'aimerais obtenir la liste de tous les fichiers ouverts dans Excel, que ce soit un "xls" ou un "xla". Est-ce possible ? En fait, ce sont les "xla" que je n'arrive pas à récupérer. Les "xls", il n'y a pas de problème.
Merci pour votre aide.
bonjour Patrick,
pour les xls
For Each w In Application.Workbooks
x = w.Name
Next
pour les xla et xll
For Each ad In Application.AddIns
x = ad.Name
Next
isabelle
Patrick a écrit :
Bonjour,
En VBA, j'aimerais obtenir la liste de tous les fichiers ouverts dans Excel,
que ce soit un "xls" ou un "xla". Est-ce possible ?
En fait, ce sont les "xla" que je n'arrive pas à récupérer. Les "xls", il
n'y a pas de problème.
For Each w In Application.Workbooks x = w.Name Next
pour les xla et xll
For Each ad In Application.AddIns x = ad.Name Next
isabelle
Patrick a écrit :
Bonjour,
En VBA, j'aimerais obtenir la liste de tous les fichiers ouverts dans Excel, que ce soit un "xls" ou un "xla". Est-ce possible ? En fait, ce sont les "xla" que je n'arrive pas à récupérer. Les "xls", il n'y a pas de problème.
Merci pour votre aide.
Mousnynao
Bonjour,
J'ajouterais ceci à la boucle :
For Each ad In Application.AddIns If ( ad..Installed = True) Then x = ad.Name End If Next
mousnynao
"isabelle" a écrit :
bonjour Patrick,
pour les xls
For Each w In Application.Workbooks x = w.Name Next
pour les xla et xll
For Each ad In Application.AddIns x = ad.Name Next
isabelle
Patrick a écrit : > Bonjour, > > En VBA, j'aimerais obtenir la liste de tous les fichiers ouverts dans Excel, > que ce soit un "xls" ou un "xla". Est-ce possible ? > En fait, ce sont les "xla" que je n'arrive pas à récupérer. Les "xls", il > n'y a pas de problème. > > Merci pour votre aide. > >
Bonjour,
J'ajouterais ceci à la boucle :
For Each ad In Application.AddIns
If ( ad..Installed = True) Then
x = ad.Name
End If
Next
mousnynao
"isabelle" a écrit :
bonjour Patrick,
pour les xls
For Each w In Application.Workbooks
x = w.Name
Next
pour les xla et xll
For Each ad In Application.AddIns
x = ad.Name
Next
isabelle
Patrick a écrit :
> Bonjour,
>
> En VBA, j'aimerais obtenir la liste de tous les fichiers ouverts dans Excel,
> que ce soit un "xls" ou un "xla". Est-ce possible ?
> En fait, ce sont les "xla" que je n'arrive pas à récupérer. Les "xls", il
> n'y a pas de problème.
>
> Merci pour votre aide.
>
>
For Each ad In Application.AddIns If ( ad..Installed = True) Then x = ad.Name End If Next
mousnynao
"isabelle" a écrit :
bonjour Patrick,
pour les xls
For Each w In Application.Workbooks x = w.Name Next
pour les xla et xll
For Each ad In Application.AddIns x = ad.Name Next
isabelle
Patrick a écrit : > Bonjour, > > En VBA, j'aimerais obtenir la liste de tous les fichiers ouverts dans Excel, > que ce soit un "xls" ou un "xla". Est-ce possible ? > En fait, ce sont les "xla" que je n'arrive pas à récupérer. Les "xls", il > n'y a pas de problème. > > Merci pour votre aide. > >