bonjour a toutes et tous et meilleurs voeux pour cette nouvelle année !!!
voici mon probleme : cette application qui a pour but de sauvegarder la feuille en supprimant les userforms et en desactivant les boutons marche tres bien sur mon pc (excel 2000) mais ne marche pas sur un autre (excel 2003).
C'est au moment de supprimer les procedures que cela s'arrete. Comme je suis un debutant je sollicite votre aide. Merci.
'copie de la feuille cible dans un nouveau classeur
Sheets("FACTURE PART").Copy
'sauvegarde du nouveau classeur
Chemin = "C:\Documents and Settings\machin\Mes documents\FACTURE PART\"
ActiveWorkbook.SaveAs Chemin & [B16].Text & [G2].Text & Format(Date, "_dd\-mm\-yy") & ".xls"
'supprime toutes les procedures du nouveau classeur
For Each VbComp In ActiveWorkbook.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
Wb.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
ActiveWorkbook.Save
ActiveWorkbook.Close 'fermeture du nouvau classeur
voici mon probleme : cette application qui a pour but de sauvegarder la feuille en supprimant les userforms et en desactivant les boutons marche tres bien sur mon pc (excel 2000) mais ne marche pas sur un autre (excel 2003).
C'est au moment de supprimer les procedures que cela s'arrete. Comme je suis un debutant je sollicite votre aide. Merci.
'copie de la feuille cible dans un nouveau classeur
Sheets("FACTURE PART").Copy
'sauvegarde du nouveau classeur
Chemin = "C:\Documents and Settings\machin\Mes documents\FACTURE PART\"
ActiveWorkbook.SaveAs Chemin & [B16].Text & [G2].Text & Format(Date, "_dd\-mm\-yy") & ".xls"
'supprime toutes les procedures du nouveau classeur
For Each VbComp In ActiveWorkbook.VBProject.VBComponents
Select Case VbComp.Type
Case 1 To 3
Wb.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
ActiveWorkbook.Save
ActiveWorkbook.Close 'fermeture du nouvau classeur