Discussion :

[Invité]

Bonjour à toutes et à tous,

je m'adresse à vous car je rencontre un petit soucis dans un de mes classeurs Excel.

Je voudrai pouvoir ouvrir un fichier pdf en appuyant sur un bouton contrôle, mais je n'arrive pas à programmer cela.


Je vous laisse en pièce jointe le classeur modèlequi à une petite explication à coté du tableau.

Je vous Remercie d'avance Mesdames et Messieurs .

A+

[Philippe Tulliez]

Bonjour,
Un lien hypertexte permet entre autres

• d’atteindre un emplacement dans le classeur Excel actuel
• d’atteindre un emplacement dans un autre fichier Excel ou dans tout autre fichier suffixé doc, pdf, etc.
• ouvrir un fichier quelconque
• naviguer dans un répertoire existant
• un site Web
• écrire un mail

Personnellement, j'utilise la fonction LIEN_HYPERTEXTE

A lire éventuellement Comment atteindre un signet de Word depuis Excel à l’aide de la fonction LIEN_HYPERTEXTE

[Invité]

Bonjour Philippe,

Merci pour ce retour, cela fonctionne très bien.

Par contre j'ai un autre problème;

J'ai un dossier "stock principal" qui contient 1 classeur "essai stock" lequel j'ai mis en pièce jointe et qui a 3 feuilles, je souhaite pouvoir archiver chacune d'entre elles au format pdf dans un dossier archive qui se situe dans le dossier principal.

Auriez-vous une formule ou texte vba pour cela ?

Je vous Remercie d'avance

Cordialement CarTune

[Philippe Tulliez]

Bonjour,
Je n'ouvre jamais les pièces jointes dans les discussions sauf cas extrême et sur demande car une bonne explication avec éventuellement des images illustrant l'organisation des données est largement suffisante.
Pour exporter au format pdf, un classeur complet, une ou plusieurs feuilles de celui-ci, il y a lieu d'utiliser la méthode ExportAsFixedFormat

Voir ma réponse dans une discussion portant sur le même sujet.

[Invité]

Bonjour Philippe,

désolé de répondre que maintenant .

J'ai vu votre lien sur une autre page de forum et j'aurai besoin de votre aide SVP.

Alors voila, j'ai un classeur nommé " Facturation mensuelle". Dans ce classeur j'ai une feuille nommée " Archives de factures". Sachant que je voudrai stocker ces exports sur mon PC sous : C..........\Documents\Archives factures\2021

Alors avec vos deux exemples cités , je dois faire quel changement et ou SVP.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub T_2()
  Dim PathName As String
  Dim FileName As String
  Dim FullName As String
  Dim Sep As String
  Sep = Application.PathSeparator
  With ActiveSheet
    FileName = Format(Date, "yyyymmdd") & " " & .Name & " " & Year(Date) & ".pdf"
    PathName = .Parent.Path
    FullName = Path & Sep & FileName
    .ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullName
  End With
End Sub

Je vous Remercie d'avance

Cordialement CarTune

[Philippe Tulliez]

Bonjour,
La variable FullName doit contenir le chemin complet + le nom du fichier pdf
Personnellement, je travaille toujours avec un répertoire racine où se trouve le classeur principal et des sous-répertoires comme Template, Invoice, etc. ce qui permet au client de déplacer à sa guise le répertoire principal avec ses sous-répertoires sans avoir de bogues, d'où la ligne d'instruction PathName = ActiveSheet.Parent.Path qui renvoie le répertoire racine (à celui-ci j'ajoute le nom du sous-répertoire.

Il y a d'ailleurs une petite erreur dans la ligne que vous avez publiée, en rouge la correction a effectuer FullName = PathName & Sep & FileNameDonc si vous ne souhaitez pas travailler comme je viens de l'expliquer, vous devez placer un autre "path" suivi du nom du fichier pdf

[Invité]

Re Philippe,

Merci pour le retour.

Ce que j'aurai voulu, si vous n'y voyez pas d'inconvénients, c'est de me construire la macro avec les fichiers que je vous ai donné. Je ne suis vraiment pas trop dans tout cela, désolé

Merci à vous

[Philippe Tulliez]

Bonjour,
Je suis désolé mais ceci un site de développeur basé sur l'entraide mais pas du tout pour faire le travail à la place des personnes qui posent des questions.
Je pense vous avoir donné toutes les pistes.

[Invité]

Re

tout à fait . Désolé de vous avoir dérangé.

Cordialement CarTune