Archiver un fichier sans bottons

salut tout le monde

j'ai un problème dans mon fichier

lorsque j'archive mon fichier (bouton archive) dans l'emplacement D

j'ai constater qu'il archive le fichier avec les bouton!!! par contre il doit l'archiver sans bouton

s'il ya une possibilité d'ajouter ce code au macros archiver? je vous remercie beaucoup

Set wkbSource = ThisWorkbook

'wkbSource.SaveCopyAs PathA & FileName1 & "_" & FileName2 & ".xlsm" ', FileFormatvalue = 52

'ActiveWorkbook.Close savechanges:=False

Application.DisplayAlerts = False

wkbSource.Worksheets(1).Copy

ActiveSheet.Shapes.Range(Array("Button 1")).Delete

ActiveSheet.Shapes.Range(Array("Button 2")).Delete

ActiveSheet.Shapes.Range(Array("Button 3")).Delete

ActiveWorkbook.SaveAs PathA & FileName1 & "_" & FileName2 & ".xlsx", xlOpenXMLWorkbook, CreateBackup:=False

ActiveWorkbook.Close savechanges:=False

End Sub

Je ne comprend pas bien ta question.

Si tu as le problème et la solution pourquoi ne le traites tu pas seul ?

salut

si tu vois j'ai 03 boutons dans ce fichier

je veux lorsque j'archive le fichier dans son emplacement s'archive sans bouttons voila.

merci a vous

Bonjour,je vois qu'un bouton, qui est désactivé

avec le bouton droit de la souris, tu

sélectionnes les propriétés du bouton et tu décoches la case

Imprimer le bouton

Pierrot

salut

c'est pas ce que je cherche malheureusement.

merci

je joins le fichier

Pierrot

salut

il ya trois (3 )boutons : archiver .enregistrer .supprimer

quand je archive le fichier dans l'emplacement je veux qu'il s'archive sans 3 boutons.(fichier sans boutons).

merci a vous

Bonjour

Pour effacer tous les Sapes

          For Each Shap In ActiveSheet.Shapes
                 Shap.Delete
          Next

A+

Maurice

Bonjour,

Sub archiver()

' .........

    For Each Shap In ActiveSheet.Shapes
        Shap.Delete
    Next

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\archive " & Format(Now(), "yyyy-mm-dd") & ".xlsx", FileFormat:=51

End Sub

lsalut

e malheur c'est que il surprime meme les boutons du fichier que j'utilise pour archiver!!!!!!

il doit supprime les boutons des fichiers que j'archive dans leurs emplacements et garde les boutons de le fichier que j'utilise quotidiennement.

merci infiniment a vous

je vais ajouter une sauvegarde du fichier origine, cela résout le problème ... demain matin !

C'était pourtant ta demande !!

medjsk a écrit :

(fichier sans boutons)

salut

je veux qu'il archive comme ce fichier ci-joint il fonctionne très bien (il garde les boutons du fichier principale que j'utilise toujours et

les fichier archiver dans leur emplacement s'archivent sans boutons°)

merci

cordialement

bonjour

dans ton 1er fichier tu a 2892 Shapes

dur a trouver les bon

en plus tu fait un enregistrement et sur le 2eme tu fait une copie ??????

on doit voir lequel

voici un code pour lire les Shapes

Sub LireShapes()
Dim Shap As Shape
L = 1
   For Each Shap In ActiveSheet.Shapes
      Debug.Print L & " " & Shap.Name
      L = L + 1
   Next
End Sub

A+

Maurice

Salut apparemment personne n'arrive a regler le probleme !!!

Merci en tous les cas

medjsk a écrit :

Salut apparemment personne n'arrive a regler le probleme !!!

Merci en tous les cas

Avec le bouton ARCHIVER :

• le fichier est sauvegardé au format xlsm avec boutons et macros
• une archive au format xlsx sans macro sans bouton à la date d'aujourd'hui est enregistrée

Sub archiver()

' .........

    ActiveWorkbook.Save

    For Each Shap In ActiveSheet.Shapes
        Shap.Delete
    Next

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\archive " & Format(Now(), "yyyy-mm-dd") & ".xlsx", FileFormat:=51

End Sub

salut

toujours le meme problème qui persiste !!! merci

mes salutations

Quel problème ?

Salut,

medjsk a écrit :

Salut apparemment personne n'arrive a regler le probleme !!!

Apparemment tu contactes plein de membres en privé

Respecte certaines règles et tu auras bien plus de succès.

Amicalement.

Bonjour Yvouille,

https://forum.excel-pratique.com/excel/rectifier-une-erreur-t92632.html#p536991