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
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
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 !!!!!
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
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
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
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
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
