Microsoft 365 webbrowser

[pelerin65]

Bonjour le forum,

voilà, j'ai réussi à créer un userform et alimenter un combobox

le tri se fait par la combobox dans la listebox

J'aimerai pouvoir cliquer sur la ligne de l'item de la listebox et que le document ouvre directement dans un web browser.

lirePDF.xlsm

j'ai recherchais sur le web une solution mais je ne trouve pas un fil avec cette idée (sauf le deuxième userform (nommé Form_PDF) dans le fichier mais qui liste tout le dossier ou sont stocker mes pdf)

les fichiers sont dans un dossier avec comme référence le N° RT

l'idée es de pouvoir avoir un tri par la ville de la combobox

 

[pelerin65]

Bonjour Zon,

dans ma version final, l'usf s'ouvre à partir d'un autre usf le combobox se remplis bien mais je n'ai pas de résultats dans la listebox surement un problème adressage de recherche sur la feuille correspondante.

jouvre le lecteur avec la commande PDF

je te joins mon projet final pour mieux comprendre le souci
Merci j'ai beaucoup avancé
cordialement

 

[Zon]

Salut ,

Tu as oublié de rajouter le test pour l'existence du fichier dans navigatePDF , voir post #9 .

C'est bien un problème d'adressage , comme tu ouvres ton USF depuis la feuille "Notes Loc Ng", cela devient la feuille active. Donc ta récup de données dans combobox1 sera vide. Il suffit de dire au programme sur quelle feuille aller chercher. Modifies ton code , voilà comment on peut l'écrire bien mettre le . devant cells etc ..

With Sheets("RT")
      DerLigne = .Range("A65535").End(xlUp).Row
      For i = 2 To DerLigne
         If .Cells(i, 1) = ComboBox1 Then
           'MyArray(ligne, 0) = Cells(i, 1)
            MyArray(ligne, 0) = .Cells(i, 2)
            MyArray(ligne, 1) = .Cells(i, 3)
            ligne = ligne + 1
         End If
      Next i
   End With

A+++

 

[pelerin65]

re,
J'ai fait les changements comme tu m'as dis
ça ne fonctionne pas, hélas

Je ne vois pas pourquoi?
et ça me donne ça comme résultat
désolé de te dérangé.

 

[pelerin65]

re,
J'ai fait les changements comme tu m'as dis
ça ne fonctionne pas, hélas

Je ne vois pas pourquoi?
et ça me donne ça comme résultat
désolé de te dérangé.

Regarde la pièce jointe 1173606

si je me mets sur l'onglet RT ca fonctionne c est bizarre que dans la code vba "with sheets ("RT") ca veux dire ca non, si je me trompes pas

 

[Zon]

Bon à priori il te trouve des données mais pas les bonnes colonnes..

Je te mets le fichier qui fonctionne chez moi.

 

[pelerin65]

re,
Zon
je te remercie de ton aide apporter afin de finir le plus gros de mon fichier de recherche de pdf avec le lecteur intégré.
merci encore