Enregistrement de classeur excel sans les modules vb

Résolu
Signaler
Messages postés
7
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
29 octobre 2008
-
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
-
Bonjour à tous,

je voudrais un code qui m'enregistre mon active classeur en cours sans
enregistrer l'ensemble des macros et environnement vb, juste les
simples feuilles de calcul excel..

je vous montre mon code d'enregistrement auquel il fo rajouter le code demandé ci-dessus..



Private Sub CommandButton2_Click()

num = TextBox1.Text

wkc = ComboBox1.Value

If ComboBox2.Value = "non" Then

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\pÚpÚ\Bureau" & num & "-" & wkc & ".xls"

Call MsgBox("Vous avez
enregistré votre audit dans le dossier Qualité\SAQ\AMQ\NC", ,
"Information")

End If

If ComboBox2.Value = "oui" Then

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\pÚpÚ\Bureau" & num & "-" & wkc & ".xls"

Call MsgBox("Vous avez
enregistré votre audit dans le dossier Qualité\SAQ\AMQ\C", ,
"Information")



End If

End Sub

Merci d'avance de votre aide...

3 réponses

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
29
bonsoir

j'espere que cet exemple pourra t'aider

Dim VbComp As Object


ThisWorkbook.SaveAs "D:\dossier\general\excel\test.xls" 'sauvegarde du fichier contenant la macro


For Each VbComp In ActiveWorkbook.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp


ActiveWorkbook.Save ' enregistre les modifs apres suppression

bon week end
michel
3
Messages postés
7
Date d'inscription
vendredi 24 mars 2006
Statut
Membre
Dernière intervention
29 octobre 2008

Salut, g un pb avec c ecode, en effet VpComp n'est pas défini???

Comment faut-il le définir?

merci d'avance
0
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
29
bonjour

si j'ai bien compris ta demande , active la reference Microsoft Visual Basic for Applications Extensibility 5.3

Menu Outils
References
Coche la ligne "Microsoft Visual Basic for Applications Extensibility 5.3"
Clique sur "OK" pour valider

bon week end
michel
0