Copie images dans classeur lecture seule

Le
christian
Bonjour à tous et toutes
Comment faut-il faire pour copier des images (fonctions mathématiques) d'un
classeur dans un autre classeur en lecture seule.
Dans le courant de la semaine, j'ai reçu un code de la part de FFO qui me
permet de copier ce classeur en un autre en lecture seule.
Seul inconvénient, cela ne me copie pas les différentes images représentant
le détail des différentes fonctions calculées.
--
Merci d'avance pouir vos précieux conseils.
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 #18993761
Rebonjour christian

Je t'avais proposé ce code :

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

qui recopie la valeur et le format de tes données conformément à ce que tu
avais demandé

Si tu souhaites recopier plus d'éléments tu peux essayer ceci :

Workbooks.Add
For i = 1 To Workbooks("Classeur à recopier").Sheets.Count
Workbooks("Classeur à recopier").Sheets(i).Cells.Copy
Sheets.Add.Cells.Activate
ActiveSheet.Paste
ActiveSheet.Name = Workbooks("Classeur à recopier").Sheets(i).Name
Next
ActiveWorkbook.SaveAs Filename:="C:CheminMacopie.xls",
WriteResPassword:="toto"
ActiveWorkbook.Close

Mais tu risques peut être d'en avoir trop notamment des formules

Fais des essais et dis moi !!!!!
christian
Le #19001381
Rebonjour FFO
Ton code fonctionne très bien à l'exception des cellules comprenant une image.
Celles-ci n'apparaissent pas dans le nouveau classeur en lecture seule.
Je ne trouve pas dans la commande "Collage spécial", ce dont j'ai besoin.
Comme il s'agit d'une feuille particulière reprenant les différentes
fonctions mathématiques utilisées et représentées sous différentes images, je
vais modifier le code en ajoutant une macro effectuant un copier-coller
uniquement pour cette feuille spéciale.
--
Cordialement
Christian
Publicité
Poster une réponse
Anonyme