Discussion :

[arnaud.j92]

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 :

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

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 :

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

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

ou

Code :

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

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

ou

Code :

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

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

...

Comment peut on activer ce classeur?

Merci beaucoup de votre aide

[Kimy_Ire]

Code :

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

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 !

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

[Invité]

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 !

[arnaud.j92]

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

[Kimy_Ire]

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 :

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
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