recuparation nom fichier ouvert en vba

[sri75]

Bonjour, je travaille avec des macros dans un fichier ouvert ( ex base.xls ) et ces macros vont travailler dans un deuxieme fichier excel ouvert ( je n'ai jamais plus de deux fichiers ouverts ).

Jusqu'a la pas de probleme sauf que mon fichier dans lequel les macros vont travailler n'a pas toujours le meme nom.

premiere solution cree une boite de dialogue où on va taper la nom du ficher en question ( facile )

Deuxième solution qui me conviendrait mieux, recuperer automatiquement le nom du ficher qui n'est pas celui contenant les macros, pour le mettre dans une variable. ( ex la mcro contenue dans base.xls repere que destination.xls est également ouvert ).

Merci d'avance à tous pour vos idées sur ce point

 

[Pierrot93]

Re : recuparation nom fichier ouvert en vba

Bonjour,

tu peux peut être utiliser "ActiveWorkbook" si le classeur que tu recherches est au premier plan...

bon après midi
@+

 

[tototiti2008]

Re : recuparation nom fichier ouvert en vba

Bonjour sri75, re Pierrot 🙂

un essai

Function NomAutreClasseur() As String
Dim Wkb As Workbook
    NomAutreClasseur = ""
    For Each Wkb In Application.Workbooks
        If Not Wkb Is ThisWorkbook And LCase(Wkb.Name) <> "perso.xls" And LCase(Wkb.Name) <> "personal.xlsb" Then
            NomAutreClasseur = Wkb.Name
            Exit For
        End If
    Next Wkb
End Function

 

[sri75]

Re : recuparation nom fichier ouvert en vba

Super "Function" c'est exactement de que je cherchais, merci à tous et bonne journée