Résultats pour "http zeus net info cgi bin mt4i cat mode redirect ref_eid url 2ftargnet com 2fmailtargnet 2frd php 3frdxturl 3dhttp 2fwww cheatsk 2fdragon city hack"

325 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

Bonsoir le forum,

Je n'arrive pas à calculer avec une formule le PA net d'un produit.

Exemple: une bouteille est vendu au client 2€ sa marge brut est de 32%

ce que j'aimerais faire c'est trouver le prix d'achat net de la bouteille en sachant que dans mon exemple la marge brut de 32% est TVA incluse, donc TVA déduite pour avoir le PA net. J'espère que je me suis bien expliqué.

Merci de votre aide.

Alain

Bonjour,

J'ai fais une macro pérmetant d'extraire des donné d'un fichier .bin le programe marche bien mais j'aimerais pourvoir l'executer pour tout les fichier .bin d'un dossier. Quelqu'un aurai t'il la solution svp

Question de base de chez base :

Je cherche a chercher un valeur dans une plage de données et que cela me retourne 1 si la valeur a été trouvé et 0 sinon.

ex

L1 : | 22 | 33 | 45 | 12 |

Je cherche 22 avec ma fonction, la il me retourne 1, si j'avais cherché 17 il m'aurrait retourné 0.

Ps : ma plage sera une seule ligne de plusieurs colonne et je ne vx pas le realiser avec une macro

J'ai jamais cherché un fonction aussi basique dans ma vie sans rien trouvé, je rage donc un peu, ou plutot c excel qu'est pas genial, parceque la comme meme ...

Enfin voila, je pense que vous n'aurez pas trop de mal a m'aider pour un truc pareil.

Merci

Bonjour à tous,

Je tiens d'abord à m'excuser pour mon titre si il n'est pas le plus clair mais j'ai eu du mal à formuler ma demande en une phrase !

Je n'ai encore jamais réaliser de programmation VBA, et j'aimerais réaliser un programme qui va chercher dans une feuille "Base de données" des références. Ces références seront induites grâce à l'affichage par le programme d'une liste de catégories, puis en fonction du choix de l'utilisateur, d'une liste des éléments contenus dans cette catégorie. Je m'explique :

Dans ma feuille de base de données j'ai :

HCijUD0kxZv

J'aimerais que le programme, sur ma feuille "selection", lorsque l'utilisateur doit saisir des références, affiche une boîte dialogue listant dans un premier temps les catégories (ici "pains", "viennoiseries", et "bonbons"). Si l'utilisateur choisit "bonbons", le programme devra ensuite lister les éléments de cette catégorie (ici "schtroumpfs" ou "tagada"). En fonction de son choix, le programme ajoutera la référence voulue dans la colonne référence.

J'aimerais que les deux listes restent apparente dans la fenêtre de dialogue afin que l'utilisateur puisse ajouter plusieurs références de plusieurs éléments, mais également de plusieurs éléments de plusieurs catégories avant de fermer la fenêtre de dialogue.

Voila j’espère avoir été assez clair, je vous joins mon fichier excel. J'ai essayer en farfouillant sur internet plusieurs programmations, en utilisant notamment des UserForm, mais je ne suis pas arriver au résultat. Devant faire ce programme pour un fichier bien plus complexe, ce serait vraiment sympas si vous pourriez me donner des pistes ou des début de programmation afin que je sache vers ou me diriger. En effet c'est pas simple et pas du tout intuitif d'apprendre VBA en autodidacte

Voilà je vous remercie par avance pour vos réponses, ou, pour avoir au moins pris le temps de me lire

Bonne journée !

Bonjour à tous,

je sollicite votre aide pour résoudre un problème sur lequel je bloque depuis des heures... tout ce que j'ai pu lire sur les forums m'indique que seul VBA peut m'aider... mais je n'ai pas trouver un problème identique. Et, je n'y connais malheureusement rien à VBA .

Donc voilà, j'ai un très gros fichier (env 20000 lignes).

dans ce fichier j'ai :

  • ETAB_id en colonne A (identifiant d'un lieu)
  • Presta_id en colonne B (catégorie de prestation)
  • Presta_title en colonne C (nom de la catégorie)
  • Descriptif en colonne D (texte décrivant la prestation)

je peux avoir pour un même Etablissement, plusieurs prestations avec le même ID & titre, mais avec une description différente.

Et j'aimerais regrouper tous ces descriptifs ayant une catégorie identique dans un seule cellule (en les séparant avec un caractère type | ou / etc...).

Pour que ça soit plus parlant j'ai créé un fichier excel type avec 2 souhaits de résulats espérés.

Je ne sais pas si il existe une solution à mon problème, mais je vous remercie d'avance pour l'aide que vous pourrez m'apporter.

Merci d'avance

A.

Bonjour, je débute sous Excel et je cherche une solution pour ajouter rapidement des valeurs dans les cases de mon tableau pour un calcule de Dépenses.

Plus précisément 2 menus déroulant (Liste) "Categories" & "Mois" suivie d'un champ pour écrire ma valeur qui sera additionné si la casse contient déjà un résultat.

Merci d'avance.

Edit :

9depenses.xlsm (33.19 Ko)

Bonjour,

Je me tourne vers vous car malgré mes recherches sur le net, je n'ai pu trouver des solutions à mon problème.

Je sui passé d'excel 2003 à excel 2010.

Sous excel 2003, je n'avais aucun souci avec mes codes.

Sous excel 2010, une macro fait planter directement excel, donc sans message d'erreur, en mode run et, lorsque j'essaie de voir ce qui ne va pas en mode débogage, aucune erreur ne ressort.

Avez vous une idée de ce qui pourrait entrainer ce genre d'anomalies ?

D'avance je vous remercie.

Bonjour à tous !

Petite nouvelle ici, j'espère en tirer pas mal de trucs et astuces pour dompter la bête...

Pour mon premier cas, j'espère que vous pourrez me donner un coup de pouce car je tourne en rond !

En gros :

J'ai des produits (robe alfa, robe dotis, etc.) auxquels sont assignés des numéros à trois chiffres.

J'ai besoin de récupérer ces numéros en colonne, dans les cas où il y en a plusieurs pour un même produit.

J'ai essayé une rechercheV, mais il ne me récupère qu'un seul nombre...

Une bonne âme... ?

Merci !

D. https://www.excel-pratique.com/~files/doc/q2zMgClasseur1.xls

Bonjour à tous,

Me voilà en tant que petit scarabé d'Execl qui tente de s'initier au vba. Mon souci est de passer mon code vba d'un mode absolu à un mode relatif afin que je puisse l'appliquer à n'importe lequel de mes fichiers Excel.

Votre aide sera plus que la bienvenue. Le code concerné est le suivant :

Sub Compteurs()

'

'

Columns("F:F").Select

Selection.Insert Shift:=xlToRight

Selection.NumberFormat = "General"

Range("F2").Select

ActiveCell.FormulaR1C1 = "=RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1]"

Range("F2").Select

Selection.AutoFill Destination:=Range("F2:F31")

Range("F2:F31").Select

Columns("G:G").Select

Selection.Insert Shift:=xlToRight

Range("G1").Select

Selection.NumberFormat = "@"

ActiveCell.FormulaR1C1 = "CI"

Range("F2:F31").Select

Selection.Copy

ActiveWindow.SmallScroll Down:=-15

Range("G2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Columns("A:F").Select

Range("F1").Activate

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

Cells.Select

Cells.EntireColumn.AutoFit

Range("A1").Select

Selection.AutoFilter

ActiveWindow.SmallScroll ToRight:=1

Columns("H:H").Select

Selection.Insert Shift:=xlToRight

Range("H1").Select

ActiveCell.FormulaR1C1 = "PRETITRE2"

Range("H2").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",RC[-6],RC[-1])"

Selection.AutoFill Destination:=Range("H2:H31")

Range("H2:H31").Select

Selection.AutoFilter Field:=7, Criteria1:="="

Range("G2:G31").Select

Selection.ClearContents

Selection.AutoFilter Field:=7

ActiveWindow.SmallScroll ToRight:=2

Columns("J:J").Select

Selection.Insert Shift:=xlToRight

Range("J1").Select

ActiveCell.FormulaR1C1 = "PRENOM2"

Range("J2").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",RC[-7],RC[-1])"

Selection.AutoFill Destination:=Range("J2:J31")

Range("J2:J31").Select

Selection.AutoFilter Field:=9, Criteria1:="="

Range("I2:I31").Select

Selection.ClearContents

Selection.AutoFilter Field:=9

ActiveWindow.SmallScroll ToRight:=2

Columns("L:L").Select

Selection.Insert Shift:=xlToRight

Range("L1").Select

ActiveCell.FormulaR1C1 = "PRENOMRUE2"

Range("L2").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",RC[-8],RC[-1])"

Selection.AutoFill Destination:=Range("L2:L31")

Range("L2:L31").Select

Selection.AutoFilter Field:=11, Criteria1:="="

Range("K2:K31").Select

Selection.ClearContents

Selection.AutoFilter Field:=11

ActiveWindow.SmallScroll ToRight:=3

Columns("N:N").Select

Selection.Insert Shift:=xlToRight

Range("N1").Select

ActiveCell.FormulaR1C1 = "PRECODPOS2"

Range("N2").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",RC[-9],RC[-1])"

Selection.AutoFill Destination:=Range("N2:N31")

Range("N2:N31").Select

Selection.AutoFilter Field:=13, Criteria1:="="

Range("M2:M31").Select

Selection.ClearContents

Selection.AutoFilter Field:=13

ActiveWindow.SmallScroll ToRight:=2

Columns("P:P").Select

Selection.Insert Shift:=xlToRight

Range("P2").Select

ActiveCell.FormulaR1C1 = ""

Range("P1").Select

ActiveCell.FormulaR1C1 = "PREVILLE2"

Range("P2").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",RC[-10],RC[-1])"

'

Selection.AutoFill Destination:=Range("P2:P31")

Range("P2:P31").Select

Selection.AutoFilter Field:=15, Criteria1:="="

Range("O2:O31").Select

Selection.ClearContents

Selection.AutoFilter Field:=15

End Sub

L'enregistreur est certes pratique mais limite après les possibilités, les miennes aussi semblent l'être

Merci d'avance.

Clem.

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 !!!

Recherches récentes

soustraireprobleme datesprobleme formules datesprobleme identification formules datesprobleme identification format datesidentification format datesrepartirdupliquer onglets listeremplacer retour chariot point interrogation carreloureedcombiner seuledeux conditionscondition couleurcondition texteclore discussionouvrir fichier vbasuivi factureinput boxrechercher derniere donneevba remplacer mot