Enregistrer deux onglets sur dix

[maval]

Bonjour,

Je suis a la recherche d'un code VBA pour enregistrer deux onglets sur dix.

Je m'explique j'ai un fichier avec 10 onglets j'aimerais que lorsque j'enregistre seul les deux premier onglet sois enregistrer.

je vous remercie de votre aide

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Bonjour,

que fait on des 8 autres ???

bon après midi
@+

 

[maval]

Re : Enregistrer deux onglets sur dix

Bonjour Pierrot,

Voila j'ai un fichier nommer "Matrice" que je me sert pour remplir des données. Se fichier quotient 10 onglets et lorsque j'enregistre je nomme le fichier "......." les deux premiers doit être enregistrer.
Le fichier "Matrice" doit rester avec ces 10 onglets

Merci

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Re,

une approche comme ceci :

Option Explicit
Sub test()
Dim i As Integer
Workbooks("Matrice.xlsm").Save
Application.DisplayAlerts = False
For i = 3 To 10
    Sheets(i).Delete
Next i
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs "nom fichier"
End Sub

sans doute à adapter...

 

[maval]

Re : Enregistrer deux onglets sur dix

Re,

J'ai un message d'erreur sur la ligne Sheets(i).Delete

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Re,

que vaut "i" ? tu as bien 10 onglets ? attention macro s'applique sur le classeur actif

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Re,

attention macro s'applique sur le classeur actif

sauf si le code est placé dans le module "thisworkbook"....

 

[maval]

Re : Enregistrer deux onglets sur dix

re

Oui j'ai bien 10 onglets et la macro s'applique bien sur le classeur actif

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Re,

et ou est placé le code ? la feuille ou le classeur ne sont pas protégés ???

 

[maval]

Re : Enregistrer deux onglets sur dix

re

J'ai mis le code dans un module standard et le ni classeur ni les feuilles sont protéger

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Re,

bah... mets le classeur avec le code utilisé en pièce jointe, code proposé fonctionne chez moi...

 

[maval]

Re : Enregistrer deux onglets sur dix

Re,

Voila le fichier

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Re,

aarf autant pour moi... modifie comme suit :

Sub test()
Dim i As Integer
Workbooks("Matrise.xlsm").Save
Application.DisplayAlerts = False
For i = 10 To 3 Step -1
     Sheets(i).Delete
     Next i
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs "Nom"
End Sub

 

[maval]

Re : Enregistrer deux onglets sur dix

Re,

Oui sa fonctionne beaucoup mieux mais seul petit souci j'aimerais le nommer a chaque fois que j'enregistre?

Merci

 

[Pierrot93]

Re : Enregistrer deux onglets sur dix

Re,

regarde avec ceci :

Option Explicit
Sub test()
Dim i As Integer, x 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 = InputBox("Nom fichier ?")
If x <> "" Then ActiveWorkbook.SaveAs x
End Sub

bonne journée
@+