Résultats pour "http www whatsupottawa com php url pavelnik blogspot"

56 résultats pour cette recherche

Bonjour,

je cherche à importer un fichier texte en ligne de l'url suivante

Le problème est que les données sont codées au format PHP urlencode(), ce qui signifie par exemple qu'une virgule est exprimée par %2C.

Je voudrais pouvoir convertir à chaque importation ces caractères automatiquement ou même manuellement.

Quelqu'un peut-il m'aider (si possible sans VBA) ?

merci d'avance

Bonjour à tous,

Tout d'abord, je commence tout juste dans le développement web, je m'excuse par avance pour mes approximations, méconnaissances et autres abus de langages. N'hésitez pas à me reprendre

Voici la partie de mon code qui me pose problème :

<?php

if(isset($_POST['btn_view'])) 
{

  $id = $_POST['btn_view']; 

  $name = $_POST['name' . $id];
  $customer = $_POST['customer'. $id];
  $number = $_POST['number'. $id];
  $state = $_POST['state'. $id];

  $_SESSION["affair_id"] = $id;
  $_SESSION["affair_name"] = $name;
  $_SESSION["affair_customer"] = $customer;
  $_SESSION["affair_number"] = $number;
  $_SESSION["affair_state"] = $state;

  header("Location: affair/affair.php");
}

echo '
<div class="dropright">
<img data-toggle="dropdown" src="./images/menu.png">
<div class="dropdown-menu">
<a class="dropdown-item" href="menu.php">Menu</a>';

$db = Database::connect();
$statement = $db->query('SELECT affair.id, affair.name, affair.customer, affair.number, affair.state, users_task.user AS user FROM affair INNER JOIN users_task ON users_task.affair = affair.id ORDER BY affair.id DESC');

while($item = $statement->fetch()) 
{
    if($item['user']==$_SESSION["id"])
    {

        echo '
        <form id="liste_header" action="header_left.php" role="form" method="post" enctype="multipart/form-data">

            <input name="id'. $item['id'] . '" type="hidden" value="'. $item['id'] . '">
            <input name="name'. $item['id'] . '" type="hidden" value="'. $item['name'] . '">
            <input name="customer'. $item['id'] . '" type="hidden" value="'. $item['customer'] . '">
            <input name="number'. $item['id'] . '" type="hidden" value="'. $item['number'] . '">
            <input name="state'. $item['id'] . '" type="hidden" value="'. $item['state'] . '">
            <button name="btn_view" value="'. $item['id'] . '" type="submit" class="dropdown-item" >'. $item['name'] .'</button>

        </form>
        ';
    }

}
echo '</div>
</div>  
';
Database::disconnect();
?>

Il permet de remplir une dropdown en fonction d'une base de donnée MySQL. Cette partie fonctionne très bien.

Là où ça se gatte, c'est quand je clique sur un des choix de la dropdown, cela m'envoie bien sur la page demandée mais avec les données de la mauvaise ligne de la table...

Je ne comprends pas pourquoi ça ne fonctionne pas car j'ai déjà réalisé une programmation similaire à la seule différence que ce n'était pas avec une dropdown...

Si quelqu'un voit l'erreur que j'ai faite ce serait cool

En tout cas merci d'avance à ceux qui prendront du temps à mon sujet

A plus tard j'espère

Sam

bonjour,

Je souhaiterai récupérer des informations issues d'une page PhP (liste de publications et tableau de données pour générer un graphique).

Je vous donne un exemple de page :

https://halur1.univ-rennes1.fr/ExtractionHAL.php?team=GREYC-MONEBIOM&listaut=GREYC-MONEBIOM&idhal=&evhal=&publis=~TA~&comm=~TC~&ouvr=~TO~&autr=~BRE~RAP~THE~HDR~&anneedeb=2015&anneefin=2019&depotdeb=&depotfin=&typnum=inv&typaut=aucun&typnom=nominit&typcol=soul&typlim=non&limaff=5&typtit=~aucun~&typann=apres&typchr=decr&typtri=premierauteur&typfor=typ2&typdoi=vis&typurl=vis&typpub=inv&surdoi=inv&sursou=inv&typidh=inv&racine=https://hal-univ-rennes1.archives-ouvertes.fr/&typreva=inv&typrevh=inv&dscp=gau&typrevc=inv&typcomm=inv&typif=inv&typavsa=inv&delim=pvir&typeqp=non&prefeq=non&nbeqp=&stpdf=-%20-&spa=-%20-&nmo=-%20-&gp1=-%20-&gp2=-%20-&gp3=-%20-&gp4=-%20-&gp5=-%20-&gp6=-%20-&gp7=-%20-&sep1=-%20-&sep2=-%20-&sep3=-%20-&sep4=-%20-&sep5=-%20-&sep6=-%20-&sep7=-%20-&mp1=~-%20-~&mp2=~-%20-~&mp3=~-%20-~&mp4=~-%20-~&mp5=~-%20-~&mp6=~-%20-~&mp7=~-%20-~&cg1=000000&cg2=000000&cg3=000000&cg4=000000&cg5=000000&cg6=000000&cg7=000000

Je réussis à récupérer le tableau tout en bas avec ce script VBA :

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;https://halur1.univ-rennes1.fr/ExtractionHAL.php?team=GREYC-MONEBIOM&listaut=GREYC-MONEBIOM&idhal=&evhal=&publis=~TA~&comm=~TC~&ouvr=~TO~&autr=~BRE~RAP~THE~HDR~&anneedeb=2015&anneefin=2019&depotdeb=&depotfin=&typnum=inv&typaut=aucun&typnom=nominit&typcol=soul&typlim=non&limaff=5&typtit=~aucun~&typann=apres&typchr=decr&typtri=premierauteur&typfor=typ2&typdoi=vis&typurl=vis&typpub=inv&surdoi=inv&sursou=inv&typidh=inv&racine=https://hal-univ-rennes1.archives-ouvertes.fr/&typreva=inv&typrevh=inv&dscp=gau&typrevc=inv&typcomm=inv&typif=inv&typavsa=inv&delim=pvir&typeqp=non&prefeq=non&nbeqp=&stpdf=-%20-&spa=-%20-&nmo=-%20-&gp1=-%20-&gp2=-%20-&gp3=-%20-&gp4=-%20-&gp5=-%20-&gp6=-%20-&gp7=-%20-&sep1=-%20-&sep2=-%20-&sep3=-%20-&sep4=-%20-&sep5=-%20-&sep6=-%20-&sep7=-%20-&mp1=~-%20-~&mp2=~-%20-~&mp3=~-%20-~&mp4=~-%20-~&mp5=~-%20-~&mp6=~-%20-~&mp7=~-%20-~&cg1=000000&cg2=000000&cg3=000000&cg4=000000&cg5=000000&cg6=000000&cg7=000000", _
    Destination:=Range("$A$1"))
    .Name = "HAL"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
     End With

J'aimerai aussi récupérer la liste de publications pour avoir une publication par ligne dans excel. Je pense que beaucoup de laboratoires de recherche en France seraient très intéressés par ce script (que je diffuserai pour les collègues).

Merci de votre aide,

Christophe

Bonjour,

Je suis en train d'indexer des registres de généalogie (des centaines d'enregistrements !) pour une association, avec saisie d'une adresse url qui est la même pour plusieurs enregistrements

Pour simplifier, je la reproduis

par une formule de copie = cellule supérieure

A la fin de mon travail, j'élimine les formules devenues inutiles (j'en utilise d'autres dans d'autres colonnes) par un copier/coller les valeurs de l'ensemble de la feuille.

Ce fichier doit ensuite être enregistré en .CSV pour envoi à l'association qui le mettra en ligne.

Mon problème: le lien URL n'est pas 'actif' càd qu'il n'ouvre pas le document souhaité. Pour l'activer, il faudrait éditer et valider chaque cellule mais je cherche une solution pour éviter de répéter cette action sur des centaines de cellules !

Grand merci à qui aurait une idée

Méphisto

Bonjour à tous,

Voila je fait au travers du VBA des requêtes HTTP pour récupérer dans les cellules excel des informations d'équipements distants.

Le problème est que quand un équipement n'est pas joignable, il le code ne passe pas au suivant et j'ai la fenêtre "erreur d'execution '-2147012894' : le délai imparti à l'opération est dépassé" qui s'ouvre.

Quelqu'un aurait une astuce ?

Voici mon code :

Dim wq As WinHttp.WinHttpRequest
Sub RequeteHTTP()

Dim strURL As String, strResp As String
Dim i, j As Integer

Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER As Long = 0
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY As Long = 1

Range("D3:BE7397").ClearContents
j = WorksheetFunction.CountA(Range("a:a"))

For i = 3 To j

strURL = "http://" & Range("A" & i).Value
strURL = strURL & "/rcgi.bin/ParamForm?AST_Param=$$dtSE$se" & Range("D2").Value & "@"

On Error GoTo ERRH
Set wq = New WinHttpRequest
' Création requêtte HTTP de type GET
wq.Open "GET", strURL
wq.SetCredentials Range("B" & i).Value, Range("C" & i).Value, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
' Envoie de la requête
wq.Send

If wq.Status = 200 Then
   ' Récupérer le corps de la réponse
   strResp = wq.ResponseText
   ' exploitation de la réponse
   Range("D" & i).Value = strResp
Else
   Range("D" & i).Value = wq.Status & " " & wq.StatusText & " " & "Statut renvoyé par serveur"
End If
BOUCLE:
Next i
GoTo ENDPROC

ERRH:
'MsgBox ERR.Description
Range("D" & i).Value = "Erreur No." & Err.Number & " : " & Err.Description
GoTo BOUCLE

ENDPROC:
Set wq = Nothing

End Sub

bonjour

voila mon probleme

j ai une liste d' adresse dans ma colonne A1 A2 A2.... > http://maps.google.com/maps?q=N46.90.....

donc je pensais mettre dans colonne B1 B2 B3 .. =LIEN_HYPERTEXET(A1) =LIEN_HYPERTEXET(A2) =LIEN_HYPERTEXET(A3) ...

de sorte que si je clic sure A1 OU A2 OU A3 CA OUVRE LE LIEN MAP

et donc ca marche pas une idée ?

par avance merci

Bonjour,

Je suis novice dans la matière j’ais voulut me lancer pour une feuille de pointage mais voila problème.

Je voudrais savoir ci il y a une formule pour les H/Sup

Car moi j’ais fait aux plus simple la solution facile mes pas trop bonne a mon avis.

Quand je rentre dans la cellule entré 0h00

Et la cellule sortie 0H00 la cellule total me Domme 17H

Car j’ais pris la cellule I1 pour 7h normale d’une journée

Sur les autres cellules cela marche.

exemple

Merci

38exemple.xlsx (10.94 Ko)

bonjour je souhaite faire appel au lien suivant pour un envoie de sms .

mais je n'arrive pas a le faire fonctionner su mon fichier excel .

L'envoi du SMS se fait en appelant le lien suivant :

avec les paramètres suivants :

user : votre login

pass : votre clé d'identification générée automatiquement par notre service

msg : le contenu du SMS encodé sous forme d'url (Percent-encoding)

Exemple : Envoyer le message "Hello World !" sur votre mobile :

Vous pouvez également, si vous le préférez, envoyer les paramètres en POST. Dans ce cas, le contenu du message n'a pas besoin d'être encodé.

Le code de retour HTTP indique le succès ou non de l'opération :

200 : Le SMS a été envoyé sur votre mobile.

400 : Un des paramètres obligatoires est manquant.

402 : Trop de SMS ont été envoyés en trop peu de temps.

403 : Le service n'est pas activé sur l'espace abonné, ou login / clé incorrect.

500 : Erreur côté serveur. Veuillez réessayez ultérieurement.

merci d'avance de votre aide

Bonjour à tous !

Je me permets de créer un nouveau topic, j'ai cherché dans les forums pour voir si une solution existait mais je n'ai rien trouvé pour mon type de problème, je m'en remets donc à vous. Je suis novice sur VBA et j'ai repris un fichier d'un prédécesseur avec ses macros déjà faites. Je dois en créer de nouvelles.

J'explique ici le déroulement de ma sheet:

1) Je dois reccueillir des données provenant de différents sites boursiers (des indices principalement), et automatiser l'acquisition de ces valeurs journalières.

2) En colonnes dans ma sheet, tous les indices, et en lignes les dates

3) Le but de la manoeuvre est d'acquérir les données manquantes dans ma base de données. Ex: si la database est à jour jusqu'au 5 septembre, et que nous sommes le 1 octobre, la requête est censée aller rechercher les données manquantes du 6 à aujourd'hui.

4) Difficulté que j'éprouve: en intégrant de nouveaux sites, les codes sources changent et c'est là que je suis perdu, n'étant pas un AS en VBA ni en HTML.. :s

Voici donc mes codes:

Private Sub CommandButton1_Click()
cell = Lastcell

'adjust the amount of new data you need here

For cell = Lastcell To Lastcell + 1
Insertdate = Searchdate(GetXMLMSCIWORLD, Getcorrectdate(cell))
Insertdate = Replace(Insertdate, " ", "")
Insertvalue = Searchvalue(GetXMLMSCIWORLD, Getcorrectdate(cell))
Insertvalue3 = Searchvalue3(GetGoldINO, Getcorrectdate(cell))

Cells(cell + 1, 1) = Insertdate
Cells(cell + 1, 2) = Insertvalue
Cells(cell + 1, 3) = Insertvalue3

Next cell

End Sub

'--------------EVERYTHING OF MSCI DATABASE--------------

Private Function Lastcell()

'EVERYTHING OF MSCI WORLD

Dim lRow As Long
lRow = ActiveWorkbook.Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Lastcell = lRow

End Function

Private Function GetXMLMSCIWORLD()
Dim objReq As WinHttp.WinHttpRequest
Set objReq = New WinHttp.WinHttpRequest
objReq.Option(WinHttpRequestOption_EnableRedirects) = True
objReq.Open "GET", "http://www.msci.com/webapp/indexperf/charts?baseValue=false&format=XML&frequency=D&endDate=03%20Nov%2C%202080&indices=106%2CC%2C36&scope=R&startDate=03%20Nov%2C%202013&site=gimi&currency=15&priceLevel=41", False
objReq.setRequestHeader "Cookie", "abcd=cookie:containing:colons"
objReq.send
GetXMLMSCIWORLD = objReq.ResponseText

End Function

Private Function Getcorrectdate(lRow)
date1 = Format(ActiveWorkbook.Worksheets("Feuil1").Cells(lRow, 1).Value, "mm-dd-yyyy")
Dim datum As String
datum = Format(date1, "mm-dd-yyyy")
Getcorrectdate = Replace(datum, "-", "/")

End Function

Private Function Searchdate(GetXMLMSCIWORLD As String, Getcorrectdate As String)
Dim CorrectDate As String
CorrectDate = Getcorrectdate
testarray = Split(GetXMLMSCIWORLD, CorrectDate)

Dim wy As String
wy = Replace(testarray(1), "<date>", "")
wy = Replace(wy, "</date>", "")
wy = Replace(wy, "<value>", "")
wy = Replace(wy, "</value>", "")
wy = Replace(wy, "</asOf>", "")
Dim secondArray() As String
secondArray = Split(wy, "<asOf>")
Dim py As Variant
py = Split(secondArray(1), vbLf)
Dim SearchdateBijna As String
SearchdateBijna = Format(py(1), "mm-dd-yyyy")
Searchdate = Format(SearchdateBijna, "mm-dd-yy")

End Function

Private Function Searchvalue(GetXMLMSCIWORLD As String, Getcorrectdate As String)
Dim CorrectDate2 As String
CorrectDate2 = Getcorrectdate
TestArray2 = Split(GetXMLMSCIWORLD, CorrectDate2)

Dim zy As String
zy = Replace(TestArray2(1), "<date>", "")
zy = Replace(zy, "</date>", "")
zy = Replace(zy, "<value>", "")
zy = Replace(zy, "</value>", "")
zy = Replace(zy, "</asOf>", "")
Dim secondArray2() As String
secondArray2 = Split(zy, "<asOf>")
Dim xy As Variant
xy = Split(secondArray2(1), vbLf)
Searchvalue = xy(2)

End Function

Private Function GetGoldINO()

'EVERYTHING OF GOLD
Dim objReq As WinHttp.WinHttpRequest
Set objReq = New WinHttp.WinHttpRequest
objReq.Option(WinHttpRequestOption_EnableRedirects) = True
objReq.Open "GET", "http://club.ino.com/quotes/data/?q=1&ticket=7b6cc6d8bbg06a08e074068078068&s=FOREX_XAUUSDO&w=d&f=csv", False
objReq.setRequestHeader "Cookie", "abcd=cookie:containing:colons"
objReq.send
GetGoldINO = objReq.ResponseText

End Function

Private Function Searchvalue3(GetGoldINO As String, getcorrectdateINO As String)

Dim Correctdate3 As String
Correctdate3 = Format(getcorrectdateINO, "yyyymmdd")
testarray3 = Split(GetGoldINO, Correctdate3)

Dim zy3 As String

zy3 = testarray3(1)
zy3 = Replace(testarray3(1), ",,", "")
zy3 = Replace(zy3, ",0,0", "")

Searchvalue3 = zy3

End Function

Je n'ai sélectionné que 2 actifs, le MSCI World et le nouveau que j'essaie d'implémenter. Tous les autres sont similaires au MSCI et fonctionnent donc je n'ai pris que ceux nécessaires pour ne pas rendre les codes lourds (il y a plus de 200 indices et macros).

J'ai des difficultés avec le nouvel indice et ma fonction GetGoldINO. J'ai trouvé comme page source ce tableau :

J'ai essayé d'introduire la donnée "Last", la seule dont j'ai besoin. Mais je n'arrive pas à créer un code suffisant... . Dans ma cellule j'ai tout le tableau et je n'arrive pas à splitter uniquement la donnée relative à la date relative. Ex: le 10 septembre la macro doit reconnaitre la date du tableau, et introduire la valeur "Last" du 10 septembre dans ma sheet excel.

Voilà, j'espère que ma demande n'est pas inappropriée et qu'elle est complète, si ça n'est pas clair je peux essayer de la clarifier. En attendant, je vous remercie pour votre aide d'avance !

Bonjour à tous,

Ma demande est simple mais je ne sais pas si cela est réalisable. J'aimerais pouvoir faire un lien vers une page internet qui varie en fonction du contenu d'une cellule.

Exemple : http://blabla.com/=A4

Donc, générer le lien en fonction de la cellule remplie plus haut. J'ai essayé plusieurs formats mais rien ne fonctionne.

Quelqu'un à peut être une idée...

Merci la communauté

Bonjour

J'ai un classeur avec des onglets sur un serveur en interne.

Je veux atteindre ces onglets avec un lien hypertexte depuis mon intranet .

genre :

http://nom_serveur/nom_fichier.xls (- onglet_n - cellule_m).

Que dois je mettre après "nom_fichier.xls" ?

# n'est accepté que pour une cellule sur l'onglet affiché ( celui sur lequel on était lors de l'enregistrement du fichier excel) #D25

#onglet_n!cellule_m est une référence invalide...

Je ne peux imaginer qu'il faille faire un fichier pour chaque onglet???

merci !!!

Bonsoir au forum

,

Je voudrais afficher un lien web sous forme de texte par rapport à une référence.

Je crois qu'il sera plus parlant de regarder mon fichier joint

J’espère que quelqu'un aura une option à me proposer car au départ je pensais que ce serait simple mais après de nombreuses recherches, je me cogne la tête contre le mur.

Merci d'avance

Xni

Bonjour ,

Je ne peux toujours pas insérer d'images à partir de l'URL et mon responsable m'a rapidement demandé d'ajouter 2156 photos

Pour le faire manuellement, il faudrait beaucoup de temple

J'ai vraiment besoin de votre aide

Merci d'avance

Bonjour,

Je ne sais pas si référencer est le bon terme mais au fait voila mon problème:

A l'issue d'une macro, j'ai des mots qui s'affichent sur des cellules. Et j'aimerais rajouter un lien URL pour en voir la définition.

Donc imaginons que j'ai le mot DORMIR qui s'affiche je veux pouvoir acceder rapidement à sa définition en rajoutant l'URL suivante:

Donc dans la cellule j'écris: "DORMIR -

"

Jusque là ce n'est pas difficile et je sais faire.

Mais j'ai deux problèmes:

1/ l'URL ne devient pas un lien cliquable

2/ l'URL est trop longue, et je me demandais si y'a pas, comme en PhP un moyen de dire juste cliquez ici, pour que ça redirige vers le site internet.

Merci d'avance de l'aide que vous pourrez m'apporter

Bonjour à tous,

J'ai plusieurs URL à "minimiser", voici des exemples :

  • "settings,data,oracle,com" et je souhaite seulement extraire "oracle,com"

J'ai donc appliqué cette formule : "=DROITE(E3;NBCAR(E3)-TROUVE(".";E3;1))

Mais cette dernière me sort trop d'éléments = "data,oracle,com"

Savez-vous quelle formule serait en mesure d'effectuer une bonne selection ? Attention, sur les 180 000 data à travailler j'en ai également des plus simples et compliquées. Voici donc les résultats obtenus avec la formule ci dessus :

"linux,oracle,com" = oracle,com (résultat attendu)

"house,northeurope,batch,azure,com" = northeurope,bath,azur,com (résultat non attendu, je souhaite avoir : azure,com)

En espèrant avoir été suffisamment clair,

Je vous remercie par avance,

Bonjour les amis.

J’ai besoin de votre aide pour corriger un code qui fonctionnait sur les anciennes version d’excel.

Cette macro permet de se baser sur la dernière colonne d’un fichier qui comporte une url pour aller afficher l’image correspondante deux colonnes plus loin.

Cependant le code ne fonctionne plus correctement depuis excel365 alors qu’il fonctionnait bien sur d’anciennes versions.

Pourriez vous m’aider et corriger la partie qui ne fonctionne plus ?

Merci d’avance de votre aide.

Ci après le code base sur celui de Ludovic:

Sub LinkToImage()

For Each cel In Selection

cel.Offset(0, 2).Select

cel.Offset(0, 2).RowHeight = 100

cel.Offset(0, 2).ColumnWidth = 40

If URLValid(cel.Value) = 0 Or HttpExists(cel.Value) = 0 Then

cel.Offset(0, 2).Value = "Photo non dispo"

Else

Set Image = ActiveSheet.Pictures.Insert(cel.Value)

With Image

.ShapeRange.LockAspectRatio = msoTrue

.Width = cel.Offset(0, 2).Width

.Height = cel.Offset(0, 2).Height

.Left = cel.Offset(0, 2).Left

.Top = cel.Offset(0, 2).Top

End With

End If

Next cel

End Sub

Function URLValid(url As String) As Boolean

If InStr(url, "png") > 0 Then

URLValid = True

ElseIf InStr(url, "jpg") > 0 Then

URLValid = True

ElseIf InStr(url, "jpeg") > 0 Then

URLValid = True

ElseIf InStr(url, "bmp") > 0 Then

URLValid = True

Else

URLValid = False

End If

End Function

Function HttpExists(ByVal sURL As String) As Boolean

Dim oXHTTP As Object

Set oXHTTP = CreateObject("MSXML2.XMLHTTP")

On Error GoTo haveError

oXHTTP.Open "HEAD", sURL, False

oXHTTP.send

HttpExists = IIf(oXHTTP.Status = 200, True, False)

Exit Function

haveError:

Debug.Print Err.Description

HttpExists = False

End Function

Hellowwww a tous ,

Tout d'abord ceci es mon premier poste donc ci je fais des boulettes je demande déjà votre pardon

ps: j 'écrit rarement en français et vous allez surement voire des fautes

Voici mon Sujet :

j'ai une feuil Exel ou je copie colle des donnez de code-barres

pour explication chaque code-barres contiens dans notre application web un nombre (X) de packet

mon bute c des vidée tout c code-barres

pour cela rien de difficile a ce jour j'imprime tout les code-barres "oui oui ca peu faire 24000 code-barres "

et je les scanne

quand je les scanne => ils vont direction notre application web qui elle les annuler directement

voila mon projet

1: copier tout les code-barres dans mon excel = OK ( normal c manuel )

2: macro VBA => ouvre internet ( Intranet ) = OK

3: copie colle chaque code-barre un par un écrit ok dans mon excel quand le code-barres a êtes (.submit)

Voici mon souci

le site ou je me connecte a un URL Statique ( JavaServer Pages ) je ne peu vous le donner car c'est un INTRANET :s

dans mon code que voici HAAAA OUIII AUSSI JE DEBUTE

IMPORTENT LE CODE FONCTIONNE AVEC GOOGLE

MAIS NE FONCTIONNE PAS DANS MON : JavaServer Pages

voire erreur ci dessous

Sub IEconnect()

 Dim ie As InternetExplorer
 Dim sURL As String
 Dim CellEmpty As Boolean
 Dim valeur As Range

'====================Verification si cellule vide====================

  CellEmpty = IsEmpty(Range("B3"))
If CellEmpty = True Then
  Sheets("MACROAVCS").Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "NOK"
Exit Sub

 Else

 '====================Ouverture de la page + config====================

sURL = "www.google.be"
Set ie = New InternetExplorer

With ie

.Top = 10
.Left = 0
.Width = 1000
.Height = 750
.AddressBar = 0
.StatusBar = 0
.Toolbar = 0

.Visible = True
.Navigate sURL

'====================Chargement de la page====================

Do Until Not .Busy And .ReadyState = 4
DoEvents
Loop

'====================Ecrit TEXT dans la barre de recherche====================

.Document.all("q").Value = (Range("B3"))
Application.Wait Now + TimeSerial(0, 0, 5)
Sheets("MACROAVCS").Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "OK"

End With

'====================Charge la page====================

Do Until Not ie.Busy
DoEvents
Loop

'====================Click sur ok====================

ie.Document.forms(0).submit

Set ie = Nothing
Err.Clear

End If

End Sub

erreur 1 : Evidemment c une page statique donc que faire un wait ?

ci je retire cette loop avec un wait application....

j'ai une deuxième erreur

Do Until Not .Busy And .ReadyState = 4
DoEvents
Loop

erreur 2 : il ne trouve pas la textbox peu etre que c'est différent avec une URL statique ?

.Document.all("q").Value = (Range("B3"))

Lundi je vous donnerais des Screenshots du site + les infos élément inspecter

la fin du "site" intranet = jsp/index.jsp

Bonjour,

Pour obtenir l'URL d'une discussion ... pas de difficulté ...

Mais je ne sais pas comment obtenir l'URL d'un Message spécifique ...situé au milieu d'une des pages d'une discussion donnée.

Par avance, Merci de votre aide

Bonjour à tous.

2 questions à travers ce sujet.

- La première : est-il possible de faire un lien hypertexte cliquable vers une URL web qui demande un identifiant et mot de passe?

Pour ma part ça ne fonctionne pas et cela me renvoi au nom de domaine général du site. Par contre si je suis connectée avec identifiants et que je copie le lien hypertexte dans la barre de recherche avec tout le chemin, alors j'arrive où je veux.

- deuxième point : les chemins URL sont similaires mais d'un formulaire a un autre j'ai un identifiant qui change (et donc l'URL aussi mais a un endroit bien précis). De plus, ce lien est présent sur mon fichier Excel. Est-il possible de rendre interactif un lien hypertexte?

En vous remerciant de vos réponses

Recherches récentes

fantomesuivie horairefeuille horairegestion heuresaisie horairebarreapostropheenlever apostropheajouter donnee userformenregistrertcd sourcesiserror vbaesterreur vbafonction erreurenlever tabulationmacro synthesejpgcompilationandpage suivante vba