Copier un code dans ThisWorkbook

[creolia]

bonjour

Je souhaiterais savoir si il etait possible de copier un code dans la racine d'une feuille

en claire j'ai un code evenementiel et j'ai une macro qui me permet de creer une nouvelle feuille je cherche donc une solution pour copier un code via macro dans certaine feuille

es possible ou non merci de votre aide

 

[creolia]

Re : Copier un code dans ThisWorkbook

Re bonjour JNP

Donc n'ayan pas tout compris a ce dernier sujet j'ai fais un petit fichier join avec tous les conseil que tu ma donner

une combobox = R1 pour selectionner le Name des onglet
un Textbox = CodeFeuille pour le codeName

et

un boutton avec ton code dedant mais cela ne fonctionne pas

ai je louper quelque chose stp merci

 

[Dull]

Re : Copier un code dans ThisWorkbook

Salut creolia, Jean Noël🙂, le fil

je n'ai pas suivie toute la conversation mais si tu veux trouver le CodeName de la feuille en R1(combobox)

essaye ce Code

Private Sub R1_Change()
CodeFeuille.Value = Sheets(CStr(R1)).CodeName
End Sub

Bonne Journée

 

[JNP]

Re : Copier un code dans ThisWorkbook

Salut Dull, re 🙂,
C'est normal, tu déclares une String qui as le même nom que ton TextBox 😱...

Private Sub CommandButton1_Click()
Dim ws As Worksheet, [COLOR=red][B]CodeFeuille As String[/B][/COLOR]
For Each ws In ThisWorkbook.Worksheets
If ws.Name = R1.Text Then CodeFeuille = ws.CodeName
Next
'If CodeFeuille <> "" Then
'End If
End Sub

donc si tu l'enlèves, ça fonctionne 😉

Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = R1.Text Then CodeFeuille = ws.CodeName
Next
'If CodeFeuille <> "" Then
'End If
End Sub

Bonne journée 😎

 

[creolia]

Re : Copier un code dans ThisWorkbook

Re bonjour

désolé de réponde aussi tard mais je voulais finir tous les testes avant d'etre sur d'avoir compris et de l'adapté à mon projet.

Je peut vous dire merci à tous ce qui m'ont aider en particulier un grand merci à JNP pour l'aide les modifications et correction enfin tous ton temps que tu m'à consacrer.

tout fonctionne super bien et j'espere egalement sa aideras d'autre personne débutant comme moi

merci enormement et à bientot