Sauvegarde d'un classeur en lecture seule

Le
Christian
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #18968091
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 !!!
christian
Le #18968761
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
Le #18969071
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
Le #18969901
Rebonjour FFO

Merci beaucoup pour ta patience et tes nouvelles explications.
Cela fonctionne parfaitement.
--
Cordialement
Christian
Publicité
Poster une réponse
Anonyme