imputbox

[MASSJIPE]

Bonjour le Forum
Je cherche un code pour un imputbox. pour enregistrer un classeur issu d'un modèle nommé VOR_VIERGE_V4.xlsm
1) nommer la cellule D1 de la feuille accueil
2) nommer le classeur VOR avec le contenu de la cellule D1 de la feuille accueil Ex VOR S12
3)mon chemin C:\Users\JP_M\Documents\
cordialement

 

[vgendron]

Re : imputbox

Bonjour

pour débuter, je te suggère d'utiliser l'enregistreur de macro que tu lances, puis tu fais les opérations que tu souhaites
"ouvrir un fichier, donner des noms entrer des formules etc etc et enregistrer"
tu arretes l'enregistreur et la. tu vois comment il a codé tout ca..
ensuite. tu épures et adapte en fonction du besoin et n'oublie pas d'abuser de la touche F1 !!!

et sinon, pour te donner quelques pistes de mots clés
GetOpenfile
add.name

 

[Robert]

Re : imputbox

Bonjour Massjipe,Vgendron, bonjour le forum,

Peut-être comme ça (à placer dans le classeur "VOR_VIERGE_V4.xlsm") :

Sub Macro1()
Const CH As String = " C:\Users\JP_M\Documents\" 'déclare et définit la constante CH (CHemin)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim T As Variant 'déclare la variable T (Texte)

Set O = ThisWorkbook.Sheets("accueil") 'définit l'onglet O
deb: 'étiquette
'définit la variable T
T = Application.InputBox("Veuillez renseigner le nom !", "NOM", Type:=2)
If T = False Then Exit Sub 'si bouton [Annuler] sort de la procédure
If T = "" Then 'consition : si T est vide
    MsgBox "vous devez renseigner le nom !" 'message
    GoTo deb 'va à l'étiquette "deb"
End If 'fin de la condition
O.Range("D1").Value = T 'renvoie T dans la cellule D1 de l'onglet O
ThisWorkbook.SaveAs (CH & "VOR " & T & ".xlsm") 'enregistre le classeur sous
End Sub