{"id":957,"date":"2022-12-09T07:08:23","date_gmt":"2022-12-09T06:08:23","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=957"},"modified":"2022-12-09T07:19:05","modified_gmt":"2022-12-09T06:19:05","slug":"arreter-excel","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/arreter-excel\/","title":{"rendered":"Arr\u00eater Excel\u200b"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Bonjour \u00e0 tous,

Je sais que certains ont des probl\u00e8mes pour fermer compl\u00e8tement Excel, c’est \u00e0 dire s’assurer qu’aucun processus Excel ne persiste dans le Task Manager. Je ne sais pas exactement \u00e0 quoi c’est du, une histoire de framework compliqu\u00e9e, de destruction d’objet dans la m\u00e9moire bref…

Je vous donne une solution plut\u00f4t radicale qui consiste \u00e0 tuer le procesus Excel. Le code est issu de quelques recherches sur des sites anglais principalement (je ne me souviens plus des sites) je l’ai simplement ordonn\u00e9 et \u00e9pur\u00e9. Il y avait beaucoup d’autres sources avec de bonnes id\u00e9es de solutions, mais celle-ci est la seule qui marche \u00e0 chaque fois.<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

PRINCIPE:<\/h3>

Chaque processus a un ID, un num\u00e9ro unique qui l’identifie. Lors de la cr\u00e9ation d’un processus Excel (donc lors du lancement de l’application), Windows lui affecte un ID. Il nous faut donc r\u00e9cup\u00e9rer cet ID pour pouvoir par la suite le tuer (kill, lorsque l’on a termin\u00e9 avec l’application Excel)<\/p>

ETAPES:<\/h3>

1. Pour r\u00e9cup\u00e9rer l’ID, on liste tous les processus EXCEL et on r\u00e9cup\u00e8re (dans un tableau) leur ID respectif
2. On lance l’application Excel (oExcelApp = New Excel.Application etc.) et on liste de nouveau les IDs Excel. Nous avons donc r\u00e9cup\u00e9r\u00e9 dans cette nouvelle liste le nouvel ID correspondant \u00e0 l’application Excel que nous venons de lancer.
3. Il nous reste \u00e0 comparer les 2 listes pour r\u00e9cup\u00e9rer l’ID du processus Excel que l’on vient de lancer.
4. Nous pourrons \u00ab\u00a0killer\u00a0\u00bb le processus par son ID lorsque n\u00e9cessaire, sans toucher aux autres sessions Excel excitantes, c’est donc transparent pour l’utilisateur de votre programme.<\/p>

Voil\u00e0, je vous avais pr\u00e9venu, c’est radical mais c’est d\u00e9finitif, je l’ai test\u00e9 sur plusieurs machines, avec frameworks 1.1, 2.0, 3.0, cela marche \u00e0 chaque fois. J’esp\u00e8re en avoir aid\u00e9 certains.

Greg<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Imports Microsoft.Office.Interop<\/em><\/span>

‘ Lancer Excel, ouvrir un fichier, fermer Excel :<\/em><\/span>
Public Class Test<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim oExcelApp As New MSExcelApp<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Ouvre Excel en session invisible, et ouvre un fichier Excel<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0With oExcelApp<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0.Start(False)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0.OpenFile(\u00ab\u00a0c:\\fichier_excel.xls\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘ Faites ce que vous voulez ici<\/span><\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘ Quitte Excel<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0.Quit()<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End With<\/em><\/span>
End Class<\/em><\/span>

Public Class MSExcelApp<\/em><\/span>
\u00a0\u00a0 \u00a0Public Shared oExcelApp As Excel.Application<\/em><\/span>
\u00a0\u00a0 \u00a0Private intID As Int16<\/em><\/span>

\u00a0\u00a0 \u00a0Public Sub Start(ByVal blnVisible As Boolean)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Lance Excel, l’application peut \u00eatre visible ou non (blnVisible)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Liste tous les procesus Excel en cours<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim intFirstIDs() As Int16 = MSExcelApp.ListID()<\/em><\/span>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Ouvre Excel<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0oExcelApp = New Excel.Application<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0oExcelApp.Visible = blnVisible<\/em><\/span>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Liste de nouveau tous les procesus Excel en cours, pour pouvoir comparer avec la premi\u00e8re liste<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim intLastIDs() As Int16 = MSExcelApp.ListID()<\/em><\/span>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Extraction de l’ID gr\u00e2ce \u00e0 la comparaison des 2 listes<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0intID = MSExcelApp.ExtractID(intFirstIDs, intLastIDs)<\/em><\/span>
\u00a0\u00a0 \u00a0End Sub<\/em><\/span>

\u00a0\u00a0 \u00a0‘ Ouvre un fichier Excel<\/em><\/span>
\u00a0\u00a0 \u00a0Public Sub OpenFile(ByVal strAbsolutePath As String)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0oExcelApp.Workbooks.Open(strAbsolutePath)<\/em><\/span>
\u00a0\u00a0 \u00a0End Sub<\/em><\/span>

\u00a0\u00a0\u00a0 ‘ Ferme Excel en tuant le procesus, nous devons lui fournir en param\u00e8tre l’ID r\u00e9cup\u00e9r\u00e9 lors de la cr\u00e9ation de la session Excel<\/em><\/span>
\u00a0\u00a0 \u00a0Public Sub Quit()<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Try<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Process.GetProcessById(intID).Kill()<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Catch ex As Exception<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MessageBox.Show(ex.Message & ex.StackTrace, \u00ab\u00a0Error while closing Excel.\u00a0\u00bb, MessageBoxButtons.OK, MessageBoxIcon.Error)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End Try<\/em><\/span>
\u00a0\u00a0 \u00a0End Sub<\/em><\/span>

\u00a0\u00a0 \u00a0‘ Fonction qui liste les procesus<\/em><\/span>
\u00a0\u00a0 \u00a0Private Shared Function ListID() As Int16()<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Get the ID’s processes list in a array and sort it<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ It is the only way to close Excel:<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ To close Excel, we need to list the Excel ID’s processes\u00a0 before user starts excel<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ then we list them one more time just after opening Excel.<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ We compare both of the lists we have to extract the new Excel ID of the brand new fucking Excel<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ session.\u00a0 So we can kill this process with the ID we got, without killing other Excel user<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ session.<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ L’explication ci-dessus r\u00e9sume l’explication g\u00e9n\u00e9rale de la m\u00e9thode, cf pr\u00e9sentation du code<\/em><\/span>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Get ID’s processes list<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim Processes As Process() = Nothing<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Processes = Process.GetProcessesByName(\u00ab\u00a0EXCEL\u00a0\u00bb)<\/em><\/span>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘ Load ID Processes in Array<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim intProcesses(Processes.GetUpperBound(0)) As Int16<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim i As Int16<\/em><\/span>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0For i = 0 To Processes.GetUpperBound(0)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0intProcesses(i) = CInt(Processes(i).Id.ToString)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Next<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Return intProcesses<\/em><\/span>
\u00a0\u00a0 \u00a0End Function<\/em><\/span>

\u00a0\u00a0 \u00a0‘ Fonction qui compare les 2 listes de IDs, et nous renvoie l’ID voulu.<\/em><\/span>
\u00a0\u00a0 \u00a0Private Shared Function ExtractID(ByVal intFirstIDs As Int16(), ByVal intLastIDs As Int16()) As Int16<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim intID As Int16 = Nothing<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim intID_FirsList As Int16 = Nothing<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim intID_LastList As Int16 = Nothing<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim i As Int16 = Nothing<\/em><\/span>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0For i = 0 To intLastIDs.GetUpperBound(0)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0intID_LastList = intLastIDs(i)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Array.IndexOf(intFirstIDs, intID_LastList) = -1 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0intID = intID_LastList<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Exit For<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Next<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Return intID<\/em><\/span>
\u00a0\u00a0 \u00a0End Function<\/em><\/span>
End Class <\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

Bonjour \u00e0 tous, Je sais que certains ont des probl\u00e8mes pour fermer compl\u00e8tement Excel, c’est \u00e0 dire s’assurer qu’aucun processus Excel ne persiste dans le Task Manager. Je ne sais pas exactement \u00e0 quoi c’est du, une histoire de framework compliqu\u00e9e, de destruction d’objet dans la m\u00e9moire bref… Je vous donne une solution plut\u00f4t radicale […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"0","ocean_second_sidebar":"0","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"0","ocean_custom_header_template":"0","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"0","ocean_menu_typo_font_family":"0","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"0","footnotes":""},"class_list":["post-957","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/957","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=957"}],"version-history":[{"count":4,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/957\/revisions"}],"predecessor-version":[{"id":965,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/957\/revisions\/965"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=957"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}