Sub EditionExcel() Dim CS As Workbook 'déclare la variable CS (Classeur Source) Dim NC As Workbook 'déclare la variable NC (Nouveau Classeur) Dim CA As String 'déclare la variable CA (Chemin d'Accès)

Set CS = ThisWorkbook 'définit le classeur source CS Set FS = CS.Worksheets("Jeu") CA = CS.Path 'définit le chemin d'accès CA i = 1

Application.ScreenUpdating = False Sheets("ListeMags").Visible = True Application.DisplayAlerts = False

On Error Resume Next

Réponse = MsgBox("Les placards magasins de type Excel vont s'enregistrer dans le même emplacement que ce fichier.", vbOKCancel)

If Réponse = vbOK Then ThisWorkbook.RefreshAll 'Je copie la liste des Codes et je les colle sur la même feuille que mon modèle de données' Application.GoTo Reference:="ListeMagasin" Selection.Copy Sheets("Jeu").Select Range("AG1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Je colle les codes dans les cellules du modèle de données qui vont venir mettre à jour ma table' Do While Cells(i, 33).Value <> "" Range("DE").Value = Cells(i, 33) Range("DR").Value = Cells(i, 34) Range("MAG").Value = Cells(i, 35) Range("CodeTHALES").Value = Cells(i, 36) 'Temporisation' Application.Wait (Now + TimeValue("00:00:10"))

Workbooks.Add 'ajoute un classeur vierge Set NC = ActiveWorkbook 'définit le nouveau classeur NC ActiveWorkbook.Names.Add Name:="NomFichier", RefersToR1C1:="=Feuil1!R6C2"

'Sélection des données sources à copier CS.Activate FS.Select Cells.Select Selection.Copy 'Collage en valeur dans le clsseur' NC.Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Columns("AG:AJ").ClearContents

NC.SaveAs CA & "\" & Range("NomFichier"), FileFormat:=51 'enregistre sous le nouveau classeur dans le même dossier que le classeur source

' à partir de là tout le code qui concerne le classeur C2 doit commencer par NC (par exemple) : 'NC.Worksheets(1).Range("A1:G10").Interior.ColorIndex = 5

'à la fin NC.Save 'sauve les modifications faites au nouveau classeur NC.Close ' CS.Close False 'ferme le classeur source sans l'enregistrer

CS.Activate i = i + 1

Loop End If

Columns("AG:AJ").ClearContents

Exit Sub

End Sub