IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Lien hypertexte ou macro pour ouvrir un PDF avec nom de fichier incomplet


Sujet :

VBA Word

  1. #1
    Futur Membre du Club
    Homme Profil pro
    dessinateur
    Inscrit en
    Novembre 2015
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : dessinateur
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2015
    Messages : 11
    Points : 5
    Points
    5
    Par défaut Lien hypertexte ou macro pour ouvrir un PDF avec nom de fichier incomplet
    Bonjour, je n'ai aucune connaissance pour ma demande.
    J'utilise Word 2010

    Je désire ouvrir par un lien hypertexte ou autre méthode un fichier pdf dont le nom de fichier change à chaque semaine selon une date et je n'ai aucune idée comment.

    Merci pour votre aide.

    Yan

  2. #2
    Rédacteur/Modérateur

    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    Février 2006
    Messages
    21 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Février 2006
    Messages : 21 087
    Points : 42 926
    Points
    42 926
    Par défaut
    Salut,

    Un lien hypertexte n'est pas "variable".
    Il te faudra donc une macro qui sera capable de prendre en compte certaines données qui seront variables.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

  3. #3
    Futur Membre du Club
    Homme Profil pro
    dessinateur
    Inscrit en
    Novembre 2015
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : dessinateur
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2015
    Messages : 11
    Points : 5
    Points
    5
    Par défaut
    Merci, c'est ce que j'avais pu comprendre avec mes recherches sur internet.

    J'ai commencer un début de code trouvé par ci et par là sur internet, mais il ne fonctionne pas.
    _____________________________________

    Sub Ouvrir_Tableau()
    Dim myFolder As String
    Dim myFile As String

    myFolder = "G:\CONSTRUCTION\Division Construction\Positionnement des équipements TMO\TABLEAU\"

    myFile = Dir(myFolder & "Tableau - position des équipements TMO (" & "*.pdf")

    If Dir(myFile) <> "" Then

    lngErr = ShellExecute(0, "open", myFile, "", "", vbNormalNoFocus)

    End Sub

    ______________________________

  4. #4
    Futur Membre du Club
    Homme Profil pro
    dessinateur
    Inscrit en
    Novembre 2015
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : dessinateur
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2015
    Messages : 11
    Points : 5
    Points
    5
    Par défaut
    Je crois bien avoir trouver un code qui fonctionne:
    ___________________________

    Sub Ouvrir_Tableau()

    Dim myFolder As String
    Dim myFile As String

    'Be sure to include a slash mark at end of file path
    myFolder = "G:\CONSTRUCTION\Division Construction\Positionnement des équipements TMO\TABLEAU\"

    'looking for pdfs
    myFile = Dir(myFolder & "Tableau - position des équipements TMO (" & "*.pdf")

    Set objShell = CreateObject("WScript.Shell")
    objShell.Run Chr(34) & myFolder & myFile & Chr(34)

    End Sub

    _________________________

Discussions similaires

  1. Réponses: 16
    Dernier message: 22/12/2015, 09h12
  2. Réponses: 11
    Dernier message: 31/07/2015, 15h52
  3. [XL-2003] Macro pour imprimer en pdf avec nom de fichiers variables
    Par YoTaPi dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 10/07/2014, 19h50
  4. Réponses: 2
    Dernier message: 19/12/2011, 19h20
  5. [XL-2003] lien hypertext : chemin absolu pour une copie de celulle entre deux fichier
    Par leprechaun dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 07/07/2009, 15h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo