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
Geo
Bonjour, Je voudrais, dans Userform, afficher les drniers fichiers ouvrts par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la fenêtre Fichier ? Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas ? La difficulté est de connaître les derniers fichiers ouverts, si la liste affichée dans Fichiers ne vous convient pas il faut mémoriser cette liste quelque part : fichier, modèle etc.
Sinon, il faut placer sur ce UserForm un contrôle de type ListBox ou ComboBox, il me semble que le ListBox est mieux adapté. Puis charger le contrôle avec le contenu de ce fichier.
-- A+
Bonjour,
Je voudrais, dans Userform, afficher les drniers fichiers ouvrts
par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la
fenêtre Fichier ?
Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient
pas ?
La difficulté est de connaître les derniers fichiers ouverts, si la
liste affichée dans Fichiers ne vous convient pas il faut mémoriser
cette liste quelque part : fichier, modèle etc.
Sinon, il faut placer sur ce UserForm un contrôle de type ListBox ou
ComboBox, il me semble que le ListBox est mieux adapté.
Puis charger le contrôle avec le contenu de ce fichier.
Bonjour, Je voudrais, dans Userform, afficher les drniers fichiers ouvrts par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la fenêtre Fichier ? Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas ? La difficulté est de connaître les derniers fichiers ouverts, si la liste affichée dans Fichiers ne vous convient pas il faut mémoriser cette liste quelque part : fichier, modèle etc.
Sinon, il faut placer sur ce UserForm un contrôle de type ListBox ou ComboBox, il me semble que le ListBox est mieux adapté. Puis charger le contrôle avec le contenu de ce fichier.
-- A+
Jacques93
Bonjour Geo et Patrick,
Bonjour, Je voudrais, dans Userform, afficher les drniers fichiers ouvrts par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la fenêtre Fichier ? Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas ? La difficulté est de connaître les derniers fichiers ouverts, si la liste affichée dans Fichiers ne vous convient pas il faut mémoriser cette liste quelque part : fichier, modèle etc.
Indépendamment de l'utilité de la chose, avec les versions 2003 et 2007, peut être avec 2002 et 2000, mais je ne peux pas vérifier, il existe la collection RecentFiles. On peut donc dans le code du UserForm utiliser, par exemple :
Private Sub UserForm_Initialize() Me.Caption = "Derniers fichiers" ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "5 cm;0 cm" For Each rfile In RecentFiles ListBox1.AddItem rfile.Name ListBox1.Column(1, ListBox1.ListCount - 1) = rfile.Path Next rfile End Sub
Private Sub ListBox1_Click() Dim Index As Integer
Index = ListBox1.ListIndex On Error Resume Next Documents.Open ListBox1.Column(1, Index) & "" & _ ListBox1.Column(0, Index) If Err.Number <> 0 Then MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description End If Unload Me End Sub
-- Cordialement,
Jacques.
Bonjour Geo et Patrick,
Bonjour,
Je voudrais, dans Userform, afficher les drniers fichiers ouvrts
par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la
fenêtre Fichier ?
Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas ?
La difficulté est de connaître les derniers fichiers ouverts, si la
liste affichée dans Fichiers ne vous convient pas il faut mémoriser
cette liste quelque part : fichier, modèle etc.
Indépendamment de l'utilité de la chose, avec les versions 2003 et 2007,
peut être avec 2002 et 2000, mais je ne peux pas vérifier, il existe la
collection RecentFiles. On peut donc dans le code du UserForm utiliser,
par exemple :
Private Sub UserForm_Initialize()
Me.Caption = "Derniers fichiers"
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "5 cm;0 cm"
For Each rfile In RecentFiles
ListBox1.AddItem rfile.Name
ListBox1.Column(1, ListBox1.ListCount - 1) = rfile.Path
Next rfile
End Sub
Private Sub ListBox1_Click()
Dim Index As Integer
Index = ListBox1.ListIndex
On Error Resume Next
Documents.Open ListBox1.Column(1, Index) & "" & _
ListBox1.Column(0, Index)
If Err.Number <> 0 Then
MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description
End If
Unload Me
End Sub
Bonjour, Je voudrais, dans Userform, afficher les drniers fichiers ouvrts par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la fenêtre Fichier ? Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas ? La difficulté est de connaître les derniers fichiers ouverts, si la liste affichée dans Fichiers ne vous convient pas il faut mémoriser cette liste quelque part : fichier, modèle etc.
Indépendamment de l'utilité de la chose, avec les versions 2003 et 2007, peut être avec 2002 et 2000, mais je ne peux pas vérifier, il existe la collection RecentFiles. On peut donc dans le code du UserForm utiliser, par exemple :
Private Sub UserForm_Initialize() Me.Caption = "Derniers fichiers" ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "5 cm;0 cm" For Each rfile In RecentFiles ListBox1.AddItem rfile.Name ListBox1.Column(1, ListBox1.ListCount - 1) = rfile.Path Next rfile End Sub
Private Sub ListBox1_Click() Dim Index As Integer
Index = ListBox1.ListIndex On Error Resume Next Documents.Open ListBox1.Column(1, Index) & "" & _ ListBox1.Column(0, Index) If Err.Number <> 0 Then MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description End If Unload Me End Sub
-- Cordialement,
Jacques.
heureux-oli
Cette collection existe toujours sous Word 2007 et elle comporte 20 entrées.
Bonjour, Je voudrais, dans Userform, afficher les drniers fichiers ouvrts par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la fenêtre Fichier ? Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas ? La difficulté est de connaître les derniers fichiers ouverts, si la liste affichée dans Fichiers ne vous convient pas il faut mémoriser cette liste quelque part : fichier, modèle etc.
Indépendamment de l'utilité de la chose, avec les versions 2003 et 2007, peut être avec 2002 et 2000, mais je ne peux pas vérifier, il existe la collection RecentFiles. On peut donc dans le code du UserForm utiliser, par exemple :
Private Sub UserForm_Initialize() Me.Caption = "Derniers fichiers" ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "5 cm;0 cm" For Each rfile In RecentFiles ListBox1.AddItem rfile.Name ListBox1.Column(1, ListBox1.ListCount - 1) = rfile.Path Next rfile End Sub
Private Sub ListBox1_Click() Dim Index As Integer
Index = ListBox1.ListIndex On Error Resume Next Documents.Open ListBox1.Column(1, Index) & "" & _ ListBox1.Column(0, Index) If Err.Number <> 0 Then MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description End If Unload Me End Sub
-- Cordialement,
Jacques.
Cette collection existe toujours sous Word 2007 et elle comporte 20 entrées.
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
O$DJ6GueIHA.288@TK2MSFTNGP02.phx.gbl...
Bonjour Geo et Patrick,
Bonjour,
Je voudrais, dans Userform, afficher les drniers fichiers ouvrts
par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la
fenêtre Fichier ?
Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas
?
La difficulté est de connaître les derniers fichiers ouverts, si la liste
affichée dans Fichiers ne vous convient pas il faut mémoriser cette liste
quelque part : fichier, modèle etc.
Indépendamment de l'utilité de la chose, avec les versions 2003 et 2007,
peut être avec 2002 et 2000, mais je ne peux pas vérifier, il existe la
collection RecentFiles. On peut donc dans le code du UserForm utiliser,
par exemple :
Private Sub UserForm_Initialize()
Me.Caption = "Derniers fichiers"
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "5 cm;0 cm"
For Each rfile In RecentFiles
ListBox1.AddItem rfile.Name
ListBox1.Column(1, ListBox1.ListCount - 1) = rfile.Path
Next rfile
End Sub
Private Sub ListBox1_Click()
Dim Index As Integer
Index = ListBox1.ListIndex
On Error Resume Next
Documents.Open ListBox1.Column(1, Index) & "" & _
ListBox1.Column(0, Index)
If Err.Number <> 0 Then
MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description
End If
Unload Me
End Sub
Bonjour, Je voudrais, dans Userform, afficher les drniers fichiers ouvrts par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Vous voulez faire l'équivalent de la liste qui apparaît en bas de la fenêtre Fichier ? Pouvez-vous nous dire pourquoi cette fonctionnalité ne vous convient pas ? La difficulté est de connaître les derniers fichiers ouverts, si la liste affichée dans Fichiers ne vous convient pas il faut mémoriser cette liste quelque part : fichier, modèle etc.
Indépendamment de l'utilité de la chose, avec les versions 2003 et 2007, peut être avec 2002 et 2000, mais je ne peux pas vérifier, il existe la collection RecentFiles. On peut donc dans le code du UserForm utiliser, par exemple :
Private Sub UserForm_Initialize() Me.Caption = "Derniers fichiers" ListBox1.ColumnCount = 2 ListBox1.ColumnWidths = "5 cm;0 cm" For Each rfile In RecentFiles ListBox1.AddItem rfile.Name ListBox1.Column(1, ListBox1.ListCount - 1) = rfile.Path Next rfile End Sub
Private Sub ListBox1_Click() Dim Index As Integer
Index = ListBox1.ListIndex On Error Resume Next Documents.Open ListBox1.Column(1, Index) & "" & _ ListBox1.Column(0, Index) If Err.Number <> 0 Then MsgBox "Erreur " & Err.Number & vbCrLf & Err.Description End If Unload Me End Sub
-- Cordialement,
Jacques.
Jacques93
Bonjour heureux-oli,
Cette collection existe toujours sous Word 2007 et elle comporte 20 entrées.
Pour 2003 et 2007, ayant vérifié, je n'avais pas de doutes, c'est sur les versions antérieures que je ne peux l'affirmer. Bizarrement les versions 97, 2000, et 2002 ne sont plus disponibles sur le site MSDN, restent les versions 95, puis 2003 et 2007 :-(
Mes CD Office 2000 ayant rendus l'âme (RIP), et ayant 97 sur disquettes je n'ai pas eu le courage ...
-- Cordialement,
Jacques.
Bonjour heureux-oli,
Cette collection existe toujours sous Word 2007 et elle comporte 20 entrées.
Pour 2003 et 2007, ayant vérifié, je n'avais pas de doutes, c'est sur
les versions antérieures que je ne peux l'affirmer. Bizarrement les
versions 97, 2000, et 2002 ne sont plus disponibles sur le site MSDN,
restent les versions 95, puis 2003 et 2007 :-(
Mes CD Office 2000 ayant rendus l'âme (RIP), et ayant 97 sur disquettes
je n'ai pas eu le courage ...
Cette collection existe toujours sous Word 2007 et elle comporte 20 entrées.
Pour 2003 et 2007, ayant vérifié, je n'avais pas de doutes, c'est sur les versions antérieures que je ne peux l'affirmer. Bizarrement les versions 97, 2000, et 2002 ne sont plus disponibles sur le site MSDN, restent les versions 95, puis 2003 et 2007 :-(
Mes CD Office 2000 ayant rendus l'âme (RIP), et ayant 97 sur disquettes je n'ai pas eu le courage ...
"Jacques93" a écrit dans le message de news: eQzh$
Bonjour heureux-oli,
Cette collection existe toujours sous Word 2007 et elle comporte 20 entrées.
Pour 2003 et 2007, ayant vérifié, je n'avais pas de doutes, c'est sur les versions antérieures que je ne peux l'affirmer. Bizarrement les versions 97, 2000, et 2002 ne sont plus disponibles sur le site MSDN, restent les versions 95, puis 2003 et 2007 :-(
Mes CD Office 2000 ayant rendus l'âme (RIP), et ayant 97 sur disquettes je n'ai pas eu le courage ...
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
eQzh$TIfIHA.4120@TK2MSFTNGP06.phx.gbl...
Bonjour heureux-oli,
Cette collection existe toujours sous Word 2007 et elle comporte 20
entrées.
Pour 2003 et 2007, ayant vérifié, je n'avais pas de doutes, c'est sur les
versions antérieures que je ne peux l'affirmer. Bizarrement les versions
97, 2000, et 2002 ne sont plus disponibles sur le site MSDN, restent les
versions 95, puis 2003 et 2007 :-(
Mes CD Office 2000 ayant rendus l'âme (RIP), et ayant 97 sur disquettes je
n'ai pas eu le courage ...
"Jacques93" a écrit dans le message de news: eQzh$
Bonjour heureux-oli,
Cette collection existe toujours sous Word 2007 et elle comporte 20 entrées.
Pour 2003 et 2007, ayant vérifié, je n'avais pas de doutes, c'est sur les versions antérieures que je ne peux l'affirmer. Bizarrement les versions 97, 2000, et 2002 ne sont plus disponibles sur le site MSDN, restent les versions 95, puis 2003 et 2007 :-(
Mes CD Office 2000 ayant rendus l'âme (RIP), et ayant 97 sur disquettes je n'ai pas eu le courage ...
Merci pour vos réponses. Je n'étais pas sur de moi. Au revoir "Patrick" a écrit dans le message de news:
Bonjour, Je voudrais, dans Userform, afficher les drniers fichiers ouvrts par ex : dans liste déroulante, et ouvrir celui choisi
Pouvez-vous m'aider SVP ?
Merci bien
Merci pour vos réponses.
Je n'étais pas sur de moi.
Au revoir
"Patrick" <patrick.chretien9@orange.fr> a écrit dans le message de
news:uSixkfteIHA.1188@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je voudrais, dans Userform, afficher les drniers fichiers ouvrts
par ex : dans liste déroulante, et ouvrir celui choisi