Discussion :

[ACNTOURAINE]

Bonjour et bonne année à tous les bénévoles,

Mon problème est le suivant:
J'exporte une table Access au format CSV où il y a des lien hypertexte vers des pages Internet.
L'export se passe très bien sauf que le caractère # est ajouté devant chaque lien #http://....
J'ai fait pas mal d'essais pour le format d'export mais cela ne fonctionne pas, comment éviter l'ajout de ce #

J'ai essayé de passer par une table intermédiaire en changeant le type de donnés du champ hyperlien en format texte.
C'est bien le format texte qui ajoute le # dans la table Access mais comment supprimer le premier caractère de gauche à l'aide d'une requête mise à jour.

Il y a bien l'option d'ouvrir le fichier avec le bloc-note pour supprimer le # mais le fichier a plus de 600 000 lignes alors le temps de réponse... même problème en l'ouvrant sous Excel.

Quelqu'un a-t' il une réponse.

Merci beaucoup.

ACN

[tee_grandbois]

Bonsoir,
pour ce problème il faut utiliser la fonction Remplacer dans une requête et faire l'export de cette requête à la place de ta table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Remplacer(Nz([ChampdeTypeLien];"");"#";"")

[tee_grandbois]

Bonsoir,
pour ce problème il faut utiliser la fonction Remplacer dans une requête et faire l'export de cette requête à la place de ta table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Remplacer(Nz([ChampdeTypeLien];"");"#";"")

Je reviens sur ma solution qui n'est pas correcte car elle remplace tous les caractères de la chaine ce qui va modifier le lien qui peut contenir aussi ce caractère. Il vaut mieux utiliser Left et Mid qui permet d'enlever seulement le premier et le dernier caractère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Left(Mid([ChampdeTypeLien], 2), Len(Mid([ChampdeTypeLien], 2)) - 1)

[ACNTOURAINE]

Bonjour,
Super
J'ai créé une requête Mise à jour avec le code indiqué et cela fonctionne
Merci encore.
Voici le code final de la requête sur le champ Lien pour la table Export TMP à mettre à jour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
UPDATE [Export TMP] SET [Export TMP].Lien = Left(Mid([Lien],2),Len(Mid([Lien],2))-1);

[ACNTOURAINE]

Bonjour,
Super
J'ai créé une requête Mise à jour avec le code indiqué et cela fonctionne
Merci encore.
Voici le code final de la requête sur le champ Lien pour la table Export TMP à mettre à jour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
UPDATE [Export TMP] SET [Export TMP].Lien = Left(Mid([Lien],2),Len(Mid([Lien],2))-1);

Je suis vraiment nul car maintenant j'ai besoin d'une requête à peut près identique pour supprimer le dernier caractère de droite.
J'ai bien essayé de remplacer Left par Right mais cela supprime toujours le caractère de gauche et je ne maitrise pas du tout le mélange des instructions Right et Mid

Merci de votre aide.
ACN

[tee_grandbois]

Bonjour,
pour avoir l'aide sur une fonction F1 sur sur la fonction mise en surbrillance (avec double-clic).
Le principe pour supprimer le dernier caractère à droite c'est de garder tout ce qui est à gauche de ce caractère. Tu dois donc connaitre la longueur à garder : si Len(Montexte) est la longueur totale de ton texte et que tu enlèves 1 à ta longueur, tu auras la longueur du texte à garder.
Mid() permet de renvoyer un texte à partir d'une position donnée (Argument 1), pour une longueur donnée (Argument 2) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim MonTexte as String
MonTexte= "Ceci est Mon Texte"
Debug.Print Mid(MonTexte, 1, Len(MonTexte) - 1)
' Renvoie : "Ceci est Mon Text"

je garde donc tout le texte à partir de la position 1 pour une longueur qui est (longueur de mon texte) -1

[ACNTOURAINE]

Bonjour,

Ne peux t'on pas faire une requête UPDATE ou MARIAGES est le nom de ma table et Lien le nom du champ où se trouve les liens Internet.
La table fait plus de 600 000 lignes et tous les champs Lien ne sont pas remplis et peuvent être de longueur différentes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UPDATE [MARIAGES] SET [MARIAGES].Lien = Mid([Lien],1),Len[Lien]-1);

Cette requête a une Erreur de syntaxe dans l'instruction UPDATE.
Merci de votre réponse
ACN

[tee_grandbois]

Bonsoir,
si tu es parti du code que je t'ai donné tu verras qu'il n'est pas le même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Mid(MonTexte, 1, Len(MonTexte) - 1)
 Mid([Lien],1),Len[Lien]-1)

Commence par copier exactement le code fourni

[ACNTOURAINE]

Bonsoir,
si tu es parti du code que je t'ai donné tu verras qu'il n'est pas le même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Mid(MonTexte, 1, Len(MonTexte) - 1)
 Mid([Lien],1),Len[Lien]-1)

Commence par copier exactement le code fourni

Bonjour,

Je dois faire une requête mise à jour ou une fonction dans un module?
Je n'ai pas le choix de MonTexte et il se trouve dans le champ Lien de ma table.
Pour moi le MonTexte n'est pas figé et peut varié sur les 600 000 ligne de la table, par contre je doit supprimer le dernier caractère du lien pour le personnaliser par la suite.
Ce que je ne comprends pas c'est que la requête MAJ définie au début pour supprimer le # fonctionne bien avec le champ Lien.
Merci beaucoup.
ACN

[tee_grandbois]

Bonsoir,
ce que je voulais te faire comprendre c'est que tu as mal copié la syntaxe, il y a une parenthèse manquante devant Len et une mal placée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Mid(MonTexte, 1, Len(MonTexte) - 1)
 Mid([Lien],1),Len[Lien]-1)

il faut bien évidemment copier le code exact syntaxiquement
voici le code pour ta mise à jour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UPDATE [MARIAGES] SET [MARIAGES].Lien =  Mid(Lien, 1, Len(Lien) - 1) WHERE Lien is not Null;

[ACNTOURAINE]

Bonjour,

Merci de votre réponse.
Cela fonctionne.
Problème résolu.