Attribuer un nom au classeur actif
Résolu
lepeno
Messages postés
7
Statut
Membre
-
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un bout de code qui me pose problème alors que je veux changer de classeur pour fermer masquer une feuille.
Sheets("1_global").Visible = False devrait masquer la feuille que j'ai précédemment copier mais je ne sais pas comment lui dire de le faire dans le classeur de départ. Sachant que ce classeur change de nom tous les mois.
J'imagine que ce que je dois faire est en début de macro d'attribuer un nom au classeur actif mais je ne sais pas comment faire.
Merci pour votre aide
J'ai un bout de code qui me pose problème alors que je veux changer de classeur pour fermer masquer une feuille.
Sub Rectangle214_Click()
Application.ScreenUpdating = False
Sheets("1_global").Visible = True
Sheets("1_global").Select
Sheets("1_global").Copy
Sheets("1_global").Visible = False
Application.ScreenUpdating = True
End Sub
Sheets("1_global").Visible = False devrait masquer la feuille que j'ai précédemment copier mais je ne sais pas comment lui dire de le faire dans le classeur de départ. Sachant que ce classeur change de nom tous les mois.
J'imagine que ce que je dois faire est en début de macro d'attribuer un nom au classeur actif mais je ne sais pas comment faire.
Merci pour votre aide
A voir également:
- Attribuer un nom au classeur actif
- Nom de l'adresse - Forum Réseaux sociaux
- Trouver un nom avec une adresse ✓ - Forum Loisirs / Divertissements
- Nom d'adresse - Forum Jeux vidéo
- Nom sonnerie iphone - Forum iPhone
- Rechercher un nom avec l'adresse ✓ - Forum Réseaux sociaux
5 réponses
Cette macro se trouve donc dans le 2e classeur ?
Et c'est le premier classeur qui change de nom tout les mois ?
Et c'est le premier classeur qui change de nom tout les mois ?
Non ce code ce trouve dans le premier classeur qui s'appelle Dashboard&mois en cours (le nom changeant tous les mois). Je vais décrire les étapes de ce que je cherche c'est plus simple je pense.
1/dans le premier classeur, afficher la feuille ("1_global")
2/copier la feuille ("1_global")
3/ouvrir un nouveau classeur
4/proposer l'enregistrement de ce classeur (facultatif)
5/re-masquer la feuille ("1_global") dans mon premier classeur
6/afficher le nouveau classeur
Merci
1/dans le premier classeur, afficher la feuille ("1_global")
2/copier la feuille ("1_global")
3/ouvrir un nouveau classeur
4/proposer l'enregistrement de ce classeur (facultatif)
5/re-masquer la feuille ("1_global") dans mon premier classeur
6/afficher le nouveau classeur
Merci
J'ai déjà une partie:
mais avec ce code j'ai un bug car il ne peut pas revenir au premier classeur pour masquer l'onglet ("1_global")
Sub Rectangle214_Click()
Application.ScreenUpdating = False
Sheets("1_global").Visible = True
Sheets("1_global").Select
Sheets("1_global").Copy
Sheets("1_global").Visible = False
Application.ScreenUpdating = True
End Sub
mais avec ce code j'ai un bug car il ne peut pas revenir au premier classeur pour masquer l'onglet ("1_global")
Moi je propos qqchose comme ca :
faudrait recontroler car la j'ai rien pour avoir la syntaxe exacte, mais en gros qqchose comme ca ?
Sub Rectangle214_Click()
Application.ScreenUpdating = False
Dim WB_name as String
WB_name = activeworkbook.name
activeworkbook.("1_global").Visible = True
Sheets("1_global").Select
Sheets("1_global").Copy
Sheets("1_global").Visible = False
WorkBooks.Add
ActiveWorkbook.SaveAs "C:\chemin\nom fichier voulu.xls"
activeworkbook.activeworksheet.paste
Application.ScreenUpdating = True.
End Sub
faudrait recontroler car la j'ai rien pour avoir la syntaxe exacte, mais en gros qqchose comme ca ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
J'ai intégré ton code, merci beaucoup.
j'ai une erreur, Unable to set the visible property of the worksheet class.
Le bug est sur cette ligne
Sheets("1_global").Visible = False
J'ai intégré ton code, merci beaucoup.
j'ai une erreur, Unable to set the visible property of the worksheet class.
Le bug est sur cette ligne
Sheets("1_global").Visible = False
Sub Rectangle214_Click()
Application.ScreenUpdating = False
Dim WB_name As String
WB_name = ActiveWorkbook.Name
Sheets("1_global").Visible = True
Sheets("1_global").Select
Sheets("1_global").Copy
Sheets("1_global").Visible = False
Workbooks.Add
ActiveWorkbook.SaveAs "C:\chemin\nom fichier voulu.xls"
ActiveWorkbook.ActiveWorksheet.Paste
Application.ScreenUpdating = True
End Sub
Si tu veux juste cacher la feuille, donc on peut la mettre visible manuellement en faisant, Format > Feuille > Afficher...
Sheets("1_global").Visible = Hidden
Si tu veux que la feuille soit uniquement affichable via macro
Sheets("1_global").Visible = xlVeryHidden
Et pour afficher c'est mieux de faire :
Sheets("1_global").Visible = xlSheetVisible
Sheets("1_global").Visible = Hidden
Si tu veux que la feuille soit uniquement affichable via macro
Sheets("1_global").Visible = xlVeryHidden
Et pour afficher c'est mieux de faire :
Sheets("1_global").Visible = xlSheetVisible