Discussion :

[Sites]

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

[Invité]

Bonjour,

Et avec FullName, ça donne quoi ?

Code :

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

1
2
 
Msgbox FichierAOuvrir.FullName

[Sites]

Merci Eric.

J'ai une erreur 424 Objet requis

[Invité]

Dans mon exemple FichierAOuvrir est un objet WorkBook.

[Invité]

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 :

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
 
 
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

[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)

[Invité]

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...

[Invité]

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

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
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

[Sites]

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

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

[Invité]

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.

[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.

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

[Invité]

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.

[Sites]

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