Ajouter des caractères dans un string

:salut: à tous !!
J'ai un petit souci que je n'arrive pas à résoudre....

J'ai une requête qui sélectionne le nom d'un document (string), la version majeure (integer), la version mineure (integer), la version révision (integer).

Le nom du document est de ce format : nom.doc
Je souhaiterai insérer les versions à l'intérieur
si version majeure = 1, version mineure = 2 et version révision = 0, je souhaiterai stocker dans une variable cela : nom_1_2_0.doc

j'arrive à insérer les numéros de versions avant et après le nom du document mais pas à l'intérieur !!

Si quelqu'un peut m'aider....

Merci d'avance

Code:

---

1 2 3 4 5

Mineur = MsTr Majeur = StrMjR Nom = StrName Dim dd as string dd = Nom & "_" & StrMjR & "_" & msTr & ".doc"

---

jespere que ca taideras...sinon poste un bout de ton code:salut:

Salut !

Le souci c'est que l'extension est dans le nom et qu'elle n'est jamais la même.
Donc ton bout de code ne marche pas

mais merci quand même

Pourrais tu me montrer un bout de ton code comme ca je pourrais t'aider...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim NomFichTotal As String Dim Nom As String Dim PosExt As Integer Dim Ext As String   NomFichTotal = "MonDoc.doc" PosExt = InStrRev(NomFichTotal,".") Ext = Mid(NomFichTotal ,PosExt) Nom = Mid(NomFichTotal ,1,PosExt-1)   NomFichTotal = Nom & "1_2_0" & Ext

---

(pas testé car je ne suis pas chez moi :D )

voilà mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

dim strquery as string dim myrec as recordset dim nom_version as string   strquery = "SELECT id_document, document, tbl_001_document.idx_document, version_majeure, version_mineure, version_revision " & _ "FROM tbl_001_document, tbl_001_version " & _ "WHERE id_document = tbl_001_version.idx_document ;" 'fonction de la librairie qui exécute la requete If Not mod_sql.sql_open_recordset_v1(strquery, myrec, erreur) Then Err.Raise 513, , erreur   'tant qu'il y a des résultats While not myrec.EOF 'je récupère le nom du document sans l'extension mais je n'est pas trouvé pour ajouter les versions et reprendre l'extension nom_version = right(myrec.fields(1),InStr(myrec.fields(1), ".") -1) 'ensuite il faudrai que j'insère dans une table le nom avec version myrec.MoveNext Wend

---

je ne pense pas que cela va beaucoup t'aider étant donné que j'arrive pas à avancer....

j'ai pas vu le message avec ton code entre temps, je vais essayer ça

Merci

ton code marche !!!!
je te remercie beaucoup beaucoup beaucoup !!! :D :D :D :D
tu es :king: