Ouvrir un fichier PDF et détecter le bon nom de fichier

Bonjour à tous,

Je souhaite à l'aide d'une macro VBA ouvrir le bon fichier PDF qui se situe dans un répertoire composé de plusieurs fichiers.

Le nom de chaque fichier est composé comme suit :

Num1 - Num2 - Nom1 - Nom2 - Num3 - Nom4

Je souhaiterais ouvrir le bon fichier en définissant des variables connues qui sont Num1 et Nom2.

Comment puis-je faire pour que excel lise le nom des fichiers du répertoire comportant mes 2 variables et m'ouvrir le fichier recherché.

J'espère avoir été suffisamment clair et vous remercie de l'attention que vous porterez à ma requête

Salut!

Si tu as tes variables définies tu peux utiliser ça:

Dim stAppName As String
Dim Num1, Num2, Num3, Num4 as string
Dim nomfichier as string

nomfichier = Num1 & Num2 & Num1 & Num2 & Num3 & Num4 & ".pdf"

 stAppName = "C:\LE_CHEMIN_DE_ACROBAT\Acrobat.exe C:\LE_CHEMIN_DE_TON_FICHIER\" & nomfichier

 Call Shell(stAppName)

En espérant que ca t'aide

Merci de ton aide mais je pense que tu m'as mal compris. Je connais 2 variables NUM1 et NOM1 qui sont 2 chaines de caracteres au sein d'une chaine de caractere qui est le nom du Fichier. Seulement cette chaine est variable.

J'essai a présent une autre méthode qui ne prend en compte que la variable NUM1 qui est toujours située au début du titre du fichier.

Sachant que les fichiers commençant par NUM1 peuvent se trouver dans 3 repertoires différents, j'ai entamé un code qui ne fonctionne pas bien puisque il ne prend pas en compte les fichiers situés dans tous les repertoires.

Sub Open_MTR()
Sheets("Feuille de saisies").Activate
HnHub = Range("D106")
CheminNom1 = "\\vitcifs1\Groupes\piping2\Commun\02 - AQ\Certificats matières\Certificat 3.1B\2009\"
Fichier1 = Dir(CheminNom1 & "*" & HnHub & "*")
    While Fichier1 <> ""
CheminMTR = CheminNom1 & Fichier1
ActiveWorkbook.FollowHyperlink Address:=CheminNom1 & Fichier1
Fichier1 = Dir()
Wend  
CheminNom2 = "\\vitcifs1\Groupes\piping2\Commun\02 - AQ\Certificats matières\Certificat 3.1B\2010\"
Fichier2 = Dir(CheminNom2 & "*" & HnHub & "*")
    While Fichier2 <> ""
CheminMTR = CheminNom2 & Fichier2
ActiveWorkbook.FollowHyperlink Address:=CheminNom2 & Fichier2
Fichier2 = Dir()
Wend
CheminNom3 = "\\vitcifs1\Groupes\piping2\Commun\02 - AQ\Certificats matières\Certificat 3.1B\2011\"
Fichier3 = Dir(CheminNom3 & "*" & HnHub)
    While Fichier3 <> ""
CheminMTR = CheminNom3 & Fichier3
ActiveWorkbook.FollowHyperlink Address:=CheminNom3 & Fichier3
Fichier3 = Dir()
Wend
CheminNom4 = "\\vitcifs1\Groupes\piping2\Commun\02 - AQ\Certificats matières\Certificat 3.1B\2012\"
Fichier4 = Dir(CheminNom4 & "*" & HnHub & "*")
     While Fichier4 <> ""
CheminMTR = CheminNom4 & Fichier4
ActiveWorkbook.FollowHyperlink Address:=CheminNom4 & Fichier4
Fichier4 = Dir()
Wend
CheminNom5 = "\\vitcifs1\Groupes\piping2\Commun\02 - AQ\Certificats matières\Certificat 3.1B\2013\"
Fichier5 = Dir(CheminNom5 & "*" & HnHub & "*")
    While Fichier5 <> ""   
CheminMTR = CheminNom5 & Fichier5   
ActiveWorkbook.FollowHyperlink Address:=CheminNom5 & Fichier5
Fichier5 = Dir()
Wend
End Sub
Rechercher des sujets similaires à "ouvrir fichier pdf detecter bon nom"