Récupérer nom ouverture fichier

[herve62]

Bonsoir
Avec l'instruction :

chemin = "C:\DATA"    ' MODIFIER ICI LE CHEMIN REPERTOIRE
MsgBox "Ouvrez votre fichier DEVIS"
Application.Dialogs(xlDialogOpen).Show (chemin)

Peut-on récupérer le nom du fichier que l'on vient d'ouvrir ?
Ou y a t-il une instruction autre ?

 

[laurent950]

Re : Récupérer nom ouverture fichier

Bonsoir,

Avec cette instruction :

' Chemin du classeur
MsgBox ThisWorkbook.Path

' Nom du classeur
MsgBox ThisWorkbook.Name

Laurent

 

[mapomme]

Re : Récupérer nom ouverture fichier

Bonsoir Hervé62 🙂, bonsoir laurent950 🙂

Voir le code:

Sub toto()
  chemin = "C:\"    ' MODIFIER ICI LE CHEMIN REPERTOIRE
  MsgBox "Ouvrez votre fichier DEVIS"
  If Application.Dialogs(xlDialogOpen).Show(chemin) Then
    MsgBox "Chemin= " & ActiveWorkbook.Path & vbLf & vbLf & _
    "Fichier= " & ActiveWorkbook.Name
  Else
    MsgBox "Aucun fichier sélectionné"
  End If
End Sub

 

[herve62]

Re : Récupérer nom ouverture fichier

Bonsoir Tous , Laurent , Luc
entre temps j'ai trouvé un truc , je mets dans INITIALIZE de mon USF :

chemin = "C:\DATA"    ' MODIFIER ICI LE CHEMIN REPERTOIRE
MsgBox "Ouvrez votre fichier DEVIS"
'Application.Dialogs(xlDialogOpen).Show (chemin)
Rep = Application.GetOpenFilename()
    If Rep <> False Then
        tmpStr = Split(Rep, "\")
        nomFichier = tmpStr(UBound(tmpStr))
        Workbooks(nomFichier).Open
        End If

jusque là ça va
Sauf que après j'ai un code dans la feuille "START"

Private Sub Worksheet_Activate()

Presta.Show 0
End Sub

Presta.Show 0 >
et là Y veut plus afficher mon USF ? alors que c'est au démarrage !!!! donc pourquoi le INITIALIZE de l'USF démarre
et que après Y me met ERREUR en repartant vers Presta.Show ???
Ca repart en arrière ???? Fatigue ou je pige plus ???

 

[mapomme]

Re : Récupérer nom ouverture fichier

re,

et comme ceci ?:

Private Sub UserForm_Initialize()
  MsgBox "Ouvrez votre fichier DEVIS"
  Rep = Application.GetOpenFilename()
  If Rep <> False Then Workbooks.Add Rep
End Sub

 

[herve62]

Re : Récupérer nom ouverture fichier

Bonjour
Oui a va , mais faut que je remette l'instruction UBound pour mettre le nom dans une variable
Et là encore un truc bizarre , que j'ouvre n'importe quel fichier xxxxx.xlsx le nom affiché en haut est TOUJOURS
xxxxx1.xlsx ????? donc à cause de ce 1 ma sun plante ... forcément dans la sub OK1 lorsque arrive :
Workbooks(nomFichier).Activate
J'ai testé en 2003 : Idem
J'ai pris un fichier test2.xlsx , si je veux quitter on me demande "Enregistrer ?" et je vois le nom "test23.xlsx ???????? KESAKO
Au début ma variable "nomFichier" s'appelle bien "test2.xlsx"
A rien n'y comprendre !!!!! enfin pas moi !!
Donc j'ai repris le code de MAPOMME :

MsgBox "Ouvrez votre fichier DEVIS"

     Rep = Application.GetOpenFilename()
   If Rep <> False Then Workbooks.Add Rep
   tmpStr = Split(Rep, "\")
nomFichier = tmpStr(UBound(tmpStr))
end sub