Modification de code pour Enregistrement de deux onglets

[maval]

Bonjour

J'ai un code pour enregistrer mon onglet actif je recherche a modifier mon code pour enregistrer les deux première feuille

je vous remercie d'avance

mon code:

Sub Archiver()

Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsm"
chemin = "C:\Users\Max\Desktop\Test\"
nomfichier = ActiveSheet.Range("A1") ' & extension
With ActiveWorkbook
      .ActiveSheet.DrawingObjects(2).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

 

[Pierrot93]

Re : Modification de code pour Enregistrement de deux onglets

Re,

préférable de rester sur le fil initial :
https://www.excel-downloads.com/threads/enregistrer-deux-onglets-sur-dix.229116/

 

[maval]

Re : Modification de code pour Enregistrement de deux onglets

Bonjour,

Suite au code de Pierrot que je remercie et salut au passage. Le code fonctionne très bien mais lorsque j'enregistre le fichier avec ce code sa me prend pas les modules standard ou se trouve tous mes codes.
Y a t-il un moyen ?

Sub test()
Dim i As Integer, x As String, chemin As String
Workbooks("Matrise.xlsm").Save
Application.DisplayAlerts = False
For i = 10 To 3 Step -1
     Sheets(i).Delete
     Next i
     
Application.DisplayAlerts = True
x = ActiveSheet.Range("K1")
chemin = "C:\Users\Dédé\Desktop\Text\"
If x <> "" Then ActiveWorkbook.SaveAs chemin & x

' Destruction des boutons sur la feuille

Dim s As Object
  For Each s In ActiveSheet.Buttons
    If s.Name <> "Menu, dudu" Then s.Delete
    Next

End Sub

Merci d'avance

 

[Pierrot93]

Re : Modification de code pour Enregistrement de deux onglets

Bonjour,

il faut forcer le format de fichier "xlsm", voir dans les propositions de Job sur l'autre fil.... et mon conseil post #2 de ce fil...

bonne journée
@+

 

[camarchepas]

Re : Modification de code pour Enregistrement de deux onglets

Bonjour Pierrot , Maval,

Et hop, carton jaune

En effet cela devient FATIGUANT de voir à quelle vitesse tu crées de nouvelles discussions sur le même sujet , en oubliant toutes les réponses déjà faite .

Il faudrait peut être t'abonner aux discussions que tu veux suivre ....

Sinon tu finiras par prendre un carton rouge ... lol

 

[maval]

Re : Modification de code pour Enregistrement de deux onglets

Bonjour Pierrot

Même avec le code de Job les module standard ne sont pas sur le fichier enregistrer

Bonne journée

 

[Pierrot93]

Re : Modification de code pour Enregistrement de deux onglets

Re,

pour sauvegarder avec les macros :

ActiveWorkbook.SaveAs "nomfichier", xlOpenXMLWorkbookMacroEnabled

 

[maval]

Re : Modification de code pour Enregistrement de deux onglets

Re,

Sur la ligne de code il y a "nomfichier", pour moi le nom du fichier se trouve sur la cellule "K1"

@+

 

[Pierrot93]

Re : Modification de code pour Enregistrement de deux onglets

Re,

Sur la ligne de code il y a "nomfichier", pour moi le nom du fichier se trouve sur la cellule "K1"

le code proposé est un exemple... je pense que depuis le temps que tu viens ici chercher des codes tu dois pouvoir adapter aisement...

 

[camarchepas]

Re : Modification de code pour Enregistrement de deux onglets

Bonjour Pierrot , Maval

Bon en même temps qu'un nouveau carton jaune voici la solution du Tigre adaptée , attention le clé en main dépend toujours de la serrure ....
if range("K1") = "" then msgbox "Le nom de fichier n'est pas renseigné ....., carton rouge":exit sub

ActiveWorkbook.SaveAs range("K1"), xlOpenXMLWorkbookMacroEnabled

 

[maval]

Re : Modification de code pour Enregistrement de deux onglets

Bonjour Nono,

Malgré toutes les engueulades que tu me fait je ne t'en veut pas, Le problème a mon âge on ne fait plus attention a ceci

Je te remercie infiniment a part que! lorsque j'enregistre tous se passe bien et a chaque fois il me met un message me disant que le fichier existe déjà alors qu'il n'existé pas avant Bof........

Bonne journée

 

[camarchepas]

Re : Modification de code pour Enregistrement de deux onglets

Re ,

Pour l'age , tu as juste un an de plus que moi , donc non déterminant , nous sommes encore trés jeunes à peine séniors.....

Essaies de coller cette macro et dis moi quoi .

Sub dd()

If Range("K1") = "" Then MsgBox "Le nom de fichier n'est pas renseigné ....., carton rouge": Exit Sub
If Dir(Range("K1")) <> "" Then MsgBox " Et oui , il est déjà existant ": Exit Sub
ActiveWorkbook.SaveAs Range("K1"), xlOpenXMLWorkbookMacroEnabled
End Sub

Si cela donne encore la même chose, y'a-t-il une événementiel dans le thisworkbook pour le beforesave ?

 

[maval]

Re : Modification de code pour Enregistrement de deux onglets

Re,

Non l'âge je suis de 53.
Sa fait toujours pareil je joint mon fichier il n'y a rien dans ThisWorkbook

 

[camarchepas]

Re : Modification de code pour Enregistrement de deux onglets

Re ,

Voici donc le code de la macro test que tu as composé :

Sub test()
Dim i As Integer, x As String, chemin As String

'If Range("K1") = "" Then MsgBox "Le nom de fichier n'est pas renseigné .....,": Exit Sub
'ActiveWorkbook.SaveAs Range("K1"), xlOpenXMLWorkbookMacroEnabled

If Range("K1") = "" Then MsgBox "Le nom de fichier n'est pas renseigné ....., carton rouge": Exit Sub
If Dir(Range("K1")) <> "" Then MsgBox " Et oui , il est déjà existant ": Exit Sub
 ActiveWorkbook.SaveAs Range("K1"), xlOpenXMLWorkbookMacroEnabled


Application.DisplayAlerts = False
For i = 10 To 3 Step -1
     Sheets(i).Delete
     Next i
     
Application.DisplayAlerts = True
x = ActiveSheet.Range("K1")
chemin = "C:\Users\Dédé\Desktop\Text\"
'If x <> "" Then ActiveWorkbook.SaveAs chemin & x

If x <> "" Then ThisWorkbook.SaveAs chemin & x

' Destruction des boutons sur la feuille
Dim s As Object
  For Each s In ActiveSheet.Buttons
    If s.Name <> "Menu, dudu" Then s.Delete
    Next
'Stop
End Sub

si tu regardes bien où ton code s'arrête , ce n'est pas ici :

ActiveWorkbook.SaveAs Range("K1"), xlOpenXMLWorkbookMacroEnabled

mais là

ThisWorkbook.SaveAs chemin & x


Pourquoi sauvegarder 2 fois le même classeur ?
et donc pas étonnant qu'il le trouve la 2eme fois

voici comment je ferai , mais j'ai peut être pas toutes les billes pour savoir ce que tu veux réellement faire

Sub test()
Dim i As Integer, x As String, chemin As String
Dim s As button
Application.DisplayAlerts = False
 For i = 10 To 3 Step -1
     Sheets(i).Delete
 Next i
 Application.DisplayAlerts = True
 chemin = "C:\Users\Dédé\Desktop\Text\"
 x = ActiveSheet.Range("K1")
 If x = "" Then MsgBox "Le nom de fichier n'est pas renseigné ....., carton rouge": Exit Sub
 If Dir(chemin & x) <> "" Then MsgBox " Et oui , il est déjà existant ": Exit Sub
 
 ThisWorkbook.SaveAs chemin & x ,xlOpenXMLWorkbookMacroEnabled

' Destruction des boutons sur la feuille
  For Each s In ActiveSheet.Buttons
    If s.Name <> "Menu, dudu" Then s.Delete
   Next
End Sub

 

[Pierrot93]

Re : Modification de code pour Enregistrement de deux onglets

Re,

perso, je mettrais plutôt la sauvegarde et une seule après la suppression des boutons...