Récupérer l'adresse de provenance d'un fichier Linux

Bonjour,

Je travaille sur un macro dont l'objectif est de récupéré le nom du fichier dès son ouverture et le mettre en commentaire sur la cellule A1 de ce fichier. Sauf que j'aimerais pouvoir le récupérer sous Linux et non Windows.

J'ai réussi à faire ça pour le moment.

 
 Sub fichier(Optional Fichier=" ")
 Dim location As String

  If QuelFichier = "" Then
    QuelFichier = Application.GetOpenFilename(, , "Sélectionnez votre source de données")
    End If
  If QuelFichier = False Then
    Msgbox "Vous n'avez pas sélectionné de fichier"
  Else

 location = Range("A1").FormulaR1C1
 Cells(1, jmax).Clear
        Cells(1, 1).AddComment
        Cells(1, 1).Comment.Visible = True
        Cells(1, 1).Comment.text text:="Ce fichier provient de " & location

End Sub

Je suis tombé sur ce code en farfouillant, mais je ne sais pas comment l'adapter à ma situation.

Function recherchedossier()
' @+thierry_xld et michel_m
Dim ObjShell As Object, ObjFolder As Object
Dim Message As String
Dim Chemin As String

Message = "Faire la Sélection du Repertoire de sauvegarde:"

Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1)

    On Error Resume Next 'Si on sort sans sélection
    Chemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & "\"
    If Chemin = "" Then End
    recherchedossier = Chemin
End Function

Merci d'avance, pour votre aide.

bonjour,

si le code que tu as mis s'exécute sans message d'erreur

voici un correction (non testée)

Sub fichier(Optional Fichier=" ")
 Dim location As String

  If QuelFichier = "" Then
    QuelFichier = Application.GetOpenFilename(, , "Sélectionnez votre source de données")
    End If
  If QuelFichier = False Then
    Msgbox "Vous n'avez pas sélectionné de fichier"
  Else

 location = Range("A1").FormulaR1C1
 Cells(1, jmax).Clear
        Cells(1, 1).AddComment
        Cells(1, 1).Comment.Visible = True
        Cells(1, 1).Comment.text text:="Ce fichier provient de " & QuelFichier

End Sub

si tu reçois un message d'erreur, lequel et sur quelle instruction ?

Bonjour,

Merci pour ta réponse.

Cependant cela ne règle malheureusement pas mon problème.

Puisque ça ne permet pas de récupérer le chemin du fichier présent dans une arborescence Linux.

Avez vous d'autres pistes ?

Merci d'avance.

Bonjour,

h2so4 ,

Est-ce que tu as essayé :

MsgBox ActiveWorkbook.FullName

Merci Oxydium pour ta réponse,

Dans l'idée c'est ce que je recherche, mais sous forme de commentaire dans le fichier.

En faite, tout simplement récupérer directement le nom du fichier qui vient de s'ouvrir et l'afficher en commentaire

re-bonjour,

pour ma compréhension.

tu ouvres un classeur excel et tu veux mettre son nom complet en commentaire de la cellule A1 de la feuille 1 de ce classeur?

ou tu as un classeur excel (appelons-le M) qui lance une macro qui va choisir un fichier excel à ouvrir et mettre le nom de ce fichier excel en commentaire de la cellule A1 de la feuille 1 du classeur M ?

ou tu as un classeur excel (appelons-le M) qui lance une macro qui va choisir un fichier excel à ouvrir (appelons-le O), l'ouvre et met le nom de ce fichier excel en commentaire de la cellule A1 de la feuille 1 ce classeur O ?

Re bonjour h2so4,

"ou tu as un classeur excel (appelons-le M) qui lance une macro qui va choisir un fichier excel à ouvrir (appelons-le O), l'ouvre et met le nom de ce fichier excel en commentaire de la cellule A1 de la feuille 1 ce classeur O ?"

C'est exactement ça

rebonjour,

à tester

Sub Fichier(Optional Fichier = "")

    Dim location As String

    If Fichier = "" Then
        Fichier = Application.GetOpenFilename(, , "Sélectionnez votre source de données")
        If Fichier = False Then
            MsgBox "Vous n'avez pas sélectionné de fichier"
            Exit Sub
        End If
    End If

    Set wb = Workbooks.Open(Fichier)

    Cells(1, jmax).Clear
    Cells(1, 1).AddComment
    Cells(1, 1).Comment.Visible = True
    Cells(1, 1).Comment.Text Text:="Ce fichier provient de " & Fichier
    'wb.save 'pour sauver le fichier avec la modification enlever le ' devant wb
    'wb.close 'pour fermer le fichier enlever le ' devant wb
End Sub

Bonjour et merci h2soe4,

J'ai réussi à régler mon problème avec cette base.