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

 

[thomashty]

Re : Problème boîte de dialogue

Ah bon ?! C'est vraiment bizarre alors..

 

[gilbert_RGI]

Re : Problème boîte de dialogue

j'ai fait le test sur le 64 et ça fonctionne

moi non plus je n'y comprends rien

 

[thomashty]

Re : Problème boîte de dialogue

Ma version c'est une Microsoft Office Professionnel Plus 2010 (32bits), c'est vraiment pénible cette incompatibilité entre les 32 et 64 !!
A croire qu'un document excel est destiné à rester sur un même poste 😡

Bon je vais voir ce que je peux faire, merci encore Gilbert 🙂

 

[Lone-wolf]

Re : Problème boîte de dialogue

Re gilbert, thomashty,

Moi aussi j'utilise M.O.P 32bits.Vas-t-il falloir prendre un 64???. That's is the question.


A+ 😎

 

[JM27]

Re : Problème boîte de dialogue

Bonsoir
En XL2010 (professionnel plus) version 32 bit : RAS
Affichage correct du lien dans la textbox et transfert correct des données dans la feuille

 

[Lone-wolf]

Re : Problème boîte de dialogue

re à tous les deux,

je viens de tester sur un autre ordi la nouvelle macro de gilbert avec Office Pro 32bits, et là
miracle ou bizarre??? Et bien ça marche. J'ai bien le lien dans la textbox.





A+ 😎

 

[thomashty]

Re : Problème boîte de dialogue

OK C'EST BON !!

Je ne sais par quel miracle ça à l'air de fonctionner 😉

Merci infiniment Gilbert et les autres pour votre patience et votre aide

Je vais passer un agréable weekend grâce à vous!!

Thomas, un forumeur heureux 😱

 

[gilbert_RGI]

Re : Problème boîte de dialogue

il y a aussi la possibilité de passer par une feuille temporaire

Private Sub CommandButton_Ajouter_Lien_Click()
    Dim shtoto As Worksheet
    Application.ScreenUpdating = False
    Set shtoto = Sheets.Add(After:=Sheets(Sheets.Count))
    shtoto.Name = "tempo"
    shtoto.Range("a1").Select
    Application.Dialogs(596).Show
    Me.TextBox_Lien = shtoto.Range("a1")
    shtoto.Range("a1") = ""
    Application.DisplayAlerts = False
    shtoto.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

et ne me dit pas que ça ne fonctionne pas

Bon WE

 

[Lone-wolf]

Re : Problème boîte de dialogue

Et ne me dit pas que ça ne fonctionne pas

😡 😡 Grrrrrrr!!! ça fonctionne!! 😉 😀


Très bon weekend à vous deux.


Amicalement Lone-wolf 😎