Bonjour,
j'ai un workbook "vide" que differentes personnes doivent remplir. J'aimerais créer une base de donnée de ces classeurs une fois remplis!
Ma question est donc la suivante:
Existe-t-il une macro permettant de dupliquer le fichier initial "classeur0" (et donc toutes les valeurs/formules/formes.... qui y sont attachées), d'enregistrer cette réplique sous le nom: "C:\marrek\"nomprojet-date-ajout perso", tout en gardant le fichier initial au meme nom et ouvert.
ça c'est mon premier problème.
Le second c'est que le "classeur0" a des macros qui réinitialise les valeurs a son ouverture (workbook open) et que si on duplique betement le classeur on aura perdu les données à l'ouverture de la réplique si celle -ci est fermée.
Est il possible de copier le classeur sauf ces fameuses macro?
Pouvez vous m'aider, please!!!
J'ai vu par ci par là, quelques codes comme ci dessous, mais rien d'utile et de compréhensible avec mon faible niveau
Sub EnvoiMail()
Dim NF$, Wbk As Workbook
ActiveWorkbook.Save
On Error Resume Next
NF = "M:\Demande de congé du " & Format(Date, "ddmmyyyy") & ".xls"
En vous remerciant
M.
j'ai un workbook "vide" que differentes personnes doivent remplir. J'aimerais créer une base de donnée de ces classeurs une fois remplis!
Ma question est donc la suivante:
Existe-t-il une macro permettant de dupliquer le fichier initial "classeur0" (et donc toutes les valeurs/formules/formes.... qui y sont attachées), d'enregistrer cette réplique sous le nom: "C:\marrek\"nomprojet-date-ajout perso", tout en gardant le fichier initial au meme nom et ouvert.
ça c'est mon premier problème.
Le second c'est que le "classeur0" a des macros qui réinitialise les valeurs a son ouverture (workbook open) et que si on duplique betement le classeur on aura perdu les données à l'ouverture de la réplique si celle -ci est fermée.
Est il possible de copier le classeur sauf ces fameuses macro?
Pouvez vous m'aider, please!!!
J'ai vu par ci par là, quelques codes comme ci dessous, mais rien d'utile et de compréhensible avec mon faible niveau
Sub EnvoiMail()
Dim NF$, Wbk As Workbook
ActiveWorkbook.Save
On Error Resume Next
NF = "M:\Demande de congé du " & Format(Date, "ddmmyyyy") & ".xls"
En vous remerciant
M.