Profil de ricomiracle - CodeS SourceS

DLL COMBOSENSE , LE COMBOBOX À SAISIE SEMI-AUTOMATIQUE PARFAIT !

/source/23147-dll-combosense-le-combobox-a-saisie-semi-automatique-parfait

Merci pour ta source... Moi je cherche à réaliser avec un contrôle combobox une sorte de saisie semi-auto pointée. Je m'explique à la manière de visual studio, lorsque je tape la touche '.' la liste se déroule si le mot avant le point est reconnu comme ayant des attributs. Vous voyez ce que je veut dire...? Il faut donc déplacer le comb...

LB_SETTABSTOPS : DES COLONNES DANS UN LISTBOX

/source/20841-lb-settabstops-des-colonnes-dans-un-listbox

Effectivement c'est pas mal ces contrôles... Par contre je comprend pas un truc lorsque j'exécute mon projet sous VB, je peux pas modifier les items dans la ListView bien que la propriété le permettant EditLabel sois à 0 (lwtAutomatic) Quelqu'un saurait-il comment permettre à l'utilisateur de modifier les cases de la listView???? Me...

Désolé je suis po tres bien là... ListBox et ListView c'est pas la même chose??? Sinon existe il des controles qui sont comme ca à l'origine (des traits pour séparer les colonnes par exemple) et surtout où l'utilisateur pourrait directement modifier l'un des champs? J'ai besoin de faire un projet qui possède cette fonctionnalité et ...

EXEMPLE SIMPLE DE BASE DE DONNÉE

/source/8090-exemple-simple-de-base-de-donnee

Tres bon exemple pour démarrer les BDD ss en VB J'ai pas tres bien compris ce qu'etait le type Workspace: "Public wrkJet As Workspace 'Espace de travail DAO" bien que MSDN m'en dise un peu; pourrait tu expliquer en quelques mots ce ke c'est?????

CREER SUPPRIMER UNE BASE UNE TABLE UN CHAMP LIER EXCEL À ACCESS AINSI QUE CREER

/source/7506-creer-supprimer-une-base-une-table-un-champ-lier-excel-a-access-ainsi-que-creer-une-requete-afin-de-l-executer

Quand j'execute le code g une erreur: Invalid outside procedure sur le Set (le premier) pourkoi? Desolé je debute ss VB

Problème avec la fonction writeline (Filesystemobject)

J'extrais des données d'une base de donnée et les injecte dans un fichier avec filesystemobject: sValue=sGroupName & ";" & GetUserInfo(tab(i)) & "1" fsoStream.WriteLine sValue Le problème est que parfois, je récupère des données contenant des caractères spéciaux.( avec les é è â ç ) Si j'affiche la chaine via un msgbox, j'obtiens des ... Lire la suite

... Mais en lisant ton lien très intéressant, tout me semble plus clair! Merci encore pour ton aide.

Bonjour, Merci pour ton aide. J'ai trouvé la solution aujourd'hui. Le problème venait du format de fichier. On ouvre un fichier texte de cette manière: Dim fso As New Scripting.FileSystemObject Dim fsoStream As Scripting.TextStream Set fsoStream = fso.OpenTextFile(sPath, ForWriting, True) Mais! dans la fonction OpentextFile,...

Bonjour, Effectivement il s'agit de la fonction writeline de l'objet textstream. J'essaie d'être aussi précis que possible mais je ne comprends pas moi même le problème exact. L'erreur intervient sur la fonction writeline. Gestuserinfo(tab(i)) n'échoue pas. Cette fonction interroge une base de donnée (LDAP) contenant des utilisateurs. ...

Execution macro excel

Bonjour a tous, Depuis quelques temps je fais face aune difficulte a laquelle je ne trouve pas de solution. En effet j ai realise une macro pour le traitement des donnes contenu ds des fichier csv et txt. l'execution de la macro initialement prenait 6 mn et sans que je ne comprenne pourquoi le temps d execution est devenu de plus en... Lire la suite

Tu ouvres un classeur à chaque fois que tu traites un fichier? Pourquoi tu travail pas sur le fichier directement (avec la référence Microsoft Scipting Runtime)

Chemin d'un dossier personnel

Bonjour, Je souhaite récupérer les chemins de tous les fichiers pst (dossier personnel outlook) ouverts dans outlook. J'arrive pour l'instant à récupérer les objets VBA mais je ne trouve pas de propriété indiquant l'emplacement du fichier: Dim Ns As Outlook.NameSpace Dim MAPIFolder As Outlook.MAPIFolder Set Ns = ThisO... Lire la suite

Effectivement... Pas facile à lire. Cependant, j'ai trouvé un bout de code entre-temps qui permet de retrouver le chemin à partir de la propriété storeID de l'objet MAPIFolder. Cependant, l'idée du registre me plait car ça me permettrait d'exécuter le code sur tout les registres de mon réseau... Avec un peu de chance, les données dans ...

PST OUTLOOK

Bonjour, Est-ce quelqu'un sait comment récupérer le chemin du fichier pst d'outlook de l'utilisateur en cours ? (Sachant que ce chemin est paramétrable dans outlook...)

Pour ceux qui tomberaient sur ce post, il y a un code sur outlook-code.com: Il faut récupérer un objet MAPIfolder puis envoyer la propriété storeID de cet objet à la fonction GetStorePath 'This function retrieve the fileName of a PST 'from the storeID of a MAPIfolder Public Function GetStorePath(ByRef sStoreID As String) As String ...

Bonjour, Je cherche à faire la même chose alors si tu as trouvé la solution...

Boucle avec recherche de valeur et récupération adresse de cellules actives

Bonjour à partir de ce début de code je voudrais récupérer l'adresse de la cellule active pour appliquer 4 colonnes plus loin mais sur la même ligne une formule. Code : "Recherche une valeur dans le tableur"Cells.Find(What:=VarFrns, After:=ActiveCell, LookIn:=xlFormulas, _LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:... Lire la suite

Je comprends pas bien ce que tu veux faire... Les .activate sur un objet range ne servent à rien. Tu devrais essayer ça: Sub Macro1() Dim i As Integer Dim j As Integer Dim tCell As Range Range("A8").Select Set tCell = Cells.Find(What:="2", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, Se...

Bonjour, dim tCell as range set tCell=selection (tCell est la cellule, ou les cellules active)

recuperer donnee d'excel

bjour, Je cherche a recuperer une donnee sous format heure comme suit: 10:21 contenue dans une cellule excel dans mon programme vb6,je veux la recuperer telle qu'elle j'ai essayé ca: Set appExcel = CreateObject("Excel.Application") appExcel.Workbooks.Open ChemFich Set wbExcel = appExcel.ActiveWorkbook Set wsExcel... Lire la suite

Bonjour, Penches toi vers la fonction "format" format(value,"hh:mm") devrait te convenir.

Quelle fonction pour parcourir texte

Bjour, Je cherche une fonction qui parcours un texte et lorsque un pattern est detecté( pour mon cas une succesion de point d interrogation) copie les 16 caracteres suivants .J utilise en ce moment InStr(chaine,motif) puis les fonctions Left et Right pour decouper le passage qui m interesse , le souci que j ai ,c est que mon fichier... Lire la suite

Pour parcourir le fichier il te faut ajouter la référence Microsoft scripting runtime à ton projet ensuite: Dim fso As New Scripting.FileSystemObject Dim fs As Scripting.FileSystemObject Dim fsostream As Scripting.TextStream Dim sline As String Dim stext As Variant Set fsostream = fso.OpenTextFile("c:\test.txt") While Not ...

Bonjour, Tu dois reformuler la question. On ne comprend pas si ton texte est contenu dans un fichier texte ou dans des cellules Excel. Post ton code de manière à ce que l'ont apporte une réponse précise

application VB

bonjour je veu mettre en place une application qui facilite la gestion des documents images(pdf,autres);demande consseille

adobe reader?

Copier puis coller valeur dans la prochaine cellule vide d'un tableau excel

Bonjour à vous, les dieux de la programmation. Un problème sûrement simple... J'ai fouillé dans le forum et je n'ai pas trouvé exactement ce que je voulais... J'ai une feuille excel. Dans cette feuille j'ai besoin de compléter un tableau. Par exemple: J'ai une colonne nommée "Couleur" Disons que la colonne comporte déja 5 lignes (B2 à... Lire la suite

Bonjour, Tu devrais fournir plus d'infos afin d'avoir une réponse claire. Par exemple, post le code que tu as déjà écrit. Je ne sais pas si ça répond à ta question mais...: Une cellule est un objet range. Tu peux le déclarer dans ta fonction: dim tCell as range Il suffit, quand tu modifies la première cellule (B2) de la conserver...

Excel et nom de colonnes

Bonjour a tous Quelqu'un sait comment modifier le nom d'une colonne Excel depuis VB en utilisant Excel Object Library Merci bcp d'avance

Par nom de colonne qu'entends tu? Chacune des cellules est modifiable par VB: Cells(1,4).value="nom de la colonn"