Bonjour,
J'ai une macro qui me sauvegarde une feuille de classeur. J'ai 3
boutons qui sont sauvegard=E9s alors que je ne le souhaite pas.
Comment les exclure?
Ils sont nomm=E9s groupe1, groupe2 et FAuto1
Voici la macro:
Sub sauvegarde()
ActiveSheet.Unprotect Password:=3D""
If [E6] =3D "" Then
MsgBox "Aucune sauvegarde sans Nom, retournez =E0 la page
inscription"
Sheets("Inscription").Select
[E8].Select
Exit Sub
End If
If [a12] =3D "" Then
MsgBox "Entrez le Nom et Pr=E9nom du CFC"
[a12].Select
Exit Sub
End If
r=E9pertoire =3D ActiveWorkbook.Path
Contrat =3D ([E6]) & ([G6]) & " contrat n=B0" & Format([i6], " 0000")
Sheets("Formation candidat").Copy
[a1:I200].Copy
[a1:I200].PasteSpecial Paste:=3DxlPasteValues
ActiveSheet.Shapes("Image1").Left =3D 10
ActiveSheet.Shapes("Image2").Left =3D 433
ActiveSheet.Shapes("Image3").Left =3D 350
'ActiveSheet.Shapes("Image1").Top =3D 5
[a12].Select
ActiveWorkbook.SaveAs Filename:=3Dr=E9pertoire & "\" & Contrat
MsgBox Contrat & " sauvegard=E9"
ActiveWorkbook.Close
Sheets("Formation candidat").Select
[i6] =3D [i6] + 1
'Range("J1:p200").ClearContents
ActiveWorkbook.Save
ActiveSheet.Protect Password:=3D""
End Sub
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
Philippe.R
Bonjour, Une piste est de prévoir leur suppression avant la commande : ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat avec une instruction du type :
ActiveSheet.Shapes("groupe1").Delete
-- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonjour, J'ai une macro qui me sauvegarde une feuille de classeur. J'ai 3 boutons qui sont sauvegardés alors que je ne le souhaite pas. Comment les exclure? Ils sont nommés groupe1, groupe2 et FAuto1
Voici la macro:
Sub sauvegarde() ActiveSheet.Unprotect Password:="" If [E6] = "" Then MsgBox "Aucune sauvegarde sans Nom, retournez à la page inscription" Sheets("Inscription").Select [E8].Select Exit Sub End If If [a12] = "" Then MsgBox "Entrez le Nom et Prénom du CFC" [a12].Select Exit Sub End If répertoire = ActiveWorkbook.Path Contrat = ([E6]) & ([G6]) & " contrat n°" & Format([i6], " 0000") Sheets("Formation candidat").Copy [a1:I200].Copy [a1:I200].PasteSpecial Paste:=xlPasteValues ActiveSheet.Shapes("Image1").Left = 10 ActiveSheet.Shapes("Image2").Left = 433 ActiveSheet.Shapes("Image3").Left = 350 'ActiveSheet.Shapes("Image1").Top = 5 [a12].Select ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat MsgBox Contrat & " sauvegardé" ActiveWorkbook.Close Sheets("Formation candidat").Select [i6] = [i6] + 1 'Range("J1:p200").ClearContents ActiveWorkbook.Save ActiveSheet.Protect Password:="" End Sub
Merci pour l'aide
JP
Bonjour,
Une piste est de prévoir leur suppression avant la commande :
ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat
avec une instruction du type :
ActiveSheet.Shapes("groupe1").Delete
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethillard@orange.fr> a écrit dans le message de
news:50235334-6115-417f-a1fb-2319ff65a2df@i3g2000hsf.googlegroups.com...
Bonjour,
J'ai une macro qui me sauvegarde une feuille de classeur. J'ai 3
boutons qui sont sauvegardés alors que je ne le souhaite pas.
Comment les exclure?
Ils sont nommés groupe1, groupe2 et FAuto1
Voici la macro:
Sub sauvegarde()
ActiveSheet.Unprotect Password:=""
If [E6] = "" Then
MsgBox "Aucune sauvegarde sans Nom, retournez à la page
inscription"
Sheets("Inscription").Select
[E8].Select
Exit Sub
End If
If [a12] = "" Then
MsgBox "Entrez le Nom et Prénom du CFC"
[a12].Select
Exit Sub
End If
répertoire = ActiveWorkbook.Path
Contrat = ([E6]) & ([G6]) & " contrat n°" & Format([i6], " 0000")
Sheets("Formation candidat").Copy
[a1:I200].Copy
[a1:I200].PasteSpecial Paste:=xlPasteValues
ActiveSheet.Shapes("Image1").Left = 10
ActiveSheet.Shapes("Image2").Left = 433
ActiveSheet.Shapes("Image3").Left = 350
'ActiveSheet.Shapes("Image1").Top = 5
[a12].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat
MsgBox Contrat & " sauvegardé"
ActiveWorkbook.Close
Sheets("Formation candidat").Select
[i6] = [i6] + 1
'Range("J1:p200").ClearContents
ActiveWorkbook.Save
ActiveSheet.Protect Password:=""
End Sub
Bonjour, Une piste est de prévoir leur suppression avant la commande : ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat avec une instruction du type :
ActiveSheet.Shapes("groupe1").Delete
-- Avec plaisir http://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonjour, J'ai une macro qui me sauvegarde une feuille de classeur. J'ai 3 boutons qui sont sauvegardés alors que je ne le souhaite pas. Comment les exclure? Ils sont nommés groupe1, groupe2 et FAuto1
Voici la macro:
Sub sauvegarde() ActiveSheet.Unprotect Password:="" If [E6] = "" Then MsgBox "Aucune sauvegarde sans Nom, retournez à la page inscription" Sheets("Inscription").Select [E8].Select Exit Sub End If If [a12] = "" Then MsgBox "Entrez le Nom et Prénom du CFC" [a12].Select Exit Sub End If répertoire = ActiveWorkbook.Path Contrat = ([E6]) & ([G6]) & " contrat n°" & Format([i6], " 0000") Sheets("Formation candidat").Copy [a1:I200].Copy [a1:I200].PasteSpecial Paste:=xlPasteValues ActiveSheet.Shapes("Image1").Left = 10 ActiveSheet.Shapes("Image2").Left = 433 ActiveSheet.Shapes("Image3").Left = 350 'ActiveSheet.Shapes("Image1").Top = 5 [a12].Select ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat MsgBox Contrat & " sauvegardé" ActiveWorkbook.Close Sheets("Formation candidat").Select [i6] = [i6] + 1 'Range("J1:p200").ClearContents ActiveWorkbook.Save ActiveSheet.Protect Password:="" End Sub
Merci pour l'aide
JP
jpierrethillard
Philippe, Merci, c'est fait
JP
On 28 déc, 10:46, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonjour, Une piste est de prévoir leur suppression avant la commande : ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat avec une instruction du type :
ActiveSheet.Shapes("groupe1").Delete
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:50235334-6115 Bonjour, J'ai une macro qui me sauvegarde une feuille de classeur. J'ai 3 boutons qui sont sauvegardés alors que je ne le souhaite pas. Comment les exclure? Ils sont nommés groupe1, groupe2 et FAuto1
Voici la macro:
Sub sauvegarde() ActiveSheet.Unprotect Password:="" If [E6] = "" Then MsgBox "Aucune sauvegarde sans Nom, retournez à la page inscription" Sheets("Inscription").Select [E8].Select Exit Sub End If If [a12] = "" Then MsgBox "Entrez le Nom et Prénom du CFC" [a12].Select Exit Sub End If répertoire = ActiveWorkbook.Path Contrat = ([E6]) & ([G6]) & " contrat n°" & Format([i6], " 0000") Sheets("Formation candidat").Copy [a1:I200].Copy [a1:I200].PasteSpecial Paste:=xlPasteValues ActiveSheet.Shapes("Image1").Left = 10 ActiveSheet.Shapes("Image2").Left = 433 ActiveSheet.Shapes("Image3").Left = 350 'ActiveSheet.Shapes("Image1").Top = 5 [a12].Select ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat MsgBox Contrat & " sauvegardé" ActiveWorkbook.Close Sheets("Formation candidat").Select [i6] = [i6] + 1 'Range("J1:p200").ClearContents ActiveWorkbook.Save ActiveSheet.Protect Password:="" End Sub
Merci pour l'aide
JP
Philippe,
Merci, c'est fait
JP
On 28 déc, 10:46, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonjour,
Une piste est de prévoir leur suppression avant la commande :
ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat
avec une instruction du type :
ActiveSheet.Shapes("groupe1").Delete
--
Avec plaisirhttp://dj.joss.free.fr/trombine.htm
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<jpierrethill...@orange.fr> a écrit dans le message denews:50235334-6115 -417f-a1fb-2319ff65a2df@i3g2000hsf.googlegroups.com...
Bonjour,
J'ai une macro qui me sauvegarde une feuille de classeur. J'ai 3
boutons qui sont sauvegardés alors que je ne le souhaite pas.
Comment les exclure?
Ils sont nommés groupe1, groupe2 et FAuto1
Voici la macro:
Sub sauvegarde()
ActiveSheet.Unprotect Password:=""
If [E6] = "" Then
MsgBox "Aucune sauvegarde sans Nom, retournez à la page
inscription"
Sheets("Inscription").Select
[E8].Select
Exit Sub
End If
If [a12] = "" Then
MsgBox "Entrez le Nom et Prénom du CFC"
[a12].Select
Exit Sub
End If
répertoire = ActiveWorkbook.Path
Contrat = ([E6]) & ([G6]) & " contrat n°" & Format([i6], " 0000")
Sheets("Formation candidat").Copy
[a1:I200].Copy
[a1:I200].PasteSpecial Paste:=xlPasteValues
ActiveSheet.Shapes("Image1").Left = 10
ActiveSheet.Shapes("Image2").Left = 433
ActiveSheet.Shapes("Image3").Left = 350
'ActiveSheet.Shapes("Image1").Top = 5
[a12].Select
ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat
MsgBox Contrat & " sauvegardé"
ActiveWorkbook.Close
Sheets("Formation candidat").Select
[i6] = [i6] + 1
'Range("J1:p200").ClearContents
ActiveWorkbook.Save
ActiveSheet.Protect Password:=""
End Sub
On 28 déc, 10:46, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:
Bonjour, Une piste est de prévoir leur suppression avant la commande : ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat avec une instruction du type :
ActiveSheet.Shapes("groupe1").Delete
-- Avec plaisirhttp://dj.joss.free.fr/trombine.htm Philippe.R Pour se connecter au forum :http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message denews:50235334-6115 Bonjour, J'ai une macro qui me sauvegarde une feuille de classeur. J'ai 3 boutons qui sont sauvegardés alors que je ne le souhaite pas. Comment les exclure? Ils sont nommés groupe1, groupe2 et FAuto1
Voici la macro:
Sub sauvegarde() ActiveSheet.Unprotect Password:="" If [E6] = "" Then MsgBox "Aucune sauvegarde sans Nom, retournez à la page inscription" Sheets("Inscription").Select [E8].Select Exit Sub End If If [a12] = "" Then MsgBox "Entrez le Nom et Prénom du CFC" [a12].Select Exit Sub End If répertoire = ActiveWorkbook.Path Contrat = ([E6]) & ([G6]) & " contrat n°" & Format([i6], " 0000") Sheets("Formation candidat").Copy [a1:I200].Copy [a1:I200].PasteSpecial Paste:=xlPasteValues ActiveSheet.Shapes("Image1").Left = 10 ActiveSheet.Shapes("Image2").Left = 433 ActiveSheet.Shapes("Image3").Left = 350 'ActiveSheet.Shapes("Image1").Top = 5 [a12].Select ActiveWorkbook.SaveAs Filename:=répertoire & "" & Contrat MsgBox Contrat & " sauvegardé" ActiveWorkbook.Close Sheets("Formation candidat").Select [i6] = [i6] + 1 'Range("J1:p200").ClearContents ActiveWorkbook.Save ActiveSheet.Protect Password:="" End Sub
