Recherche:

Oui j'ai testé en vain

Pas de moyen de contourner ?

Non ni l'un ni l'autre.

comment je peux utiliser :


MyHTML = CreateObject("HTMLFILE")

pour recuperer le HTML, après je peux coder la fonction pour recupérer le resultat moi meme .

J'ai ajouté
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"

J'ai la meme erreur.

Quand j'essaye de passer avec


Set ResultCont =...

Bonjour à tous,

Je cherche à utiliser google translate via Excel et j'utilise le code suivant :


Public Function GoogleTranslate(rng As String, Optional translateFrom As String = "en",...

Bonjour à tous,

Je souhaiterai récupérer les repertoires contenus dans un repertoires pour ce faire j'utilise le code suivant :


Set fso = CreateObject("Scripting.FileSystemObject")

Set f...

Bonjour à tous,

J'ai créé un set de Slide maison pour mes presentation Powerpoint.

Je souhaiterai créé un powerpoint via VBA et je voudrai pouvoir avoir accès à mon set de Slide.

J'ai donc...

Bonjour à tous ,

J'ai les code suivant :


Sub new_gprahe()
Dim graphMM As Chart
Dim Img As String
Dim obj As Object

Ca ne marche pas ca me genere la ligne suivante :


Selection.Format.Line.Visible = msoTrue

Qui m'efface tous mes points

Bonjour à tous,

J'ai le code ci-dessous :


Sub Macro2()
'
' Macro2 Macro
'

Il n'y donc pas la possibilité de la coller a l'endroit souhaité ?

Bonjour à tous


Sub copyChartToPPT()


Dim ChtObj As ChartObject

Dim PP As PowerPoint.Application
Dim PPpres As PowerPoint.Presentation

Bonjour a tous,

Je voudrais utiliser la fonction PercentRank.



With Sheets("CrossSectional")
nbcol = .Cells(1, Columns.Count).End(xlToLeft).Column
For j...

Bonjour ä tous,

J'aimerai ajouter un FaceID à mon menu contextuel.

J'ai donc le code ci dessous :


Sub test_bar_menu()
Dim cmdBtn As CommandBarButton
On Error Resume Next

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.ListBox1.Column (2)
End Sub

Me renvoie "Invalid use of property" comme error

Private Sub ListBox1_Click()
Msg (ListBox1.Column (1))
End Sub

Ca ne me renvoi rien . Dans quel evenement faut il mettre le code ?

Bonjour ä tous,

J'ai une listbox 10 lignes 10 colonnes.

Si je click sur la ligne 3 je voudrai récupérer les éléments de la 2,3,4 eme colonne dans 3 Textbox.

Comment faire ?

Merci à vous

Bonjour ä tous,

Je voudrais selectionner un graphique dans une feuille excel par le nom que je lui est donné et compter le nombre de point qui composent ce graphique
Mon Graphique s'appelle...

Bonjour à tous,

Une question très simple mais je ne trouve pas la réponse...
Je souhaite afficher le menu déroulant d'une combobox des que je tape la premiere lettre de ma recherche dans ma...

Bonjour à tous,

J'aimerai redimensionner tous les controls de mon userform j'ai trouvé ce lien qui röpond ä 90% ä ma problömatique sur ce lien
...

Bonjour,

Merci pour le code il marche très bien pour moi à une exception près :

J'ai l'impression que la taille de mon Frame reste identique, les captions à l'interieur sont desaxés par...

Bonjour a tous,

J'ai un probleme. Je me connecte à une station de travail à distance, et donc lorsque mon écran est plus petit je n'arrive pas à voir la totalité de mon userform. je l'affiche en...

Je l ai declaré dans un module. Je l'appelle en cliquant sur un bouton qui est dans un worksheet ? Te faut-il davantage de précision ? Desolé si tu n'as pas tous les éléments

voici l'integralité de la fonction : je l'execute depuis un bouton dans une worksheet


Sub PDF_comments()
Dim CS As Worksheet
Dim cl As Worksheet
Dim way_user As String
Dim name As String...

Bonjour à tous,

J'ai le code suivant :


way = Workbooks(ActiveWorkbook.name).FullName
way2 = Workbooks(ActiveWorkbook.name).name
way_user = Replace(way, "\" & way2, "\Reco.txt")
User =...