[E-07] getopen filename

Version imprimable

Bonjour le forum
j'ai fais une petite appli qui tourne bien et qui consiste a ouvrir trois fichier et en extraires des infos après qu'on lui eu désigné le bon repertoire., au départ, je l'avais créer en E2003.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub bilan() Dim stFichier stFichier = Application.GetOpenFilename With Application.FileSearch .NewSearch .LookIn = cheminbalance(stFichier) .Execute On Error Resume Next ScreenUpdating = False For Each f In .FoundFiles Workbooks.Open f 'ici, le code ouvre en boucle les trois fichiers que contient le repertoire ' et tout marche bien Next f End Sub
ensuite, je l'ai modifié pour qu'elle tourne en E2008 ou getopenfilename ne fonctionne plus
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub lameme_avec_2008() Dim fd As FileDialog, NC As Variant, Chemin As String Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd If .Show = -1 Then For Each NC In .SelectedItems Chemin = Left(NC, Len(NC) - InStr(StrReverse(NC), "\")) & "\" NomFich = Dir(Chemin & "\", vbNormal) Application.Visible = False Do While NomFich <> "" Workbooks.Open Chemin & NomFich 'ici le code Next NC End Sub
mais voila, je dois la modifier, et si moi je travaille en 2008, l'appli va tourner sur d'autres excels que je ne connais pas. comment je peux faire ?
ma question est : est il possible de faire fonctionner l'une ou l'autre des deux façons en fonction de la detection de la version d'excel ?
merci d'avance.
edit
ou bien, existe t'il une méthode qui fonctionne sur toutes les versions ?
question connexe , puis je réinstaller mon viel excel 2003 parallellement a excel 2008 pour faire des tests ?

27/09/2008, 02h56
tirex28

Bonsoir,

Tu parle de la version Mac d'Excel ou tu fais une confusion avec Excel 2007 pour Windows? Dans le 1er cas je ne peux rien dire, dans le 2eme je serais tres étonné que GetOpenFileName ne soit plus supporté. Par contre FileSearch a bel et bien disparu. Tu peux trouver une solution de remplacement ici

Sinon tu peux tester la version d'Excel avec Application.Version et executer l'une ou l'autre de tes procedures selon le cas.

Cordialement,

Tirex28/
27/09/2008, 07h46
alsimbad

merci pour la reponse. en fait oui, je parle bien de la disparition de filesearch ( j'ai du retard, je ne l'ai eu qu'en 2008 moi :D ). j'ai suivi le lien, si j'utilise classe file search du tuto, es ce que cela va fonctionner sur les excel precedent sans que eux ai a activer des references ?
j'ai bien essayé application.version, il me retourne 12.0 , es ce que cela signifie que les versions antérieures sont < 12 ?
je complete ma reponse, j'ai bien installé et utilisé le complement clfilesearch, mais ça ne me donne rien, je ne parviens pas a faire en sorte que la boite de dialogue "ouvrir" apparaisse et permette de choisir le repertoire. mais si n'etait que pour faire ça, la solution que j'utilise (#2 de mon premier post, je crois que c'est un code d'ouskel) convient très bien. le vrai probleme, c'est de construire avec 2007 un code qui fonctionne sur une version precedente ET sur la mienne.
27/09/2008, 12h03
Invité

Bonjour Alsimbad,

Les différentes versions d'Office :

Office 92 version 3.0
Office 94 version 4.0, 4.2, 4.3
Office 95 version 7.0
Office 97 version 8.0
Office 2000 version 9.0
Office XP version 10.0
Office 2003 version 11.0
Office 2007 version 12.0
27/09/2008, 12h03
tirex28

Bonjour,

Citation:

le vrai probleme, c'est de construire avec 2007 un code qui fonctionne sur une version precedente ET sur la mienne.

Dans ce cas il me semble qu'il n'y pas d'incompatibilité entre ton code #2 et les versions d'Excel postérieur à 2000.

Cordialement,

Tirex28/

Quelle est ta question ?
1 - Sélectionner un répertoire puis ouvrir plusieurs classeurs sélectionnés dans ce répertoire ?
2 - Sélectionner un répertoire et ouvrir tous les fichier de ce répertoire ?
Parce que si c'est le premier cas, tu as dans Excel une boîte de dialogue qui ne devrait pas avoir disparu dans 2007 pour une question de compatibilité avec les versions antérieures :
Code:

1 2 3 4 5 6 Dim Chemin as string, r as boolean ''faux si aucun fichier sélectionné 'si vrai, alors tu peux obtenir le nom du répertoire si tu en as toujours besoin If Application.Dialogs(xlDialogOpen).Show then Chemin = ActiveWorkbook.Path Endif
Bref, je n'ai pas compris la finalité de la chose ;)
A+

Edit
Si If Application.Dialogs(xlDialogOpen).Show ne fonctionne pas, teste avec

Code:

If Application.Dialogs(1).Show

27/09/2008, 20h40
alsimbad

merci pour vos réponses.
jacque jean, merci pour les version, si j'arrive pas a faire ce que je veux, je pourrais probablement passer par if application.version < 12
tirex, moi, je ne peux plus tester ce code, mais il semble qu'il n'ait pas fonctionner chez la personnes qui l'a reçu, es ce que ce pourrait etre juste une question de reference ? (je rééssairai de voir ça en début de ce semaine)
ouskel c'est le 2. on selectionne un repertoire, au pire on pointe un fichier de ce repertoire, et le programme ouvre successivement tout les fichiers de ce repertoire prend les données, et les referme. j'ai testé les codes que tu as transmis, ils pourraient convenir puisqu'ils ouvrent bien le fichier, mais je ne sais pas compter les fichiers du repertoires pour les ouvrir successivement
27/09/2008, 21h32
JackOuYA

Bonsoir,

GetOpenfilename , fonctionne sous 2007...

c'est pas plutôt fileSearch le problème ?

voir

http://silkyroad.developpez.com/vba/classefilesearch/

:roll:

Citation:

ouskel c'est le 2. on selectionne un repertoire, au pire on pointe un fichier de ce repertoire, et le programme ouvre successivement tout les fichiers de ce repertoire prend les données, et les referme. j'ai testé les codes que tu as transmis, ils pourraient convenir puisqu'ils ouvrent bien le fichier, mais je ne sais pas compter les fichiers du repertoires pour les ouvrir successivement

Tu peux utiliser Dir, fonction de vba, comme l'exemple donné dans l'aide ligne.
A tout hasard, si tu ne l'as pas, adapté à ton pb
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub test() Dim Chemin As String, chemin as string, FirsWk as string If Application.Dialogs(xlDialogOpen).Show Then Chemin = ActiveWorkbook.Path FirstWk = ActiveWorkbook.Name End If NomFich = Dir(Chemin & "\*.xls", vbNormal) Do While NomFich <> "" ' Commence la boucle. If NomFich <> FirstWk Then Workbooks.Open Chemin & NomFich End If NomFich = Dir Loop End Sub
Ceci étant, si SilkyRoad propose un code plus mieux sioux avec GetOpenfilename, c'est toi qui choises ;)
Bonne nuit

ce code fonctionne bien avec 2007, je l'ai juste modifié sur le chemin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub test()
Dim chemin As String, FirsWk As String
    If Application.Dialogs(xlDialogOpen).Show Then
        chemin = ActiveWorkbook.Path & "\"
        FirstWk = ActiveWorkbook.Name
    End If
    NomFich = Dir(chemin & "\*.xls", vbNormal)
    Do While NomFich <> ""    ' Commence la boucle.
        If NomFich <> FirstWk Then
            Workbooks.Open chemin & NomFich
'code ici
        End If
        ActiveWorkbook.Close True
        NomFich = Dir
    Loop
End Sub

merci ouskel, je l'essaierai en début de semaine sur excel < 12.0
merci encore

28/09/2008, 10h01
ouskel'n'or

Attention : Ce code fonctionne peut-être mais si tu sélectionnes plusieurs fichiers dans la boîte de dialogue, il va te les ouvrir, pas de problème, mais dans la boucle, il ouvrira deux fois les premiers fichiers ouverts. Seul le dernier (FirstWk) ne sera pas ouvert deux fois. Si le code proposé par SilkyRoad fait mieux et fonctionne sur différentes versions, n'hésite pas ;)

jour tout le monde
j'ai fais mes verifs
le code d'ouskel fonctionne bien sur E07 et version anterieures. mais je l'ai simplifié

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
Dim chemin As String, FirsWk As String
    Application.Dialogs(xlDialogOpen).Show
        chemin = ActiveWorkbook.Path & "\"
    NomFich = Dir(chemin & "\*.xls", vbNormal)
    Do While NomFich <> ""    ' Commence la boucle.
            Workbooks.Open chemin & NomFich
MsgBox ActiveWorkbook.Name ' code
        ActiveWorkbook.Close True
        NomFich = Dir
    Loop
End Sub

merci tout le monde

01/10/2008, 10h24
ouskel'n'or

En "simplifiant", tu sais tu ouvres deux fois le fichier actif en sortant de la boîte de dialogue ?
Bonne journée
01/10/2008, 19h24
alsimbad

non, pas du tout. j'opere a partir d'un fichier qui est n'importe ou, mais pas dans le repertoire concerné. quand je lui designe ce repertoire, il ouvre successivement les trois (mais ça pourrais etre plus) fichiers qui sont contenus. je n'ai pas d'autre effet connexes