Contenu récent par tarvel

Bonne Nuit ;-)

Tout à fait..ça fonctionne bien! merci

Issue d'une page Web..oui....mais pas du tout le même type de grille..et le sujet n'a rien à voir avec le pilotage web !!! traitement dune cellule et d'une chaine de caractère ok

Non le sujet était axé sur le pilotage page web depuis vba...ici c'est le traitement de données sur la feuille excel...rien à voir avec le pilotage web!

En général avec l'importation de la page web ...la grille peut se situer sur la col B...mais parfois sur la colA...ou sur toute autre col...Donc tout dépend de l'importation!

Merci Staple1600...ça fonctionne En fait je recherche à positionner la 1ère cellule d'une feuille (issue de l'importation du page web) ayant des chiffres pour délimiter une plage de Chiffres (en fait une grille de 15 cases)..et cette plage n'est jamais au même endroit!!

Bonjour, J'ai une cellule ayant une chaine de caractères comprenant des "range": cellule =$F$3,$B$3:$B$4,$C$4:$F$4,$C$5:$D$5,$F$5 En fait j'aimerais en vba sélectionner et copier les 4 caractères comprenant le Range le plus proche de A1...comme $B$3 dans l'exemple Merci pour votre aide

Merci bxp Theze pour ta réponse ça fonctionne bien...En fait il faut que je définisse le pourcentage de l'approximation des largeurs des cellules pour ainsi valider "la plage de cellules"... J'ai testé avec du 10%...et ça me convient ;-)

J'aimerais comparer la largeur de 3 cellules (voir même 5 ( cellules) et si la largeur sont à peu près égales, valider la 3ème cellule en sélection : Selection.Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 4).Select je laisse le fichier joint...macro avec résultat sur sheet2 En...

Merci Yurperqod pour ta réponse rapdie! Ca fonctionne très bien.. j'ai déclaré Dim ie As New InternetExplorer Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "https://www.excel-downloads.com/" IE.Document.Body.Style.Zoom = 1.5

Bonjour, Je pilote une page web IE en vba... Dim ie As New InternetExplorer Set ie = CreateObject("internetExplorer.Application") ie.Visible = True ie.Navigate "http://www.google.fr/" mais comment effectuer un zoom sur le navigateur.. Faut-il utiliser fonction API ou ActiveX?? Sur Win Seven -...

Effectivement dans ce cas...ça fonctionne sans l'utilisation de On error... Encore merci!

Merci pour tes précisions Dranreb...malgré tout...les sendkeys fonctionnent sur l'appli avec ce On error...pour l'instant je m'en contente... Je continue la macro...je suis en phase 6 où je dois placer le mot de passe en fonction des placements des chiffres dans la grille...la grille que je...

Merci pour ton aide Dranreb ; bon j'avance un peu : Dim dem dem = Shell("C:\Program Files (x86)\ABBYY FineReader 10\HotFolder.exe", vbNormalFocus) ' On Error Resume Next Dim PauseTime, Start PauseTime = 0.01 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop AppActivate...

J'utilise une macro pour piloter une page web ayant une grille à 10 chiffres pour valider un mot de passe. 1 je lance en vba la page web 2 je fais une capture d'ecran comportant la grille avec keybd_event VK_MENU, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, 0, 0 keybd_event VK_SNAPSHOT, 0...