Bonjour,
J'ai une macro qui fonctionne jusqu'à l'instant où je demande une
suppression d'objets.
J'ajoute que dans chaque feuille on retrouve les mêmes objets et même
nombre. Je souhaite les supprimer car ce sont des boutons avec liens
hypertexte ou déclencheur de macro.
Quelqu'un saurait me dire ce qu'il faut modifier pour éliminer le bug?
Merci d'avance.
JP
Voici la macro:
Sub archive()
Arr = Array("Inscription", "Situation Candidat", "Formation Candidat")
' au besoin ajoute des feuilles
Set tmp = ThisWorkbook ' classeur active
Application.SheetsInNewWorkbook = UBound(Arr)
Set wbk = Workbooks.Add ' nouveau classeur
For i = 1 To UBound(Arr)
wbk.Sheets(i).Name = Arr(i)
'Suppression d'objets avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Next i
For Each sh In Arr
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2ème classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End sub
Bonjour,
J'ai une macro qui fonctionne jusqu'à l'instant où je demande une
suppression d'objets.
J'ajoute que dans chaque feuille on retrouve les mêmes objets et même
nombre. Je souhaite les supprimer car ce sont des boutons avec liens
hypertexte ou déclencheur de macro.
Quelqu'un saurait me dire ce qu'il faut modifier pour éliminer le bug?
Merci d'avance.
JP
Voici la macro:
Sub archive()
Arr = Array("Inscription", "Situation Candidat", "Formation Candidat")
' au besoin ajoute des feuilles
Set tmp = ThisWorkbook ' classeur active
Application.SheetsInNewWorkbook = UBound(Arr)
Set wbk = Workbooks.Add ' nouveau classeur
For i = 1 To UBound(Arr)
wbk.Sheets(i).Name = Arr(i)
'Suppression d'objets avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Next i
For Each sh In Arr
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2ème classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End sub
Bonjour,
J'ai une macro qui fonctionne jusqu'à l'instant où je demande une
suppression d'objets.
J'ajoute que dans chaque feuille on retrouve les mêmes objets et même
nombre. Je souhaite les supprimer car ce sont des boutons avec liens
hypertexte ou déclencheur de macro.
Quelqu'un saurait me dire ce qu'il faut modifier pour éliminer le bug?
Merci d'avance.
JP
Voici la macro:
Sub archive()
Arr = Array("Inscription", "Situation Candidat", "Formation Candidat")
' au besoin ajoute des feuilles
Set tmp = ThisWorkbook ' classeur active
Application.SheetsInNewWorkbook = UBound(Arr)
Set wbk = Workbooks.Add ' nouveau classeur
For i = 1 To UBound(Arr)
wbk.Sheets(i).Name = Arr(i)
'Suppression d'objets avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Next i
For Each sh In Arr
'copie la plage utilisée de la feuille
tmp.Sheets(sh).UsedRange.Copy
'la colle dans la feuille du 2ème classeur
wbk.Sheets(sh).Paste
'vide le presse-papiers
Application.CutCopyMode = False
Next
End sub
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat" )).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
%23zQSo36TIHA.5...@TK2MSFTNGP04.phx.gbl...
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat" )).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat" )).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
%23zQSo36TIHA.5...@TK2MSFTNGP04.phx.gbl...
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------
Essaie comme ceci :
'---------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat" )).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In .Worksheets
sh.Shapes("groupe1").Delete
sh.Shapes("groupe2").Delete
sh.Shapes("Fauto1").Delete
Next
End With
End Sub
'---------------------------
a écrit dans le message de news:
Bonsoir MichDenis,
Désolé de ne repondre que tardivement, j'ai fait un break sportif.
J'ai dit des bétises tout à l'heure dans mon premier post. Je viens de
le constater. Je mettais les 3 lignes suivantes dans la boucle de
création de feuilles.
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Je viens de tester ta macro que tu m'as soumis pour la suppression des
objets. Elle est efficace. Un peu trop si je puis dire car elle
n'épargne rien. En fait je ne veux supprimer que trois objets sur les
trois feuilles.
Les objets se nomment groupe1, groupe2 et FAuto1.
Je ne sais pas où placer ces trois lignes pour qu'elles soient
efficaces sur les trois feuilles ( Inscription, Situation Candidat,
Formation candidat).
Dans la macro en debut de fil, je donne la macro complète qui permet
de créer le classeur avec les 3 feuilles.
1) Est-ce que ces lignes conviennent?
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
2) Où dois-je les placer pour supprimer les objets.
Merci encore!
JP
On 5 jan, 16:23, "MichDenis" wrote:Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candida t")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Essaie comme ceci :
'---------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat" )).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In .Worksheets
sh.Shapes("groupe1").Delete
sh.Shapes("groupe2").Delete
sh.Shapes("Fauto1").Delete
Next
End With
End Sub
'---------------------------
<jpierrethill...@orange.fr> a écrit dans le message de news:
f0dee226-6a5c-4656-88da-d4acc70e4...@p69g2000hsa.googlegroups.com...
Bonsoir MichDenis,
Désolé de ne repondre que tardivement, j'ai fait un break sportif.
J'ai dit des bétises tout à l'heure dans mon premier post. Je viens de
le constater. Je mettais les 3 lignes suivantes dans la boucle de
création de feuilles.
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Je viens de tester ta macro que tu m'as soumis pour la suppression des
objets. Elle est efficace. Un peu trop si je puis dire car elle
n'épargne rien. En fait je ne veux supprimer que trois objets sur les
trois feuilles.
Les objets se nomment groupe1, groupe2 et FAuto1.
Je ne sais pas où placer ces trois lignes pour qu'elles soient
efficaces sur les trois feuilles ( Inscription, Situation Candidat,
Formation candidat).
Dans la macro en debut de fil, je donne la macro complète qui permet
de créer le classeur avec les 3 feuilles.
1) Est-ce que ces lignes conviennent?
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
2) Où dois-je les placer pour supprimer les objets.
Merci encore!
JP
On 5 jan, 16:23, "MichDenis" <michde...@hotmail.com> wrote:
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
%23zQSo36TIHA.5...@TK2MSFTNGP04.phx.gbl...
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candida t")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Essaie comme ceci :
'---------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat" )).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In .Worksheets
sh.Shapes("groupe1").Delete
sh.Shapes("groupe2").Delete
sh.Shapes("Fauto1").Delete
Next
End With
End Sub
'---------------------------
a écrit dans le message de news:
Bonsoir MichDenis,
Désolé de ne repondre que tardivement, j'ai fait un break sportif.
J'ai dit des bétises tout à l'heure dans mon premier post. Je viens de
le constater. Je mettais les 3 lignes suivantes dans la boucle de
création de feuilles.
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Je viens de tester ta macro que tu m'as soumis pour la suppression des
objets. Elle est efficace. Un peu trop si je puis dire car elle
n'épargne rien. En fait je ne veux supprimer que trois objets sur les
trois feuilles.
Les objets se nomment groupe1, groupe2 et FAuto1.
Je ne sais pas où placer ces trois lignes pour qu'elles soient
efficaces sur les trois feuilles ( Inscription, Situation Candidat,
Formation candidat).
Dans la macro en debut de fil, je donne la macro complète qui permet
de créer le classeur avec les 3 feuilles.
1) Est-ce que ces lignes conviennent?
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
2) Où dois-je les placer pour supprimer les objets.
Merci encore!
JP
On 5 jan, 16:23, "MichDenis" wrote:Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candida t")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Essaie comme ceci :
'---------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In .Worksheets
sh.Shapes("groupe1").Delete
sh.Shapes("groupe2").Delete
sh.Shapes("Fauto1").Delete
Next
End With
End Sub
'---------------------------
a écrit dans le message de news:
Bonsoir MichDenis,
Désolé de ne repondre que tardivement, j'ai fait un break sportif.
J'ai dit des bétises tout à l'heure dans mon premier post. Je viens de
le constater. Je mettais les 3 lignes suivantes dans la boucle de
création de feuilles.
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Je viens de tester ta macro que tu m'as soumis pour la suppression des
objets. Elle est efficace. Un peu trop si je puis dire car elle
n'épargne rien. En fait je ne veux supprimer que trois objets sur les
trois feuilles.
Les objets se nomment groupe1, groupe2 et FAuto1.
Je ne sais pas où placer ces trois lignes pour qu'elles soient
efficaces sur les trois feuilles ( Inscription, Situation Candidat,
Formation candidat).
Dans la macro en debut de fil, je donne la macro complète qui permet
de créer le classeur avec les 3 feuilles.
1) Est-ce que ces lignes conviennent?
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
2) Où dois-je les placer pour supprimer les objets.
Merci encore!
JP
On 5 jan, 16:23, "MichDenis" wrote:Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Essaie comme ceci :
'---------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In .Worksheets
sh.Shapes("groupe1").Delete
sh.Shapes("groupe2").Delete
sh.Shapes("Fauto1").Delete
Next
End With
End Sub
'---------------------------
<jpierrethill...@orange.fr> a écrit dans le message de news:
f0dee226-6a5c-4656-88da-d4acc70e4...@p69g2000hsa.googlegroups.com...
Bonsoir MichDenis,
Désolé de ne repondre que tardivement, j'ai fait un break sportif.
J'ai dit des bétises tout à l'heure dans mon premier post. Je viens de
le constater. Je mettais les 3 lignes suivantes dans la boucle de
création de feuilles.
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Je viens de tester ta macro que tu m'as soumis pour la suppression des
objets. Elle est efficace. Un peu trop si je puis dire car elle
n'épargne rien. En fait je ne veux supprimer que trois objets sur les
trois feuilles.
Les objets se nomment groupe1, groupe2 et FAuto1.
Je ne sais pas où placer ces trois lignes pour qu'elles soient
efficaces sur les trois feuilles ( Inscription, Situation Candidat,
Formation candidat).
Dans la macro en debut de fil, je donne la macro complète qui permet
de créer le classeur avec les 3 feuilles.
1) Est-ce que ces lignes conviennent?
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
2) Où dois-je les placer pour supprimer les objets.
Merci encore!
JP
On 5 jan, 16:23, "MichDenis" <michde...@hotmail.com> wrote:
Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" <michde...@hotmail.com> a écrit dans le message de news:
%23zQSo36TIHA.5...@TK2MSFTNGP04.phx.gbl...
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Essaie comme ceci :
'---------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In .Worksheets
sh.Shapes("groupe1").Delete
sh.Shapes("groupe2").Delete
sh.Shapes("Fauto1").Delete
Next
End With
End Sub
'---------------------------
a écrit dans le message de news:
Bonsoir MichDenis,
Désolé de ne repondre que tardivement, j'ai fait un break sportif.
J'ai dit des bétises tout à l'heure dans mon premier post. Je viens de
le constater. Je mettais les 3 lignes suivantes dans la boucle de
création de feuilles.
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
Je viens de tester ta macro que tu m'as soumis pour la suppression des
objets. Elle est efficace. Un peu trop si je puis dire car elle
n'épargne rien. En fait je ne veux supprimer que trois objets sur les
trois feuilles.
Les objets se nomment groupe1, groupe2 et FAuto1.
Je ne sais pas où placer ces trois lignes pour qu'elles soient
efficaces sur les trois feuilles ( Inscription, Situation Candidat,
Formation candidat).
Dans la macro en debut de fil, je donne la macro complète qui permet
de créer le classeur avec les 3 feuilles.
1) Est-ce que ces lignes conviennent?
'Suppression d'objets et données avant sauvegarde
ActiveSheet.Shapes("groupe1").Delete
ActiveSheet.Shapes("groupe2").Delete
ActiveSheet.Shapes("Fauto1").Delete
2) Où dois-je les placer pour supprimer les objets.
Merci encore!
JP
On 5 jan, 16:23, "MichDenis" wrote:Il manque un "point" (.) devant Worksheets dans cette ligne
de code : For Each sh In Worksheets dans la procédure
soumise
"MichDenis" a écrit dans le message de news:
%
Ta question n'est pas très claire !
Si tu veux former un nouveau classeur à partir de ces
noms de feuilles du classeur actuel, à partir d'une macro
dans le classeur actuel et faire disparaître tous les objets
dans les feuilles du nouveau classeur, il me semble que
ceci serait suffisant :
'-------------------------
Sub test()
Worksheets(Array("Inscription", "Situation Candidat", "Formation Candidat")).copy
'Et pour faire disparaître toutes les "Shapes"
'dans le nouveau classeur
With ActiveWorkbook
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End With
End Sub
'-------------------------- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -