payhpayh7
Messages postés7Date d'inscriptionvendredi 24 mars 2006StatutMembreDernière intervention29 octobre 2008
-
28 mars 2006 à 23:08
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 2008
-
1 avril 2006 à 06:48
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...
A voir également:
Enregistrement de classeur excel sans les modules vb
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 200832 31 mars 2006 à 20:27
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