pastespecial

Le
jpierrethillard
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
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
Philippe.R
Le #5343361
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
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
Le #5343331
Philippe,
Merci, c'est fait

JP

On 28 déc, 10:46, "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 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
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


Publicité
Poster une réponse
Anonyme