Bonjour à tous,
Je vous lis depuis un moment et je vous remercier car n'ayant aucune notion de VBA, j'ai pu créer des macros grâce à vos codes.
Néanmoins, j'ai un soucis qui persiste. Je vous explique:
Tous les mois, dans le cadre de mon travail, j'ai un fichier BASE avec 3 onglets par exemple:
1er onglet: Marion
2ème onglet: Thierry
3ème onglet Vanessa
Je copie des données destinées à chaque personne. Grâce à vos codes, une macro me copie un onglet par fichier excel, me rajoute le mois "M" avec l'année.
Sauf que j'aimerai rajouter dans la macro un code qui me mettra automatiquement le mot de passe "PASSE" par fichier.
Jusqu'à maintenant, je rajoute le mot de passe "PASSE" au fichier "Marion", ensuite au fichier "Thierrye...Etc
Sachant que j'ai 40 onglets, j'aimerai bien que ça soit automatiser.
Quand je lis certains codes (comme le mien ci-dessous), ça protège ma feuille et non le fichier excel.
Voilà le début de mon code:
Sub ExtrairelesongletsMSCGM()
For Each Sh In ActiveWorkbook.Sheets
Sh.Copy
Dim mois As String
Do While dir = "sh.Name"
Loop
Do While mois = ""
mois = InputBox("Saisir le mois en cours")
Loop
ActiveWorkbook.SaveAs "G:\_Missions\_Reporting\Reporting Pour RAF\Résultats\2015_" & mois & "_" & Sh.Name & "_MS" & ".xls"
ActiveSheet.Protect Password:="PASSE"
ActiveWorkbook.Close
Next
End Sub
Merci beaucoup pour votre aide
Vous allez me faire gagner du temps
Je vous lis depuis un moment et je vous remercier car n'ayant aucune notion de VBA, j'ai pu créer des macros grâce à vos codes.
Néanmoins, j'ai un soucis qui persiste. Je vous explique:
Tous les mois, dans le cadre de mon travail, j'ai un fichier BASE avec 3 onglets par exemple:
1er onglet: Marion
2ème onglet: Thierry
3ème onglet Vanessa
Je copie des données destinées à chaque personne. Grâce à vos codes, une macro me copie un onglet par fichier excel, me rajoute le mois "M" avec l'année.
Sauf que j'aimerai rajouter dans la macro un code qui me mettra automatiquement le mot de passe "PASSE" par fichier.
Jusqu'à maintenant, je rajoute le mot de passe "PASSE" au fichier "Marion", ensuite au fichier "Thierrye...Etc
Sachant que j'ai 40 onglets, j'aimerai bien que ça soit automatiser.
Quand je lis certains codes (comme le mien ci-dessous), ça protège ma feuille et non le fichier excel.
Voilà le début de mon code:
Sub ExtrairelesongletsMSCGM()
For Each Sh In ActiveWorkbook.Sheets
Sh.Copy
Dim mois As String
Do While dir = "sh.Name"
Loop
Do While mois = ""
mois = InputBox("Saisir le mois en cours")
Loop
ActiveWorkbook.SaveAs "G:\_Missions\_Reporting\Reporting Pour RAF\Résultats\2015_" & mois & "_" & Sh.Name & "_MS" & ".xls"
ActiveSheet.Protect Password:="PASSE"
ActiveWorkbook.Close
Next
End Sub
Merci beaucoup pour votre aide
Vous allez me faire gagner du temps