S
Sébbb
Guest
Re bonjour à tous,
j'ai un autre soucis maintenant (je ne l'avais pas avant...)
Voici deux macros que j'utilise :
Sub Record()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:='Classeur Microsoft Excel(*.xls), *.xls')
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName
MsgBox 'Sauvegarder en tant que ' & fileSaveName
End If
End Sub
Sub supprimerMacros()
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item('Module1')
.Remove .Item('UserForm1')
End With
End Sub
Je les execute dans l'ordre:
supprimerMacros et Record
mais j'ai un bug sur mes remove, ils sont soulignés en jaune qd j'appuie sur enregistrer de la fenêtre générée par Record,
Bizzard car la suppression des macros se fait en premier dc je comprend pas prquoi ca bug sur la première apres la deuxieme?!?!
Quelqu'un aurait-il une explication?
Merci d'avance pour votre aide
A+
Sébbbb
j'ai un autre soucis maintenant (je ne l'avais pas avant...)
Voici deux macros que j'utilise :
Sub Record()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:='Classeur Microsoft Excel(*.xls), *.xls')
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName
MsgBox 'Sauvegarder en tant que ' & fileSaveName
End If
End Sub
Sub supprimerMacros()
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item('Module1')
.Remove .Item('UserForm1')
End With
End Sub
Je les execute dans l'ordre:
supprimerMacros et Record
mais j'ai un bug sur mes remove, ils sont soulignés en jaune qd j'appuie sur enregistrer de la fenêtre générée par Record,
Bizzard car la suppression des macros se fait en premier dc je comprend pas prquoi ca bug sur la première apres la deuxieme?!?!
Quelqu'un aurait-il une explication?
Merci d'avance pour votre aide
A+
Sébbbb