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

Macros et VBA Excel Discussion :

Lancer une recherche dans un PDF ouvert dans un WebBrowser


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Octobre 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Octobre 2018
    Messages : 4
    Par défaut Lancer une recherche dans un PDF ouvert dans un WebBrowser
    Bonjour,

    Je cherche à réaliser un fichier Excel pour afficher certaines pages d'un gros PDF (1000pages). Le but est d'aider l'utilisateur à visualiser simplement les page voulues du PDF grâce à un mot qu'il transmet et une recherche type CTRL+F. Dans un second temps je rajouterai un userform multipage pour revenir sur les pages qu'il a déjà ouvertes.

    J'utilise actuellement un userform avec un webbrowser qui affiche le PDF voulu. Jusque la ça marche. Je bloque sur l'ouverture du PDF à la bonne page, Je voudrai utiliser SendKeys "^f" pour y arriver mais avant cela il faut réaliser un click sur le webbrowser qui affiche le PDF. Car même en utilisant userform1.Webbrowser1.SetFocus ça ne marche pas, le PDF n'est pas sélectionné et le CTRL+F se fait dans le vide.

    Il y a la fonction search dans les paramètres d'ouverture du PDF que j'ai abandonné car elle ne permet que de cherche un mot et pas une string de mots. Et elle laisse ouvert le panneau de recherche ce qui ne me va pas.

    Voici la partie correspondante du code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub UserForm_Initialize()
     
    With Page1.Web2
    .Move Left:=Application.Width / 2 + 10, Top:=10
    .Navigate "about : blank"
    .Navigate "C:\Users\9009078B\Desktop\Perso\cours excel\ImpressionS9\Test.pdf"
    .Width = Application.Width / 2 - 30
    .Height = Application.Height - 50
    End With
     
    End Sub
    Que dire de plus à part que je suis débutant
    Merci d'avance de votre aide

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Octobre 2018
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Octobre 2018
    Messages : 4
    Par défaut
    Merci Kiki29 pour ta réponse,

    Je code encore très simplement et je n'arrive pas assez à comprendre les lignes de codes pour pouvoir les adapter à mon besoin.

    S'il existe une réponse simple à mon problème, comme sélectionner le pdf dans un webbrowser pour que les raccourcis envoyés par SendKeys marche je suis preneur Je souhaite me passer d'Acrobat car les différents utilisateurs du Excel ne l'auront pas tous.

    Sinon je vais continuer à essayer de comprendre le code des programmes que tu as présenté.

  4. #4
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132

Discussions similaires

  1. Réponses: 1
    Dernier message: 18/11/2010, 20h15
  2. [OpenSSL] Signer un PDF ouvert dans un navigateur
    Par Antho13 dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 21/05/2008, 15h34
  3. Réponses: 7
    Dernier message: 18/11/2007, 11h38
  4. [VBA]lancer une macro à chaque changement de cellule dans une feuille
    Par freddddd dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/05/2007, 13h58
  5. [VBA]Macro pour lancer une recherche dans un tableau
    Par manhes dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/04/2007, 18h08

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