Bonjour
j'ai fais une macro qui marchait mais qui se met à planter depuis peu et je n'arrive pas a déterminer la cause
en fait cette macro généré un fichier EXCEL, j'exporte la feuille vers un nouveau classeur et je lance une boite de dialogue "enregistrer sous"
jusque là tout fonctionnait et depuis peu la EXCEL plante au moment ou la boite de dialogue doit s'ouvrir
concrètement j'ai mon fichier de base, mon nouveau classeur avec la feuille collée dedans mais la boite ne s'ouvre pas et je ne peut plus rien faire (même CTRL+PAUSE ne fait rien), le débogeur ne se déclanche même pas
je suis obligé d'utiliser le gestionnaire des taches pour sortir de la situation
voici mon code avec en rouge la ligne ou la macro s’arrête
Est ce quelqu'un peut m'éclairer ?
PS: j'ai OFFICE 2016
merci
Sub CREATION_MATRICE_CENTRALES()
Dim nom As String
Call FILTRER_ACTIFS_NOUVEAUX.FILTRER_ACTIFS_NOUVEAUX
Sheets("DOCUMENT CENTRALES").Visible = True
Sheets("MATRICE DE BASE CENTRALES").Visible = True
Sheets("MATRICE DE BASE CENTRALES").Select
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("DOCUMENT CENTRALES").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C14").Select
Sheets("DOCUMENT CENTRALES").Select
Application.CutCopyMode = False
Sheets("DOCUMENT CENTRALES").Copy
Range("A4").Select
ChDir _
"D:\Dropbox (CYNNOTEK)\PARTAGE CYNNOTEK\PARTAGE MARKETING\MATRICE DE BASE\new matrice 2018\"
Application.Dialogs(xlDialogSaveAs).Show
' pour déterminer le nom du fichier
'nom = "BASE MATRICE CENTRALES AU " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " .xlsx"
'ActiveWorkbook.SaveAs (nom)
ActiveWorkbook.Close
Sheets("DOCUMENT CENTRALES").Select
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("C9").Select
Sheets("DOCUMENT CENTRALES").Visible = False
Sheets("MATRICE DE BASE CENTRALES").Visible = False
'Sheets("DOCUMENT CENTRALES").Select
'ActiveWindow.SelectedSheets.Visible = False
MsgBox "MATRICE CENTRALES CREE AVEC SUCCES !!!"
End Sub
j'ai fais une macro qui marchait mais qui se met à planter depuis peu et je n'arrive pas a déterminer la cause
en fait cette macro généré un fichier EXCEL, j'exporte la feuille vers un nouveau classeur et je lance une boite de dialogue "enregistrer sous"
jusque là tout fonctionnait et depuis peu la EXCEL plante au moment ou la boite de dialogue doit s'ouvrir
concrètement j'ai mon fichier de base, mon nouveau classeur avec la feuille collée dedans mais la boite ne s'ouvre pas et je ne peut plus rien faire (même CTRL+PAUSE ne fait rien), le débogeur ne se déclanche même pas
je suis obligé d'utiliser le gestionnaire des taches pour sortir de la situation
voici mon code avec en rouge la ligne ou la macro s’arrête
Est ce quelqu'un peut m'éclairer ?
PS: j'ai OFFICE 2016
merci
Sub CREATION_MATRICE_CENTRALES()
Dim nom As String
Call FILTRER_ACTIFS_NOUVEAUX.FILTRER_ACTIFS_NOUVEAUX
Sheets("DOCUMENT CENTRALES").Visible = True
Sheets("MATRICE DE BASE CENTRALES").Visible = True
Sheets("MATRICE DE BASE CENTRALES").Select
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("DOCUMENT CENTRALES").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C14").Select
Sheets("DOCUMENT CENTRALES").Select
Application.CutCopyMode = False
Sheets("DOCUMENT CENTRALES").Copy
Range("A4").Select
ChDir _
"D:\Dropbox (CYNNOTEK)\PARTAGE CYNNOTEK\PARTAGE MARKETING\MATRICE DE BASE\new matrice 2018\"
Application.Dialogs(xlDialogSaveAs).Show
' pour déterminer le nom du fichier
'nom = "BASE MATRICE CENTRALES AU " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " .xlsx"
'ActiveWorkbook.SaveAs (nom)
ActiveWorkbook.Close
Sheets("DOCUMENT CENTRALES").Select
Range("A4").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("C9").Select
Sheets("DOCUMENT CENTRALES").Visible = False
Sheets("MATRICE DE BASE CENTRALES").Visible = False
'Sheets("DOCUMENT CENTRALES").Select
'ActiveWindow.SelectedSheets.Visible = False
MsgBox "MATRICE CENTRALES CREE AVEC SUCCES !!!"
End Sub