extraire les 43 et 44 ème lettres d'une cellule

[Ken Hutchinson]

hello le forum !!!

J'ai besoin de votre aide pour un code. Je veux faire une macro qui enregistre automatiquement un fichier et lui donne un nom selon ce qu'il y a dans une cellule.

le problème : dans cette cellule il y a une grande quantité de lettres et je veux que dans le nom du fichier il n'y ai que les lettres en 43 et 44ème position et pas le reste. Il y a des choses avant et des choses après.

C'est la variable NomArticle.

Merci de votre aide.

Sub Sauve()



' la variable DateReq est le mois du tableau
    DateReq = Cells(5, 6).Value
    
' la variable NomArticle est le nom de produit traité
    
    NomArticle = Cells(6, 6).Value
    

    ActiveWorkbook.SaveAs Filename:= _
        "M:\BB\Produit\Résultats " & NomArticle & " " & DateReq & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        

MsgBox "Le fichier Résultats " & NomArticle & " " & DateReq & " est disponible sur le Serveur BB"

End Sub

 

[pierrejean]

Re : extraire les 43 et 44 ème lettres d'une cellule

bonjour KEN

A tester:

NomArticle = Mid (Cells(6, 6).Value,43,2)

 

[skoobi]

Re : extraire les 43 et 44 ème lettres d'une cellule

Bonjour,

avec la fonction "Mid":

extrcaract = Mid(NomArticle,43,2)

Edit: salut Pierrejean, ça fait plaisir de te croiser 🙂

 

[Staple1600]

Re : extraire les 43 et 44 ème lettres d'une cellule

Bonjour Ken, Pierrejean, skoobi (désolé pour la collision)

Sub testrr()
Dim Strg As String
Strg = "azertyuiopqsdfghjklmwxcvbn123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
MsgBox Len(Strg)
MsgBox Mid(Strg, 43, 2)
End Sub

 

[Ken Hutchinson]

Re : extraire les 43 et 44 ème lettres d'une cellule

Merci ça marche super !!!