Conserver liste déroulante avec une boucle

Question

Je suis novice dans l'utilisation des macros. J'ai un fichier Excel de travail avec plusieurs onglets. Dans ces onglets, la dernière colonne est avec une liste déroulante. Les informations de la liste déroulante sont indiquées dans un onglet appelé "Tables". La boucle me permet donc d'enregistrer chaque onglet dans un fichier excel distinct, avec en plus l'onglet table. Lorsque j'ouvre un de ces fichiers, je retrouve mon onglet copié et l'onglet table. Mais la liste déroulante s'est effacée. Avez-vous une idée pour contourner le problème ? Merci,. Pour information le code ci-dessous : Sub enregonglet() Dim ws As Worksheet Dim wb As Workbook For Each ws In ThisWorkbook.Worksheets Set sh = Sheets("Tables") If Not ws.Name = "Base" Then Set wb = Workbooks.Add wb.SaveAs ThisWorkbook.Path & "\" & ws.Name ws.Copy Before:=wb.Worksheets(1) sh.Copy Before:=wb.Worksheets(1) Columns("W:W").Select Selection.Locked = False wb.Close SaveChanges:=True End If Next ws...

Xmenpl · Accepted Answer

Sauf erreur de ma part les listes déroulantes de choix ne sont pas sauvegardé dans les feuilles mais dans le fichier excel par lui-même. Le plus simple serait d'utiliser la fonction "ActiveWorkbook.SaveCopyAs ..... " La copie du fichier conservera les mêmes paramètres. (Nota dans le cas ou le fichier contiendrait plus d'onglet ; vous pouvez toujours utiliser des lignes de code supplémentaires pour supprimer les onglets en trop.)...