Discussion :

[discus23]

Bonjour,

Je cherche à ouvrir 2 fichiers xls en passant par une fonction :

Code :

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

1
2
3
 
Call openFiles(fichier1, "FICHIER1")
Call openFiles(fichier2, "FICHIER2")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function openFiles(ByRef fichier As Variant, ByVal Nom As String) As String
 
Do
    fichier = Application.GetOpenFilename(, , "SELECTIONNER " & Nom)
        If fichier = False Then
        toto = MsgBox("Fin du programme.", vbExclamation)
        Exit Function
    End If
    Workbooks.Open Filename:=fichier
Loop Until fichier Like ("*" & LCase(Nom) & "*")
 
End Function

Jusque là pas de problème, cela me donne le résultat escompté, les 2 fichiers s'ouvrent.

Le problème étant que j'aimerais récupérer le nom de ces 2 fichiers dans le programme principal afin de pouvoir les utiliser (pour les fermer par exemple).
Mais je n'y arrive pas....

Cela est-il possible ? Et si oui, comment le réaliser ou quelle piste dois-je suivre pour y arriver?

D'avance merci!

[COCONUT2]

bonjour
Lorsque tu ouvres un fichier, il est actif.
Tu peux alors, juste apres l'avoir ouvert, enregistrer son nom dans une variable du type:

Code :

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

nomfichier1 =active.workbooks.name

l'autre possibilité et de récupérer son numéro dans la liste de la collection workbook que je récupère par une petite boucle:

Code :

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

1
2
3
4
5
for i=1 to workbook.count
     if workbook(i).name=active.workbooks.name then
             nofichier=i
      end if
next

ces deux méthodes donnent le meme résultat

bonn journée
Christophe

[discus23]

Et oui, tout simplement...
Mais lorsque je place le active.workbooks.name dans le programme principal, j'ai une erreur 424 en retour : 'Objet requis'

[discus23]

En fait tout cela marche très bien, il semble juste ne pas y avoir de point entre active et workbook pour que cela fonctionne chez moi :
ActiveWorkbook.Name

Encore merci !!

[COCONUT2]

de rien,
N"oulie pas de flaguer comme RESOLU

[Invité]

à titre d'info:

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
Public Function openFiles(ByRef fichier As Variant, ByVal Nom As String) As Workbook
 
Do
    fichier = Application.GetOpenFilename(, , "SELECTIONNER " & Nom)
        If fichier = False Then
        toto = MsgBox("Fin du programme.", vbExclamation)
        Exit Function
    End If
   Set openFiles = Workbooks.Open(Filename:=fichier)
Loop Until fichier Like ("*" & LCase(Nom) & "*")
 
End Function
Sub test()
Dim wb As Workbook
Set wb = openFiles("C:\Fichier.xls", "Fichier.xls")
wb.Close False
End Sub