Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Ken Hutchinson

XLDnaute Occasionnel
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.

Code:
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
 
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 🙂
 
Dernière édition:
Re : extraire les 43 et 44 ème lettres d'une cellule

Bonjour Ken, Pierrejean, skoobi (désolé pour la collision)
Code:
Sub testrr()
Dim Strg As String
Strg = "azertyuiopqsdfghjklmwxcvbn123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
MsgBox Len(Strg)
MsgBox Mid(Strg, 43, 2)
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
Réponses
4
Affichages
975
mimich_88
M
S
Réponses
0
Affichages
948
S
V
Réponses
2
Affichages
2 K
vynmarius
V
M
Réponses
11
Affichages
2 K
Melidan2006
M
U
Réponses
3
Affichages
1 K
Undersound
U
J
Réponses
10
Affichages
20 K
jeremy6812
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…