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

Masquer l'execution d'une macro concernant la creation d'un nouveau classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jibdu64
  • Date de début Date de début

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 !

S'inscrire
J

jibdu64

Guest
Bonjour,

j'ai un bouton sur ma feuille Excel qui lorsque on le déclenche crée un nouveau classeur Excel dans lequel il stocke certaines données. Ce code marche très bien.

Cependant, j'aimerais masquer l'exécution de ce code et donc que le nouveau classeur ne s'ouvre que a la fin de la macro, car si l'on clique sur le nouveau classeur quand il s'est généré pendant que la macro tourne, celle-ci se stoppe, ce qui me déclenche des erreurs car tout le code ne s'est pas exécuté.

j'ai essayé ce code :

Application.ScreenUpdating = False

Mais il ne masque rien, je suppose car c'est un nouveau classeur qui se crée ..

Auriez-vous une solution ?

Merci d'avance.
 
Trier par date Trier par votes
Re : Masquer l'execution d'une macro concernant la creation d'un nouveau classeur

Bonjour,

Plusieurs solutions s'offrent à vous :
-Spécifier dans votre code le classeur concerné (ThisWorkbook pour le classeur contenant ce code)
-Ne pas afficher le nouveau classeur qui se créé, avec la propriété .Visible = False, et donc ne pas oublier de repasser à True à la fin
-Après la création du second classeur, activer à nouveau le premier avec ThisWorkbook.Activate

Si les informations dans votre fichier ne sont pas confidentielles, il serait bien de le joindre avec votre demande, ou à défaut votre code.
 
Vote positif 0 Vote négatif
Re : Masquer l'execution d'une macro concernant la creation d'un nouveau classeur

Oui désolé, voici mon code :

Private Sub CommandButton1_Click()

'################################################################################################################
' GENERATION NOUVEAU CLASSEUR
'################################################################################################################
'
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet



Call RépertoireExiste("J:\agent\" & ComboBox1.Value)
Call RépertoireExiste("J:\agent\" & ComboBox1.Value & "\" & ComboBox2.Value)



'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 7)
xlApp.SheetsInNewWorkbook = 7
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs ("J:\agent\" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & " Feuille suivi VH")
'On rend le classeur visible
xlApp.Visible = True
'On créer l'objet onglet dans le nouveau classeur créé
Set xlSheet = xlBook.Worksheets(1)
'On affecte un nom aux l'onglets
xlSheet.Name = "Cycle 1"
'on libère l'objet onglet pour pouvoir en créer un nouveau ... etc
Set xlSheet = Nothing
'
'
Set xlSheet = xlBook.Worksheets(2)
xlSheet.Name = "Cycle 2"
Set xlSheet = Nothing
Set xlSheet = xlBook.Worksheets(3)
xlSheet.Name = "Cycle 3"
Set xlSheet = Nothing
Set xlSheet = xlBook.Worksheets(4)
xlSheet.Name = "Cycle 4"
Set xlSheet = Nothing
Set xlSheet = xlBook.Worksheets(5)
xlSheet.Name = "Cycle 5"
Set xlSheet = Nothing
Set xlSheet = xlBook.Worksheets(6)
xlSheet.Name = "Cycle 6"
Set xlSheet = Nothing
Set xlSheet = xlBook.Worksheets(7)
xlSheet.Name = "Cycle 7"

'On remet la propriété de l'application à 3 (par défaut)
xlApp.SheetsInNewWorkbook = 3



Set f = Worksheets("BD_saison")
Set g = Worksheets("BD_agents")
Set h = Worksheets("BD_centres")

n = WorksheetFunction.CountA(f.Columns(1))
m = WorksheetFunction.CountA(g.Columns(1))
o = WorksheetFunction.CountA(h.Columns(1))


'################################################################################################################
' REMPLISSAGE DU NOUVEAU CLASSEUR
'################################################################################################################

For i = 1 To m
If ComboBox3.Value = g.Cells(i, 2) & " " & g.Cells(i, 3) Then
For j = 1 To o
If h.Cells(j, 4) = g.Cells(i, 1) Then
team = h.Cells(j, 3)
End If
Next j
End If
Next i
 
Vote positif 0 Vote négatif
Re : Masquer l'execution d'une macro concernant la creation d'un nouveau classeur

Impeccable, essaie donc ceci :

Code: 
Private Sub CommandButton1_Click()

'################################################# ################################################## #############
' GENERATION NOUVEAU CLASSEUR
'################################################# ################################################## #############
'
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet



Call RépertoireExiste("J:\agent\" & ComboBox1.Value)
Call RépertoireExiste("J:\agent\" & ComboBox1.Value & "\" & ComboBox2.Value)



'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 7)
xlApp.SheetsInNewWorkbook = 7
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook.SaveAs ("J:\agent\" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & " Feuille suivi VH")
'On rend le classeur visible **(Modif NQC)**
xlApp.Visible = False

'Modif NQC
For i = 1 To 7
  Set xlSheet = xlBook.Worksheets(i)
  xlSheet.Name = "Cycle " & i
Next

Set xlSheet = Nothing

'On remet la propriété de l'application à 3 (par défaut)
xlApp.SheetsInNewWorkbook = 3



Set f = xlBook.Worksheets("BD_saison") '**Modif NQC : ajout xlBook. **
Set g = xlBook.Worksheets("BD_agents")
Set h = xlBook.Worksheets("BD_centres")

n = WorksheetFunction.CountA(f.Columns(1))
m = WorksheetFunction.CountA(g.Columns(1))
o = WorksheetFunction.CountA(h.Columns(1))


'################################################# ################################################## #############
' REMPLISSAGE DU NOUVEAU CLASSEUR
'################################################# ################################################## #############

For i = 1 To m
If ComboBox3.Value = g.Cells(i, 2) & " " & g.Cells(i, 3) Then
For j = 1 To o
If h.Cells(j, 4) = g.Cells(i, 1) Then
team = h.Cells(j, 3)
End If
Next j
End If
Next i

xlApp.Visible = True
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
Microsoft 365 [RESOLU]UserForm qui revient à la fermeture d'un classeur, du fait le classeur se bloque et il faut fermer manuellement l'UserForm
2
Réponses
17
Affichages
696
Marboi
M
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
949
jeff1494
L
  • Question Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
867
l.et.lilou
L
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
718
Pimpon974
P
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
845
Lu76Fer
T
  • Question Question
XL 2019 Macros désactivées mais la macro WorkBook_Open est exécutée
Réponses
2
Affichages
596
ThierryP
T
J
  • Question Question
XL 2016 macro pour remplir un calendrier à partir d'une liste d'évènements
Réponses
3
Affichages
691
julien6337
J
  • Résolu(e)
XL 2013 Masquer un shape (forme) définit dans toutes les feuilles
2
Réponses
17
Affichages
2 K
sylvanu
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
1 K
Janu44
J
M
  • Résolu(e)
XL 2016 VBA- Créer copie d'une plage de cellule dans nouveau classeur et envoyer par mail
Réponses
9
Affichages
1 K
MONTREAL2020
M
  • Question Question
XL 2019 [Résolu] Masquer et démasquer des lignes problème macro
Réponses
2
Affichages
745
bellenm
X
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
X
R
  • Résolu(e)
XL 2010 Masquer quelques onglets uniquement d'un fichier
Réponses
4
Affichages
2 K
rosabelle
R
W
  • Résolu(e)
Microsoft 365 VBA : Déplacer une sélection de feuilles dans un nouveau classeur
Réponses
4
Affichages
3 K
WhatIsVBA
W
P
  • Résolu(e)
XL 2010 Appel macro d'un autre classeur
2
Réponses
16
Affichages
3 K
pleasewait
P
C
  • Question Question
XL 2019 Déroulement macro après fermeture d'un classeur
Réponses
7
Affichages
2 K
claudio54
C
X
  • Question Question
XL 2019 Lancer macro depuis autre fichier d'une autre instance
Réponses
5
Affichages
2 K
cp4
L
  • Question Question
Microsoft 365 Optimiser export données vers nouveau classeur
Réponses
1
Affichages
1 K
Ludwig74
L
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
C
  • Résolu(e)
Microsoft 365 Macro : masquer un onglet quand on ferme un classeur
Réponses
10
Affichages
2 K
soan
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…