Problème boîte de dialogue

[thomashty]

Bonjour à tous,

Dans mon formulaire de saisie, j'aimerais que mon bouton ouvre la fenêtre suivante
plutôt que celle actuelle. J'ai essayé avec

Application.Dialogs(xlDialogInsertHyperlink).Show

et ça fait presque l'effet escompté mais pas tout à fait

Auriez vous une idée ?

Merci
TH

 

[Lone-wolf]

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+

 

[thomashty]

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

 

[thomashty]

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

 

[Lone-wolf]

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+

 

[thomashty]

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"

 

[gilbert_RGI]

Re : Problème boîte de dialogue

bonjour,

tester ceci

'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

 

[Lone-wolf]

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

 

[thomashty]

Re : Problème boîte de dialogue

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

 

[thomashty]

Re : Problème boîte de dialogue

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

 

[gilbert_RGI]

Re : Problème boîte de dialogue

à tester

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

 

[thomashty]

Re : Problème boîte de dialogue

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

N'y aurait-il pas juste moyen de remplacer

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

 

[gilbert_RGI]

Re : Problème boîte de dialogue

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

 

[thomashty]

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

 

[gilbert_RGI]

Re : Problème boîte de dialogue

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