Ouverture d'un fichier quelque soit son emplacement avec VBA

Bonsoir tout le monde,

je suis un débutant en vba et demande votre précieuse aide . En effet, je cherche un code vba permettant de chercher dans l'ordinateur et d'ouvrir un ficher renseigné dans un input box ou dans un code. Je souhaite que la recherche et l'ouverture se fasse sur n'importe quel poste sera installée l'appli sans que je ne sois contraint de modifier le code lorsque je change d'utilisateur ou de poste.

D'avance merci pour votre aide

Bonjour

Je pense que Windows a besoin de connaitre le chemin d'accès.

Cordialement

Bonjour,

Soit tu le fais chercher par l'utilisateur (Application.GetOpenFilename), soit il est dans le même dossier que le classeur appelant ou un sous-dossier prédéfini de ce classeur...

De cette façon tu peux un code stable pour lancer l'ouverture...

Cordialement.

Amadéus a écrit :

Bonjour

Je pense que Windows a besoin de connaitre le chemin d'accès.

Cordialement

Merci Amadéus

Oui c'est vrai; mais pense qu'il y a un moyen de rechercher automatiquement et d'ouvrir un fichier via un code vba.

Voici un code que j'ai trouvé sur ce forum qui répond un peu à mon souci et que j'ai un peu du mal à adapter

Option Explicit 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ 
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _ 
, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 

Sub Macro1() 
Dim NomFic As String, sPath As String 
Dim x As Long 
x = FindWindow("XLMAIN", Application.Caption) 
sPath = Environ("USERPROFILE") 
sPath = sPath & "\mes documents\SGIIOC\" 
NomFic = "conditions générales.pdf" 
ShellExecute x, "print", sPath & NomFic, "", "", 1 

Mon adaptation

Dim NomFic As String, sPath As String 
Dim x As Long 
x = FindWindow("XLMAIN", Application.Caption) 
sPath = Environ("USERPROFILE") 
sPath = sPath & "\mes documents\Fiches 2017\VERIFICATION 2017" 
NomFic = "AVRIL 2017" 
ShellExecute x,"Open", sPath & NomFic 

End Sub

Je tiens à vous dire que je suis un débutant nul en vba

D'avance merci pour votre aide

Bonsoir je vous remercie pour l’intérêt que vous avez accordé à ma demande et pour vos approches de solution.

je n'ai pas encore trouvé de solution à mon souci; peut être que j'ai mal présenté mon souci.

Dieu vous bénisse!

Bonjour

Oui c'est vrai; mais pense qu'il y a un moyen de rechercher automatiquement et d'ouvrir un fichier via un code vba.

Ton adaptation (contrairement au titre de ton sujet) indique bien le chemin d'accés du fichier?

En clair, ta demande se résume à ouvrir le fichier?

A te lire

Cordialement

Bonsoir Amadeu

En effet, c'est ce que je veux; ouvrir le fichier mais sans contrainte de modification du code quand je change d'ordinateur (car je travail sur deux poste; l'un au service et l'autre à la maison). En somme, un code me permettant d'ouvrir mon fichier sans souci et contrainte d'adaptation du code à l'utilisateur; la macro recherchant automatiquement dans tous les disques présents sur mon poste et l'ouvre.

D'avance merci!!!

J'aimerais aussi savoir si c'est possible de l'ouvrir à partir d'un inputbox? Si oui j'airais aimé avoir ce dernier aussi.

merci !!!