Pb Activer un workbook avec plusieurs versions possibles

Bonjour,

J'ai une petite question concernant "Activate" vba Excel.
En fait je souhaiterais activer un classeur du type "developpez-net.xls"
Dans ce cas mon code est :

Code:

---

Workbooks("developpez-net.xls").Activate

---

Mais le problème c'est que je peux avoir des versions sur ce même classeur ("developpez-net-v2xls", "developpez-net-v3xls"...)
et du coup activer soit (selon le fichier Excel ouvert) :

Code:

---

Workbooks("developpez-net.xls").Activate

---

ou

Code:

---

Workbooks("developpez-net-v2.xls").Activate

---

ou

Code:

---

Workbooks("developpez-net-v3.xls").Activate

---

...

Comment peut on activer ce classeur?

Merci beaucoup de votre aide

Code:

---

1 2 3 4 5

Dim nom As String   nom = Dir("C:\Users\...\Desktop\developpez-net*.xls")   Workbook(nom).Activate

---

Dis moi si c'est bon ! :ccool:

EDIT : je pars du principe que ton fichier ne change pas de Directory ! ;)

Bonjour,
Ta question n’est pas très claire !
Tu veux ouvrir et activer le fichier Excel don version est la plus récente V3 plutôt que V2 ?
Toutes tes versions sont ouvertes dans Excel et tu veux afficher la plus récente ?
Comment tes versions ont-elles été ouvertes par macro, par l’utilisateur ?
Précise ta question !

Bonjour,

Merci Kimy_Ire, j'ai testé et çà ne marche pas malheureusement.

Effectivement rdurupt ma question n'est pas très bien formulée. Pour répondre point par point tes remarques :

• Je souhaite ouvrir la version la plus récente du fichier
• Seule la plus récente est ouverte dans Excel et on ne peut avoir dans Excel deux versions en même temps.
• C'est l'utilisateur qui génére une nouvelle version.

Merci beaucoup de votre aide

En effet, il me manquait des précisions.

Ce code renvoie le fichier qui a été modifié le plus récemment.

Dis moi si ca te convient ! (A toi de remplacer le Path).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub fichier_recent() Dim savedate, savefile, monfichier, datemodif   monfichier = Dir("C:\Users\...\Desktop\developpez-net*.xls")   While monfichier <> "" datemodif = FileDateTime("C:\Users\...\Desktop\" & monfichier)   If datemodif > savedate Then savedate = datemodif savefile = monfichier End If   monfichier = Dir() Wend   MsgBox savefile   End Sub

---