154 résultats trouvés

par Le_Troll_Du_27
8 février 2018, 23:48
Forum : Excel - VBA
Sujet : Affichage api google maps dans userform
Réponses : 3
Vues : 540

Re: Affichage api google maps dans userform

Voici ce que je me sers pour afficher google maps dans un WebBrowser Je n'ai pas télécharger ton fichier mais si n'y a pas d'erreur voici le code: Dans un module mettre le code suivant pour le WebBrowser '***** Programmation de la clé du registre "HKEY_CURRENT_USER" ***** Public Sub SetSettings(Opti...
par Le_Troll_Du_27
30 janvier 2018, 20:13
Forum : Excel - VBA
Sujet : UserForm - Outlook
Réponses : 11
Vues : 265

Re: UserForm - Outlook

lol
trop vite
For I = 1 To 36
    Me.Controls("CheckBox" & I).Value = True
Next I
par Le_Troll_Du_27
30 janvier 2018, 19:03
Forum : Excel - VBA
Sujet : Saisie numéro de téléphone dans une cellule
Réponses : 3
Vues : 70

Re: Saisie numéro de téléphone dans une cellule

'**** Correspond au programme de la ComboBox3 "Pays" **** Private Sub ComboBox3_Enter() 'Pour paramétrer le nombre de chiffres des numéros de téléphone --> fixe If ComboBox3 = "Belgique" Then ' (+32) | [10-10-10] TextBox_5.MaxLength = 10 TextBox_5 = Format(TextBox_5, "0# ## ## ## ##") End If If Com...
par Le_Troll_Du_27
30 janvier 2018, 18:45
Forum : Excel - VBA
Sujet : Parametre du WebBrowser
Réponses : 8
Vues : 745

Re: Parametre du WebBrowser

Une erreur s'est glissé dans initialisation de la ListBox1 de l'userform3 Je n'arrive plus à voir mon erreur. Pouvez vous m'indiquer? Le fichier est juste dans le message précédent Private Sub Initialise_ListBox1() Dim MaSourceGoogle As String Sheets("Feuil3").Activate ' ...............................
par Le_Troll_Du_27
30 janvier 2018, 18:37
Forum : Excel - VBA
Sujet : UserForm - Outlook
Réponses : 11
Vues : 265

Re: UserForm - Outlook

Ca pique les yeux

Réduit ton code
ex :
Dim i As Integer
For i = 1 To 36
    CheckBox(i).Value = ""
Next i
par Le_Troll_Du_27
30 janvier 2018, 04:28
Forum : Excel - VBA
Sujet : Parametre du WebBrowser
Réponses : 8
Vues : 745

Re: Parametre du WebBrowser

Peut être une solution en modifiant la clé de registre dès le départ dans l'ouverture du fichier : A remplacer par : Private Sub Workbook_Open() Call SetSettings("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION\Excel.exe", 11001, "REG_DWORD", Fals...
par Le_Troll_Du_27
30 janvier 2018, 03:49
Forum : Excel - VBA
Sujet : Parametre du WebBrowser
Réponses : 8
Vues : 745

Re: Parametre du WebBrowser

Version plus simplifié : dans les Userforms 2, 3 , 4 et 5 à remplacer par : ' URL de l'image sur internet MaSourceGoogle = TextBox20.Value ' à partir d'ici on efface tout pour y mettre celà ShellExecute 0, vbNullString, MaSourceGoogle, vbNullString, vbNullString, 0 If Not ComboBox2.Value = "" Then W...
par Le_Troll_Du_27
29 janvier 2018, 00:29
Forum : Excel - VBA
Sujet : Parametre du WebBrowser
Réponses : 8
Vues : 745

Re: Parametre du WebBrowser

Cela va fonctionnait qu'un temps ensuite tu auras le même soucis J'ai contourné le problème en ouvrant automatiquement une fenêtre sur IE. Private Sub Initialise_ListBox1() Dim MaSourceGoogle As String Sheets("Feuil2").Activate ' ...........................Sélectionne la feuille For T = 1 To 29 ' .....
par Le_Troll_Du_27
26 janvier 2018, 17:37
Forum : Excel - VBA
Sujet : Parametre du WebBrowser
Réponses : 8
Vues : 745

Re: Parametre du WebBrowser

Merci Waard pour ton explication très argumentée et complète. Modifié les clés de registre impossible pour moi car le fichier va être partagé. Chaque personne a une version d'office différente et il met impossible de changer les clés de registre de tous. Je vais voir pour contourner le problème diff...
par Le_Troll_Du_27
26 janvier 2018, 12:08
Forum : Excel - VBA
Sujet : Parametre du WebBrowser
Réponses : 8
Vues : 745

Parametre du WebBrowser

Bonjour j'ai un fichier Client qui incorpore un WebBrowser Ce même WebBrowser est paramétré pour afficher un plan par Google Maps. Au début le fichier fonctionnait mais dans le WebBrowser une notification pour poursuivre. Maintenant je n'ai plus le plan mais une page tel que l'image ci dessous : 201...