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