Bonjour à tous et toutes
Est-il possible de sauvegarder un classeur (7 feuilles nommées) dont une
avec des boutons de commande macro en un classeur lecture seule ne reprenant
uniquement que les valeurs et formats des nombres.
Ceci, sans avoir à l'exécuter feuille par feuille (copier-collage spécial).
En vous remerciant d'avance pour toutes les sugestions éventuelles.
Cordialement
Christian
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut Christian
Ces quelques lignes devraient faire l'affaire :
Workbooks.Add For i = 1 To Workbooks("Classeur à recopier").Sheets.Count Workbooks("Classeur à recopier").Sheets(i).Cells.Copy Sheets.Add.Cells.Activate Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats ActiveSheet.Name = Workbooks("Classeur à recopier").Sheets(i).Name Next ActiveWorkbook.SaveAs Filename:="C:CheminMacopie.xls", WriteResPassword:="toto" ActiveWorkbook.Close
Actualises ces données :
"Classeur à recopier" (nom de ton classeur source) "C:CheminMacopie.xls" (chemin et nom du classeur de destination) "toto" (mot de passe pour l'écriture)
Fais des essais et dis moi !!!
Salut Christian
Ces quelques lignes devraient faire l'affaire :
Workbooks.Add
For i = 1 To Workbooks("Classeur à recopier").Sheets.Count
Workbooks("Classeur à recopier").Sheets(i).Cells.Copy
Sheets.Add.Cells.Activate
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
ActiveSheet.Name = Workbooks("Classeur à recopier").Sheets(i).Name
Next
ActiveWorkbook.SaveAs Filename:="C:CheminMacopie.xls",
WriteResPassword:="toto"
ActiveWorkbook.Close
Actualises ces données :
"Classeur à recopier" (nom de ton classeur source)
"C:CheminMacopie.xls" (chemin et nom du classeur de destination)
"toto" (mot de passe pour l'écriture)
Workbooks.Add For i = 1 To Workbooks("Classeur à recopier").Sheets.Count Workbooks("Classeur à recopier").Sheets(i).Cells.Copy Sheets.Add.Cells.Activate Selection.PasteSpecial Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteFormats ActiveSheet.Name = Workbooks("Classeur à recopier").Sheets(i).Name Next ActiveWorkbook.SaveAs Filename:="C:CheminMacopie.xls", WriteResPassword:="toto" ActiveWorkbook.Close
Actualises ces données :
"Classeur à recopier" (nom de ton classeur source) "C:CheminMacopie.xls" (chemin et nom du classeur de destination) "toto" (mot de passe pour l'écriture)
Fais des essais et dis moi !!!
christian
Bonjour FFO Merci de m'avoir lu et répondu. J'ai quelques soucis avec le code. Je ne sais où le placer pour l'exécuter.
Cordialement Christian
Bonjour FFO
Merci de m'avoir lu et répondu.
J'ai quelques soucis avec le code.
Je ne sais où le placer pour l'exécuter.
Bonjour FFO Merci de m'avoir lu et répondu. J'ai quelques soucis avec le code. Je ne sais où le placer pour l'exécuter.
Cordialement Christian
FFO
Rebonjour christian tu crées une Macro standard dans ton classeur source à recopier (celui des 7 feuilles nommées) dans laquelle tu places ce code
Outils/Macro/Nouvelle macro Choisir un nom et OK Icone "Arr" cliques sur le carré bleu Outils/Macro/Macro Sélectionnes ta macro et Modifier Dans l'éditeur entre Sub et End Sub mettre le code Puis tu actualises les données :
"Classeur à recopier" (nom de ton classeur source) "C:CheminMacopie.xls" (chemin et nom du classeur de destination) "toto" (mot de passe pour l'écriture)
Tu quittes l'éditeur (croix en haut à droite) et tu l'éxécutes lorsque tu souhaites réaliser la recopie
Outils/Macro/Macro Sélectionnes ta macro et Exécuter
Essaies et dis moi !!!!!
Rebonjour christian
tu crées une Macro standard dans ton classeur source à recopier (celui des 7
feuilles nommées) dans laquelle tu places ce code
Outils/Macro/Nouvelle macro
Choisir un nom et OK
Icone "Arr" cliques sur le carré bleu
Outils/Macro/Macro
Sélectionnes ta macro et Modifier
Dans l'éditeur entre Sub et End Sub mettre le code
Puis tu actualises les données :
"Classeur à recopier" (nom de ton classeur source)
"C:CheminMacopie.xls" (chemin et nom du classeur de destination)
"toto" (mot de passe pour l'écriture)
Tu quittes l'éditeur (croix en haut à droite)
et tu l'éxécutes lorsque tu souhaites réaliser la recopie
Outils/Macro/Macro
Sélectionnes ta macro et Exécuter
Rebonjour christian tu crées une Macro standard dans ton classeur source à recopier (celui des 7 feuilles nommées) dans laquelle tu places ce code
Outils/Macro/Nouvelle macro Choisir un nom et OK Icone "Arr" cliques sur le carré bleu Outils/Macro/Macro Sélectionnes ta macro et Modifier Dans l'éditeur entre Sub et End Sub mettre le code Puis tu actualises les données :
"Classeur à recopier" (nom de ton classeur source) "C:CheminMacopie.xls" (chemin et nom du classeur de destination) "toto" (mot de passe pour l'écriture)
Tu quittes l'éditeur (croix en haut à droite) et tu l'éxécutes lorsque tu souhaites réaliser la recopie
Outils/Macro/Macro Sélectionnes ta macro et Exécuter
Essaies et dis moi !!!!!
christian
Rebonjour FFO
Merci beaucoup pour ta patience et tes nouvelles explications. Cela fonctionne parfaitement. -- Cordialement Christian
Rebonjour FFO
Merci beaucoup pour ta patience et tes nouvelles explications.
Cela fonctionne parfaitement.
--
Cordialement
Christian