VBA: Création de nouveaux classurs à partir d'une list de valeurs avec VLookUps

J'ai cherché et j'ai appris tout ce que je peux sur VBA avant de join la communauté.

J'ai un classur avec une feuille avec une list de valeurs. Dans une autre feuille, cette list est un drop down menu dans l'une des cellules. Cette cellule est liée à des dizaines de vlookups et de formules pour valider rapidement certaines données de l'entreprise.

J'ai bien réglé une macro à partir d'une autre publication et je l'ai acheté pour copyr la valeur de la list et save où je la souhaite et nommer ce que je veux. Je n'ai pas encore réitéré le process … Quelques conseils? Voici le code avec lequel je me suis dérangé jusqu'ici.

Sub create() Dim wb As Workbook, sh1 As Worksheet, lr As Long, rng As Range Set sh1 = Sheets("GIW") Set sh2 = Sheets("3A") lr = sh1.Cells(Rows.Count, "A").End(xlUp).Row Set rng = sh1.Range("A2:A" & lr) For Each c In rng Set wb = ActiveWorkbook wb.Sheets.Add wb.Sheets(1).Range("D10") = c.Value wb.SaveAs c.Value & ".xlsx" = "C:\Users\ianc\Desktop\Exhibit 2 Data Validation.xlsx" wb.Close False Next End Sub 

• Récupérer des données d'un autre programme en VBA
• Problème face à Ssortingng remplacé par des caractères spl lors de l'écriture sur excel java
• Modifier un file Excel tout en exportant des données depuis ms pour accéder à un autre file Excel à l'aide de c # sans erreur.
• Besoin d'aide sur la fonction excel autocomplete pour la list déroulante
• Excel: étant donné une date de début et de fin, créez un tableau des dates entre les deux

• Faire reference à une table dans un classur différent à l'aide de IndexMatch ou Vlookup ne fonctionne que lorsque WB s'ouvre
• VBA – Trapping des events sur la textbox créée dynamicment
• Java, Apache POI, la valeur de la cellule ne changera pas lorsqu'elle sera vue depuis MS Excel
• Fusionner des cellules ayant la même valeur dans Excel Java
• La macro importe le file text dans plusieurs feuilles de calcul, je veux juste que tout importé en un seul

 Sub create() Const FPATH As Ssortingng = "C:\_Stuff\" Dim wb As Workbook, sh1 As Worksheet, lr As Long, rng As Range Dim c As Range Set sh1 = ThisWorkbook.Sheets("GIW") lr = sh1.Cells(Rows.Count, "A").End(xlUp).Row Set rng = sh1.Range("A2:A" & lr) Set wb = ActiveWorkbook wb.Sheets.Add before:=wb.Sheets(1) For Each c In rng wb.Sheets(1).Range("D10") = c.Value wb.SaveCopyAs FPATH & c.Value & ".xlsx" Next wb.Close False End Sub