Save as "spécial"

[Temjeh]

Bonjour le forum

J,ai déjà posé une question semblable mais sans réponse
alors je la simplifie:

Est-il possible de faire un save as qui remplace un fichier mais sans ces données!!!

Il remplace la mise en page, les macros, les boutons sauf la valeur
des cellules

Merci beaucoup

Temjeh

 

[Robert]

Bonsoir Temjeh, bonsoir le forum,

Ce n'est pas vraiment une réponse que je te propose mais une manière relativement simple d'y parvenir. Tu sauvegardes certainement ton fichier avec une macro contenant un save as. Alors, rajoute ces lignes avant le End Sub de cette macro :

Dim sh As Worksheet 'déclare la variable sh
Application.ScreenUpdating = False 'n'affiche pas le changement d'onglet
'boucle sur tous les onglets de ton classeur
For Each sh In Sheets
sh.Select 'sélectionne l'onglet
sh.Cells.ClearContents 'efface le contenu de toutes les cellules de l'onglet
sh.Range("A1").Select 'sélectionne la cellule A1
Next sh 'prochain onglet de la boucle
Sheets(1).Select 'sélectionne le premier onglet du classeur
Application.ScreenUpdating = True 'réaffiche le changement d'onglet
ActiveWorkbook.Save 'sauve le classeur

À plus,

Robert

 

[Temjeh]

Merco Robert

Ca fonctionne mais ca supprime mes données

J'ai besoin de save as ....remplace un fichier mais en gardant
le contenu des cells
Ex:
Mon nouveau avec nouvelle macro et mise en page
Mon ancien avec base dans cellules...A1:H500

Ouvre le nouveau save as mon ancien...voulez-vous le remplacez "OUI"
sauvegarde et remplace tout sauf mes données A1:H500

Je veut automatisé le tout car j'ai 100 classeurs à ouvrir et à modifier la mise en page et les macros

Merci de tes effort

A++

Temjeh