CyberNeo99
XLDnaute Occasionnel
Bonjour à tous,
Je roule la macro et elle fait planter Excel, ce n'est pas la macro qui plante en me disant sur quelle ligne il y a un problème, j'ai la fenêtre de Windows qui me dit de fermer l'application. Un Crash majeur...
J'ai créer un code VBA tout simple qui copie une feuille Excel dans un nouveau classeur qui copie en valeur les données car il y a des formules et je lui dis de sauvegarder le nouveau fichier à un endroit sur le réseau, à un endroit. Dans le nom du fichier il y a des information qu'il va chercher. Dans le nom du fichier master il y a une information une période que je vais chercher et que je mets dans une variable, il y a aussi un No de magasin que je mets dans le nouveau fichier que je veux sauvegarder.
Ce qui est vraiment étonnant je roule la macro sous Excel 2010 aucun problème, lorsque je la roule sous Excel 2007 dans l'environnement Windows 7 elle plante. J'ai essayé aussi sous Windows XP de rouler la macro dans Excel 2007 et ça plante quand même
Voici le code :
Le plantage se fait à chaque fois lorsqu'il vient pour fermer le fichier ou la sauvegarde à la fin....
Merci
Neo
Je roule la macro et elle fait planter Excel, ce n'est pas la macro qui plante en me disant sur quelle ligne il y a un problème, j'ai la fenêtre de Windows qui me dit de fermer l'application. Un Crash majeur...
J'ai créer un code VBA tout simple qui copie une feuille Excel dans un nouveau classeur qui copie en valeur les données car il y a des formules et je lui dis de sauvegarder le nouveau fichier à un endroit sur le réseau, à un endroit. Dans le nom du fichier il y a des information qu'il va chercher. Dans le nom du fichier master il y a une information une période que je vais chercher et que je mets dans une variable, il y a aussi un No de magasin que je mets dans le nouveau fichier que je veux sauvegarder.
Ce qui est vraiment étonnant je roule la macro sous Excel 2010 aucun problème, lorsque je la roule sous Excel 2007 dans l'environnement Windows 7 elle plante. J'ai essayé aussi sous Windows XP de rouler la macro dans Excel 2007 et ça plante quand même
Voici le code :
VB:
Sub Rapport_OM()
'
' Rapport_OM Macro
'
Dim Nb_Mag, No_Mag As Integer
Dim OM_Fichier, Rep_Sauv, OM_Path_Fichier, Nom_fichier, OM_Per As String
Nom_fichier = ActiveWorkbook.Name
OM_Per = Left(Right(Nom_fichier, 8), 3)
Sheets("Liste Magasins").Select
Nb_Mag = Application.CountA(Range("A2:A1000"))
For I = 1 To 10 'Nb_Mag
Sheets("Liste Magasins").Select
Range("A" & I + 1).Select
Selection.Copy
Sheets("Analyse-Ratio(Dept)-Type").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
No_Mag = Range("C8").Value
Sheets("Liste Magasins").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("Analyse-Ratio(Dept)-Type").Select
Sheets("Analyse-Ratio(Dept)-Type").Copy
Cells.Select
Range("A2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="R1C1"
Rep_Sauv = "C:\Test\"
OM_Fichier = "Offre manquante amélioré " & OM_Per & " Mag " & No_Mag & ".xlsx"
OM_Path_Fichier = Rep_Sauv & OM_Fichier
ActiveWorkbook.SaveAs OM_Path_Fichier
Windows(OM_Fichier).Close
Workbooks(Nom_fichier).Activate
Next
'
End Sub
Le plantage se fait à chaque fois lorsqu'il vient pour fermer le fichier ou la sauvegarde à la fin....
Merci
Neo
Dernière édition: