Sub Bouton_créer_image()
'
' Bouton_créer_image Macro
' Macro enregistrée le 23/01/2011 par Dupont
'
'
ActiveSheet.Unprotect
Sheets("Tableau CM").Select
Sheets.Add
Sheets("Sheet6").Select
Sheets("Sheet6").Name = "Copie"
Sheets("Tableau CM").Select
Range("A1:K97").Select
Range("K97").Activate
Selection.Copy
Sheets("Copie").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tableau CM").Select
ActiveSheet.Shapes("Group 1399").Select
Selection.Copy
Sheets("Copie").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Tableau CM").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Copie").Select
Range("A1:K97").Select
Range("K97").Activate
Selection.Copy
End Sub
Si ce n'est pas concluant il reste une dernière piste: le n° de la forme.
...
Sheets("Tableau CM").Select
ActiveSheet.Shapes("Group 1399").Select
Selection.Copy
...
Pour connaître le numéro de la forme retenu par ton super logiciel:
1) Soit tu disposes d'un moyen type "propriété de l'image" dans lequel tu retrouve le n° de la forme
2)Soit tu céer une petite macro par apprentissage:
--- Créer nouvelle macro
--- Tu lances l'enregistrement
--- Tu selectionnes la forme avec le pointeur de la sourie
--- Tu arrêtes la macro.
--- et enfin tu va voir le n° de la forme dans le code de la macro.
Une fois que tu as réccupéré ce n° tu remplaces l'ancien n° en jaune dans la macro "bouton_créer_ image".
et là si ça marche pas, tu prends le classeur Excel et tu le jettes à la corbeille
