Bonjour,
Je sollicite votre aide car depuis une MAJ récente Excel, j'ai une de mes macros qui ne fonctionne plus.
En effet lors de la phase d'enregistrement, j'ai maintenant une fenêtre Excel qui s'ouvre me demandant "Enregistrer vos modifications dans ce fichier ?" La macro ne s'exécute donc pas jusqu'au bout.
Mon code est le suivant. Il me permet via un bouton de contrôle de formulaire dans l'onglet "Stock". Je rends visible l'onglet "Copy_Stock" et je copie de l'onglet "Stock" dans l'onglet "Copy_Stock". Je crée ensuite une copie de l'onglet "Copy_Stock" que je renomme et que j'enregistre dans un dossier prédéfini.
A la fin je re-masque mon onglet "Copy_Stock" et je reviens sur mon onglet"Stock".
Sub Copy_Stock()
'
Cells.Select
Selection.Copy
Sheets("Copy_Stock").Visible = True
Sheets("Copy_Stock").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("H:I").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
' Stock Macro
'
Dim NewWk, FromWk, k, Nomfichier
FromWk = ActiveWorkbook.Name
Workbooks.Add
NewWk = ActiveWorkbook.Name
Application.DisplayAlerts = False
Workbooks(FromWk).Sheets("Copy_Stock").Copy before:=Workbooks(NewWk).Worksheets(1)
For k = Workbooks(NewWk).Sheets.Count To 2 Step -1
Workbooks(NewWk).Sheets(k).Delete
Next k
Nomfichier = Workbooks(FromWk).Path
If Right(Nomfichier, 1) <> "\" Then Nomfichier = Nomfichier & "\"
Nomfichier = Format(Sheets("Copy_Stock").Cells(2, 1), "_yyyymmdd")
Chemin = "C:\Entrepôt1\"
Application.DisplayAlerts = True
ChDir "C:\Entrepôt1\"
ActiveWorkbook.SaveAs Filename:=Chemin + ActiveSheet.Name + Nomfichier + ".csv", FileFormat:=xlCSV, _
CreateBackup:=False, Local:=True
ActiveWorkbook.Close
ActiveWindow.SelectedSheets.Visible = False
Sheets("Stock").Select
Range("A1").Select
End Sub
Un grand merci par avance pour votre aide !
Cordialement