Problème boîte de dialogue

Lone-wolf

XLDnaute Barbatruc

• 11 Février 2016

• #2

Re : Problème boîte de dialogue

Bonsoir thomashty,

je viens de faire un test et j'ai bien cette BDD qui s'affiche.


A+ 😎

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 12 Février 2016

• #3

Re : Problème boîte de dialogue

Bonjour Lone-wolf,

Merci d'avoir essayer la manipulation, mais je sais pas si vous êtes aller au bout de la saisie, car quand je disais que ça ne faisait pas l'effet escompté ça me donne ça :

au lieu du lien du document.

Est ce que ça vous fait pareil ?

Merci d'avance

 

Pièces jointes

• Capture7.jpg

  34.5 KB · Affichages: 59

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 12 Février 2016

• #4

Re : Problème boîte de dialogue

Et lorsque j'essaie une deuxième fois de saisir voilà ce que ça me met...



Il faudrait juste pouvoir indiquer que lorsque je clique, la Boîte de Dialogue s’ouvre, je cherche le lien et l'inscrit dans ma Textbox

 

Pièces jointes

• Capture8.PNG

  4.7 KB · Affichages: 47

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Février 2016

• #5

Re : Problème boîte de dialogue

Bonjour thomashty,

Pourrais-ti me commenter les manipulations à faire pour que je puisse comprendre et faire le test? Merci.

EDIT: Je ne comprends pas pourquoi avec cette BDD il y a une erreur et pas avec les autres. 😕



A+ 😎

 

Dernière édition: 12 Février 2016

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 12 Février 2016

• #6

Re : Problème boîte de dialogue

Alors, sur la 1ère feuille "Liste de documents" en haut à gauche tu as une image, tu cliques dessus et ça t'ouvre le formulaire de saisie.
Ensuite dans le formulaire tu cliques sur le bouton pour ajouter un lien hypertexte, et c'est ça que je souhaiterai modifier. Ce bouton je voudrais qu'il m’ouvre la BDD "insérer un lien hypertexte"

 

Pièces jointes

• Outil de capitalisation V2-64bits.xlsm

  115.9 KB · Affichages: 73

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 12 Février 2016

• #7

Re : Problème boîte de dialogue

bonjour,

tester ceci

VB:

'Pour ajouter un lien
Private Sub CommandButton_Ajouter_Lien_Click()
Dim Fichier As Variant
ActiveSheet.Unprotect "toto"
'Fichier = Application.GetOpenFilename()
Fichier = Application.Dialogs(596).Show
If Not Fichier = "Faux" Then
    Me.TextBox_Lien.Value = Fichier
End If
ActiveSheet.Protect "toto"
End Sub

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Février 2016

• #8

Re : Problème boîte de dialogue

Bonjour Gilbert,

C'est ok pour moi. L'erreur venait parce que la feuille était protegée??
Mais comment afficher le fichier dans la textbox, celle-ci affche True.

Très bonne journée




Amicalement Lone-wolf 😎

 

Dernière édition: 12 Février 2016

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 12 Février 2016

• #9

Re : Problème boîte de dialogue

Bonjour,
Dans la textbox ça m'affiche toujours "TRUE" au lieu du lien...

 

Pièces jointes

• Capture7.jpg

  34.5 KB · Affichages: 39

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 12 Février 2016

• #10

Re : Problème boîte de dialogue

Haha Lone-wolf, au vu de tes "EDIT" je vois que tu as ciblé le problème 🙂

 

Dernière modification par un modérateur: 12 Février 2016

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 12 Février 2016

• #11

Re : Problème boîte de dialogue

à tester

VB:

Private Sub CommandButton_Ajouter_Lien_Click()
    ActiveSheet.Unprotect "toto"
    Application.ScreenUpdating = False
    Sheets(1).Range("b1").Select
    Application.Dialogs(596).Show
    Me.TextBox_Lien = Sheets(1).Range("b1")
    Sheets(1).Range("b1") = ""
    ActiveSheet.Protect "toto"
    Application.ScreenUpdating = True

End Sub

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 12 Février 2016

• #12

Re : Problème boîte de dialogue

Ça ne fonctionne pas de mon côté..

N'y aurait-il pas juste moyen de remplacer

Code:

Application.GetOpenFilename()

Par autre chose qui ouvrirait simplement la BDD ? En gros remplacer "GetOpenFilename" par le code VBA associé à cette foutu boîte de dialogue 😡

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 12 Février 2016

• #13

Re : Problème boîte de dialogue

désolé mais chez moi ça fonctionne
voir ce clip
Document Cjoint

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 12 Février 2016

• #14

Re : Problème boîte de dialogue

Ok Gilbert,
Le problème c'est ma version 32 bits, j'ai essayé sur un autre ordi 64bits, ça fonctionne.

Sous la 32, j'ai ceci

Décidement cette histoire me suit...

Merci beaucoup Gilbert

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 12 Février 2016

• #15

Re : Problème boîte de dialogue

ici je suis en 32bits
je vais essayer en 64 pour voir

 

Vote positif 0 Vote négatif