Récupérer le nom complet d'un fichier stocké sur serveur

Version imprimable

09/07/2020, 13h46
Sites

Récupérer le nom complet d'un fichier stocké sur serveur

Bonjour,

J'utilise Application.GetOpenFilename pour permettre à un utilisateur de spécifier un nom de fichier à traiter.
Mais cela me ramène le chemin abrégé du répertoire de stockage (F:\...).

J'ai besoin de récupérer le chemin complet qui correspond au raccourci F: car cette dénomination est variable selon les utilisateurs.

Comment puis-je faire ?

Merci
09/07/2020, 14h10
Invité
Citation:

Envoyé par Sites

Bonjour,

Et avec FullName, ça donne quoi ?
Code:

1 2 Msgbox FichierAOuvrir.FullName
09/07/2020, 14h26
Sites

Merci Eric.

J'ai une erreur 424 Objet requis
09/07/2020, 14h28
Invité

Citation:

Envoyé par Sites

Dans mon exemple FichierAOuvrir est un objet WorkBook.

Citation:

Envoyé par Sites

J'ai une erreur 424 Objet requis

Dans ce code, y a-t-il une différence entre le chemin récupéré par GetOpenFileName et la propriété FullName du fichier une fois ouvert, dans votre cas ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub TestFullName() Dim FichierAOuvrir As Variant Dim FichierOuvert As Workbook FichierAOuvrir = Application.GetOpenFilename("Fichiers (*.xl*),*.xl*") Debug.Print FichierAOuvrir If FichierAOuvrir <> False Then Set FichierOuvert = Workbooks.Open(FichierAOuvrir) Debug.Print FichierOuvert.FullName End If End Sub

09/07/2020, 14h56
Sites

Maintenant j'ai

Citation:

Erreur d'exécution 1004 : Format de fichier non valide

Il s'agit pourtant d'un banal fichier Docx (J'en ai tenu compte dans le GetOpenFilename)
09/07/2020, 15h01
Invité

Citation:

Envoyé par Sites

Maintenant j'ai "Erreur d'exécution 1004 : Format de fichier non valide"
Il s'agit pourtant d'un banal fichier Docx (J'en ai tenu compte dans le GetOpenFilename)

Ce code s'applique à un fichier Excel... :D

Citation:

Envoyé par Sites

S'il s'agit d'un fichier Word :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub OuvrirUnFichierWord()
 
Dim wApp As Object
Dim DocAModifier As Object
Dim FichierAOuvrir As Variant
 
    FichierAOuvrir = Application.GetOpenFilename("Fichiers (*.doc*),*.doc*")
    If FichierAOuvrir = False Then Exit Sub
 
    Debug.Print FichierAOuvrir
 
    Set wApp = CreateObject("Word.Application")
    With wApp
              .Visible = True
              Set DocAModifier = .Documents.Open(Filename:=FichierAOuvrir)
             Debug.Print DocAModifier.FullName
             ' DocAModifier.Close
              Set DocAModifier = Nothing
             '.Quit
    End With
    Set wApp = Nothing
 
End Sub

09/07/2020, 15h20
Sites

Citation:

Envoyé par Eric KERGRESSE

Ce code s'applique à un fichier Excel... :D

Oui je sais bien.
J'ai supprimé dans le GetOpenFileName les références à l'ouverture d'un fichier xls.

Je suis dans un fichier Excel.
Avec une macro Excel.
Et l'utilisateur peut spécifier n'importe quel type de fichier. Et il n'est pas nécessaire de les ouvrir.
Il s'agit juste d'une pièce jointe à insérer en lien HT
09/07/2020, 15h21
Invité

Citation:

Envoyé par Sites

Faites l'essai avec mon dernier code pour voir s'il y a une différence dans la valeur retournée, bien que je ne le pense pas.
09/07/2020, 15h49
Sites

Citation:

Envoyé par Eric KERGRESSE

Faites l'essai avec mon dernier code pour voir s'il y a une différence dans la valeur retournée, bien que je ne le pense pas.

Je n'ai plus d'erreur.
Mais je ne récupère toujours pas le chemin complet
09/07/2020, 16h02
Invité

Citation:

Envoyé par Sites

Je n'ai plus d'erreur.
Mais je ne récupère toujours pas le chemin complet

Ok, alors désolé je ne pourrai pas vous aider plus sur cette voie.

En revanche, j'ai eu un problème un peu analogue chez un de mes clients équipé de 3 postes. Les chemins étaient différents sur chacun des postes et je récupérais un alias sur un des postes.
J'ai dû créer une table de correspondance dans le fichier Excel sur chacun des postes pour pointer sur les bons répertoires du serveur.
09/07/2020, 16h20
Sites

Citation:

Envoyé par Eric KERGRESSE

Ok, alors désolé je ne pourrai pas vous aider plus sur cette voie.

En revanche, j'ai eu un problème un peu analogue chez un de mes clients équipé de 3 postes. Les chemins étaient différents sur chacun des postes et je récupérais un alias sur un des postes.
J'ai dû créer une table de correspondance dans le fichier Excel sur chacun des postes pour pointer sur les bons répertoires du serveur.

Merci à vous Eric. C'est très sympa de votre part d'avoir essayé de m'aider.
Mais il y a beaucoup trop d'utilisateurs. Je ne peux faire ce que vous me proposez.
Encore Merci