manulelyonnais
XLDnaute Nouveau
Sauvegarde onglet mais macros non conservées dans nouvel onglet
Bonjour,
bonne année à chacun,
Explication de la situation : j'ai un fchier sous Excel 2003 me servant de base comportant plusieurs onglets.
L'utilisateur rempli les cellules de l'onglet sous lequel il navigue et pour faciliter la navigation, j'ai créé une macro liée à un bouton me permettant d'enregistrer l'onglet ou l'on se trouve dans un nouveau fichier Excel.
Explication du problème : les macros qui se trouve dans le dossier de base ne sont pas sauvegardées avec le nouveau fichier crée. Ayant des autres macros utiles dans le fichier de base (envoi de l'onglet par email, impression de l'onglet..) je souhaiterai conserver ces macros afin que l'utilisateur puisse en jouir lors de la création du nouveau fichier basé sur l'onglet où il navigait.
Voici moin code VBA:
Sub save_this_page()
'Excel.Application.Visible = True
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show CStr(ActiveSheet.Range("D7").Value & "_" & "report n°" & Range("D8").Value & "_" & Format(Date, "dd\-mm\-yyyy")) & ".xls"
ThisWorkbook.Save
ThisWorkbook.Close 'ferme l'ancien classeur et garde le nouveau
End Sub
A noter que les macros du fichier de base sont enregistrées sous Module1.
Avez-vous des suggestions pour m'aider à résoudre ce problème récurrant ?
Merci de votre réponse.
Bien cordialement
Bonjour,
bonne année à chacun,
Explication de la situation : j'ai un fchier sous Excel 2003 me servant de base comportant plusieurs onglets.
L'utilisateur rempli les cellules de l'onglet sous lequel il navigue et pour faciliter la navigation, j'ai créé une macro liée à un bouton me permettant d'enregistrer l'onglet ou l'on se trouve dans un nouveau fichier Excel.
Explication du problème : les macros qui se trouve dans le dossier de base ne sont pas sauvegardées avec le nouveau fichier crée. Ayant des autres macros utiles dans le fichier de base (envoi de l'onglet par email, impression de l'onglet..) je souhaiterai conserver ces macros afin que l'utilisateur puisse en jouir lors de la création du nouveau fichier basé sur l'onglet où il navigait.
Voici moin code VBA:
Sub save_this_page()
'Excel.Application.Visible = True
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show CStr(ActiveSheet.Range("D7").Value & "_" & "report n°" & Range("D8").Value & "_" & Format(Date, "dd\-mm\-yyyy")) & ".xls"
ThisWorkbook.Save
ThisWorkbook.Close 'ferme l'ancien classeur et garde le nouveau
End Sub
A noter que les macros du fichier de base sont enregistrées sous Module1.
Avez-vous des suggestions pour m'aider à résoudre ce problème récurrant ?
Merci de votre réponse.
Bien cordialement
Dernière édition:
