Attribuer un nom au classeur actif

Résolu/Fermé

lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014 - Modifié par pijaku le 15/01/2014 à 16:56
skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 - 17 janv. 2014 à 17:55

Bonjour,

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
Trouver une adresse avec un nom de famille gratuit ✓ - Forum Mobile
Annuaire portable gratuit a partir d'un nom - Forum Réseaux sociaux
Nom de l'adresse ✓ - Forum Réseaux sociaux
&Quot;Nom de l'adresse" lors d'une inscription sur une site - Forum Consommation & Internet
Actif il y a 2 heures messenger ✓ - Forum Facebook

5 réponses

Réponse 1 / 5

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
15 janv. 2014 à 15:55

Cette macro se trouve donc dans le 2e classeur ?
Et c'est le premier classeur qui change de nom tout les mois ?

Réponse 2 / 5

lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014
15 janv. 2014 à 16:04

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

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
15 janv. 2014 à 16:11

Tu veux le code pour tout ça ?
Ou juste pour le problème de copie ?

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
15 janv. 2014 à 17:12

Le nouveau classeur son nom est fixe ? Il existe déjà ?

Réponse 3 / 5

lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014
Modifié par pijaku le 15/01/2014 à 16:57

J'ai déjà une partie:

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")

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
Modifié par pijaku le 17/01/2014 à 13:02

Moi je propos 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 ?

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54 > skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016
15 janv. 2014 à 17:51

Si tu veux on peut, meme fermer le 1er classeur. Ou copier a un endroit special.

Réponse 4 / 5

lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014
15 janv. 2014 à 17:18

Le nouveau classeur n'existe pas et se crée avec la copie de la feuille

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014
Modifié par pijaku le 17/01/2014 à 13:02

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

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

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
Modifié par skk201 le 16/01/2014 à 11:01

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

lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014
16 janv. 2014 à 11:07

Ce que je veux c'est que une fois que la feuille est copiée dans le nouveau classeur, elle soit re-cacher dans le classeur d'origine.

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54 > lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014
17 janv. 2014 à 12:19

Alirs prend le veryhidden

lepeno Messages postés 7 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 17 janvier 2014
17 janv. 2014 à 13:26

ok merci beaucoup pour ton aide

De rien si tu as d'autres questions n'hesite pas. Et met le sujet "resolut"

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Comment trouver un numéro à partir du nom et prénom

Trouver un nom avec une adresse

Nom d’adresse

Discussions similaires

Newsletters