Beug avec ActiveWorkbook.Save dans un module

J'ai un classeur Planning Chevalley.xlsm contenant plusieurs feuilles nommées : "Interventions" "DATA_Jours_Fériés" "DATA_Interventions Fiche_de_travail"

J'aimerai créer un nouveau classeur nommé Copie du planning.xlsx contenant la feuille Interventions renommées Planning et la copie de la feuille DATA_Jours_Fériés.

Methode Copy sans destination, à appliquer à la Worksheet source.
Ca créera un nouveau fichier. Il suffira ensuite de le nommer avec un SaveAs.
Lire ça : https://msdn.microsoft.com/fr-fr/lib...4(v=office.15)

Ce n'est pas possible que tu aies une feuille nommée "DATA_Interventions Fiche_de_travail", car il y a trop de caractères. La longueur maximale d'un nom d'onglet est de 31 caractères.

Voici une procédure qui fait exactement ce que tu souhaites (si on accepte que la copie soit enregistrée dans le même dossier). Puisque le classeur est nouveau, il ne saurait être question qu'il possède une feuille Planning,. Ca ne sert donc à rien de tester l'existence de la feuille.

• Lors de la copie des deux feuilles, un nouveau classeur est automatiquement créé et il devient le classeur actif. On le récupère dans une variable car on en aura besoin plus tard, puis on réactive le classeur Chevalley qui est en fait le ThisWorkbook (celui qui contient la macro en train de s'exécuter).
• On renomme la feuille dans le classeur de sauvegarde
• On ferme la sauvegarde en la nommant

On entoure cela d'une gestion d'erreur, indispensable lorsque l'on pilote des trucs hors classeur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub CreateCopy() Dim Target As Workbook   On Error GoTo Catch Application.ScreenUpdating = False Sheets(Array("Interventions", "DATA_Jours_Fériés")).Copy Set Target = ActiveWorkbook ThisWorkbook.Activate Target.Worksheets("Interventions").Name = "Planning" Target.Close True, ThisWorkbook.Path & "\Copie du planning.xlsx"   Catch: If Err <> 0 Then MsgBox "L'erreur suivante est survenue:" & vbLf & Err.Description, vbExclamation, "Erreur " & Err.Number Application.ScreenUpdating = True End Sub

---

Cette procédure, qui prend réellement 6 lignes applicatives, doit être appelée au moment opportun (clic sur un bouton, avant fermeture de Chevalley, ...). Evite toujours de mettre du code applicatif dans une procédure événementielle. Comme je te l'ai déjà dit ailleurs, crée des procédures autonomes que tu peux tester en dehors d'un contexte précis (ici, un événement qui survient), et appelle ce code lors de la survenance de l'événement.

Merci Menhir,
Le code que vous m'avez indiqué, placé dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Fonctionne tout comme le mien avec l'enregistrement via le raccourcis clavier CTRL+S ou en cliquant sur la disquette de la barre d'outils Excel

Mais NE FONCTIONNE PAS avec ActiveWorkbook.Save dans le module1

Pourriez-vous faire le test avec un fichier, car j'ai peut-être un problème dans ma version Office365 ...

Merci
Philippe

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Worksheets("Sheet1").Copy With ActiveWorkbook .SaveAs Filename:=Environ("TEMP") & "\New1.xlsx", FileFormat:=xlOpenXMLWorkbook .Close SaveChanges:=False End With End Sub

---

Code:

---

1 2 3 4

Option Explicit Sub Bouton_Save_Click() ActiveWorkbook.Save End Sub

---

Merci Pierre,

Même résultat, et même réponse qu'à Menhir rien ne fonctionne avec ActiveWorkbook.Save :mur:

Merci Menhir,
Le code que vous m'avez indiqué, placé dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean).

Fonctionne tout comme le mien avec l'enregistrement via le raccourcis clavier CTRL+S ou en cliquant sur la disquette de la barre d'outils Excel

Mais NE FONCTIONNE PAS avec ActiveWorkbook.Save dans le module1

Pourriez-vous faire le test avec un fichier, car j'ai peut-être un problème dans ma version Office365 ...

Merci
Philippe

ActiveWorkbook.Save, c'est UNE ligne de code... Ca ne saurait pas appeler la macro que je t'ai donnée. Tu as du code événementiel dans le thisworkbook de Chevalley? Si oui, donnne-le.

Tu as probablement des trucs pas nets dans la procédure Workbook_BeforeSave, par exemple. Tu devrais avoir ceci, et ça fonctionne très bien

Code:

---

1 2 3 4

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) CreateCopy End Sub

---

Voilà le fichier. Teste en mettant éventuellement un point d'arrêt sur la ligne CreateCopy dans la procédure événementielle du ThisWorkbook.

Citation:

---

Envoyé par goninph

Pourriez-vous faire le test avec un fichier

---

Non

Citation:

---

Envoyé par goninph

[...]ActiveWorkbook.Save dans le module1[...]

---

Pas ActiveWorkbook.Save, mais plutôt ThisWorkbook.Save, sinon, tu sauves le classeur actif et pas le classeur qui contient la macro... :calim2::calim2::calim2: Et ça, ça n'enclenchera pas l'événement Workbook_BeforeSave du classeur Chevalley (sauf si ActiveWorkbook et ThisWorkbook représentent le même classeur, mais ce n'est pas toujours le cas...)

• ThisWorkbook => classeur qui contient la macro qui est en train de s'exécuter
• ActiveWorkbook => Classeur qui est en avant-plan dans l'environnement Excel

Parfois, les deux pointent vers le même classeur, parfois pas, en fonction du contexte.

Pierre, le code fonctionne comme tous les autres avec le raccourcis clavier CTRL+S ou en cliquant sur la disquette de la barre d'outils Excel

Mais je me suis mal expliqué :

Je veux déclencher l'enregistrement du classeur avec un bouton placé sur la feuille Interventions auquel j'ai affecté la macro Bouton_Save_Click contenant la seule et unique ligne de code ActiveWorkbook.Save

Pour ce faire j'ai placé le code ci-dessous dans le module1 pour lancer l'enregistrement.

Lors de chaque enregistrement, je veux mettre à jour (remplacer) le classeur Copie du planning.xlsx

Avez-vous essayé de lancer la macro ActiveWorkbook.Save, car chez moi la macro ne créer pas le fichier.

Code:

---

1 2 3

Sub Bouton_Save_Click() ActiveWorkbook.Save End Sub

---

Citation:

---

Envoyé par Pierre Fauconnier

Voilà le fichier. Teste en mettant éventuellement un point d'arrêt sur la ligne CreateCopy dans la procédure événementielle du ThisWorkbook.

---

ActiveWorkbook.Save NE LANCE PAS LA MACRO!! Ca ne fait que sauver le classeur actif! Point barre! (Voir mon message qui t'expliquait déjà cela)

Si tu veux qu'une macro (la tienne, la mienne, celle que tu veux) fasse son boulot lorsque tu utilises la ligne ActiveWorkbook.Save, tu DOIS LE PRECISER en plaçant le code suivant (qui appelle MA macro) dans le module ThisWorkBook de ton classeur Chevalley. Sans ce bloc de code événementiel, la macro CreateCopy n'est pas lancée lors de l'enregistrement (ActiveWorkbook.Save).

Code:

---

1 2 3

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) CreateCopy End Sub

---

Je t'ai créé un classeur qui modélise EXACTEMENT ce que tu dois mettre en place et je t'ai dit comment le tester!


Pièce jointe 505797


Pièce jointe 505799

Cela dit, ce n'est pas une bonne idée de mettre un bouton appelant une macro sur une feuille que tu vas copier sur un nouveau classeur, xlsx qui plus est. Ca ne saurait que créer des soucis, puisque tu vas lier ton nouveau classeur à ton ancien par un appel de macro. Je doute que ça puisse fonctionner avec un xlsx, d'ailleurs.


A quoi sert ce bouton? L'utilisateur n'est pas capable de cliquer sur la disquette ou de faire Ctrl+S?

ActiveWorkbook.Save NE LANCE PAS LA MACRO!! Ca ne fait que sauver le classeur actif! Point barre!

OK, mais si je suis pas à pas le déroulement (avec la touche F8) de l'action ActiveWorkbook.Save, on passe par Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) contenant la macro CreateCopy par ex., c'est correct ?

Oui, c'est correct. le problème venait du bouton sur la feuille et de la sauvegarde au mauvais format, car après Test, ça plante, évidemment...

Tu dois sauver ton fichier en xlsm avec la macro suivante, par exemple, puisque tu y intègres un bouton qui appelle une macro :roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub CreateCopy() Dim Target As Workbook   On Error GoTo Catch Application.ScreenUpdating = False Sheets(Array("Interventions", "DATA_Jours_Fériés")).Copy Set Target = ActiveWorkbook ThisWorkbook.Activate Target.Worksheets("Interventions").Name = "Planning" Target.SaveAs Filename:=ThisWorkbook.Path & "\Copie du planning.xlsm", FileFormat:=XlFileFormat.xlOpenXMLWorkbookMacroEnabled Target.Close False   Catch: If Err <> 0 Then MsgBox "L'erreur suivante est survenue:" & vbLf & Err.Description, vbExclamation, "Erreur " & Err.Number Application.ScreenUpdating = True End Sub

---

Dans le module 1, tu as aussi le code suivant, qui sauve simplement le classeur, et c'est l'appel à CreateCopy dans Workbook_BeforeSave qui réalise l'opération.

Code:

---

1 2 3

Sub SaveAndCopy() ThisWorkbook.Save End Sub

---

Et c'est cette macro SaveAndCopy qui va être associée au bouton placé sur la feuille.




Je persiste néanmoins à dire que c'est une mauvaise idée de mettre le bouton sur la feuille qui est copiée, car ton bouton va pointer vers la macro du fichier d'origine. Fais clic droit sur le bouton dans ta copie de sauvegarde puis "Affecter une macro" pour voir que le chemin du fichier source est renseigné, comme le montre la copie d'écran du classeur de sauvegarde. A mon avis, pas une bonne idée!

Pièce jointe 505813

La macro copie les feuilles dans le nouveau classeur Copie du planning.xlsx, dés que les feuilles sont dans le nouveau classeur la macro supprime tous les Shapes, pas besoin de bouton dans la copie, c'est uniquement pour consultation et portabilité sur un téléphone portable par exemple.

Lors de l'ouverture du fichier principal Planning Chevalley.xlsm, le fichier est en FullScreen et la barre d'outils est cachée ..., afin d'afficher un maximum d'éléments sur le petit écran du Microsoft Surface Pro et pouvoir rendre plus accessible le bouton SAVE au (gros) doigt de l'utilisateur.

En ouvrant cette discussion je ne pensais pas vous donnez autant de travail, désolé

Citation:

---

Envoyé par Pierre Fauconnier

Cela dit, ce n'est pas une bonne idée de mettre un bouton appelant une macro sur une feuille que tu vas copier sur un nouveau classeur, xlsx qui plus est. Ca ne saurait que créer des soucis, puisque tu vas lier ton nouveau classeur à ton ancien par un appel de macro. Je doute que ça puisse fonctionner avec un xlsx, d'ailleurs.


A quoi sert ce bouton? L'utilisateur n'est pas capable de cliquer sur la disquette ou de faire Ctrl+S?

---

Et ça fonctionne, maintenant?

Pierre Fauconnier, sur votre PC, le fichier du message #34 créer la copie en appuyant sur le bouton 1 ?

Chez moi pas de copie crée avec le bouton 1 de la feuille, pas contre CTRL+S la copie se créer

Non :calim2:

Même scénario: CTRL+S => Ok... Bouton => pas ok...

On va changer la manoeuvre:

Modifie la macro en lui passant un argument booléen optionnel pour ne pas lancer une deuxième fois l'enregistrement si la macro de copie est appelée sur le CTRL+S, et en lui faisant enregistrer le classeur si pas appelée par le CTRL+S (ligne en fin de macro If Not CalledBySave.... Tu connecteras le bouton sur cette macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub CreateCopy(Optional CalledBySave As Boolean) Dim Target As Workbook   On Error GoTo Catch Application.ScreenUpdating = False Sheets(Array("Interventions", "DATA_Jours_Fériés")).Copy Set Target = ActiveWorkbook ThisWorkbook.Activate Target.Worksheets("Interventions").Name = "Planning" Target.SaveAs Filename:=ThisWorkbook.Path & "\Copie du planning.xlsm", FileFormat:=XlFileFormat.xlOpenXMLWorkbookMacroEnabled Target.Close False If Not CalledBySave Then ThisWorkbook.Save Catch: If Err <> 0 Then MsgBox "L'erreur suivante est survenue:" & vbLf & Err.Description, vbExclamation, "Erreur " & Err.Number Application.ScreenUpdating = True End Sub

---

Dans la macro événementielle, tu auras

Code:

---

1 2 3

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) CreateCopy True End Sub

---

Actuellement, je ne m'explique pas ce comportement... :calim2:

Je vais corriger et vous tiens informé

J'ai ce message, c'est la première fois que je vois ce message dans Excel

Pièce jointe 505830