Contenu récent par sousou

suite

Re Il faudrait que tu me dise si le résultat que tu attends te semble correct j'ai testé l'enchainement sur le premier voyage macro deb()

Bonjour Pas bien saisie le résultat attendu Peux-tu donner plus d'explications avec un exemple ou deux concret du resultat attendu

Bonjour à tous Un fichier pour récupérer toutes les feuilles et codes d'un fichier en excluant ou pas des éléments. A voir si ça peux servir en cas de fichier corrompu

Bonjour comme ceci par exemple

Utiise la macro deb qui va tout faire

Re deux méthodes la macro deb va faire toutes les lignes et retourner le resultat conlonne d

bonjour une fonction à tester ' ad est la zone contenant les infos Function conca(ad) For n = 2 To ad.Count conca = conca & ad(n) Next conca = "<" & conca End Function

bonjour tu peux essayer ceci n = InStr(1, valeur, Chr(10)) valeur = Left(valeur, n - 1) & " " & Right(valeur, Len(valeur) - n)

Bonjour J'ai ajouter un module de recherche, Maintenant que veux tu faire du résultat? J'ai pas travailler la présentation. J'ai ajouter un tri

Bonjour pas bien compris le tri (pourquoi faire) et la deuxième partie de ta phrase, il faudrait mieux décrire ce que tu fait J'ai ajouté un fonction pour compter les pays (compte(zone;cont) a suivre

Ca explique!

essai ceci msedge.exe etant l'executable du navigateur windows (EDGE) ou firefox.exe Set f = CreateObject("wscript.shell") r = f.Run("msedge.exe" & fichier, 1, True)

bonjour ceci fonctionne à adapter ici j'utilse edge et un fichier html Sub deb() Set f = CreateObject("wscript.shell") r = f.Run("msedge.exe" & " C:\Users\bas\Documents\Développements\VBS\formulaire.html", 1, True) End Sub

Bonjour Ma réponse si c'est cela?