Remplacer des paramètres dans des URL

mezvin

XLDnaute Nouveau
Bonjour,

J'aimerai solliciter votre aide pour la réalisation d'un fichier Excel qui permettrait de remplacer des paramètres dans des URL

Globalement, j'aurai une liste d'URL différentes dans une colonne Excel.
Ces URL pourraient contenir des paramètres (Ex: _IdClient ou _IdCategory)

Il faudrait que je puisse renseigner dans une cellule la valeur du paramètre pour chaque paramètre et lancer une macro par exemple pour remplacer "Id_Client" qui aura été trouvé dans toutes les URLs de la colonne "A" par la valeur de la cellule renseignée. Idem pour les autres paramètres.

Un exemple du fichier en pièce jointe.

Un grand merci par avance de votre aide.
 

Pièces jointes

  • Fichier.xlsm
    9.6 KB · Affichages: 30

Lolote83

XLDnaute Barbatruc
Salut,
peut être avec ceci
Code:
Sub Traitement()
    Call TrouveEtRemplace("IdClient", "76A11")
    Call TrouveEtRemplace("IdProduit", "PROD1")
    Call TrouveEtRemplace("IdCategory", "43")
End Sub

Sub TrouveEtRemplace(xCherche, xRemplace)
    Cells.Replace What:=xCherche, Replacement:=xRemplace, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
Affecte ensuite la macro traitement à ton bouton
@+ Lolote83
 

mezvin

XLDnaute Nouveau
Merci beaucoup Lolote83. Ça fonctionne.
Une fois ce traitement lancé, il faudrait que je puisse lancer un traitement sur toutes les URL afin qu'elles soient encodées (URL ENCODE). Sais-tu comment il est possible de faire ça ?
 

mezvin

XLDnaute Nouveau
Afin d'être interprétées par tous les navigateurs, j'ai besoin que mes URL soient encodées.
C'est à dire que mon URL (Ce lien n'existe plus) sera transformée par (http%3A%2F%2Fwww.monsite.com)

Aujourd'hui, il me faut passer par un site (http://www.url-encode-decode.com/) et les faire une à une.

Il faudrait pour automatiser ce traitement.

Un sujet existe sur le site (http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba), mais je ne parviens pas à le transposer à la suite de la macro que tu m'as fourni.

Merci
 

Lolote83

XLDnaute Barbatruc
Salut,
Je ne comprends pas tout en anglais sur le site dont tu me parles, mais j'ai copié la macro1 (EDIT) et la macro2 (EDIT2) et voici ce qu'il en ressort. Voir Feuil2
@+ Lolote83
 

Pièces jointes

  • Copie de MEZVIN - Encodage.xlsm
    90.5 KB · Affichages: 26

Discussions similaires

Réponses
26
Affichages
377

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16