XL 2016 Créer des nouveaux classeurs , noms en colonnes.

[Claudy]

Bonjour,
je bute depuis ce matin:
Un classeur une colonne avec des articles, je voudrais pour chaque article créer un nouveau classeur dans le même répertoire.
Et ça bugge, je ne comprend pas !
Merci d'avance ,
Claudy

 

[M12]

Bonjour,

Teste avec cette macro

Sub Nouveau_Articlesbudgétaires()
Dim chemin As String, i As Range, dl%
dl = Range("G" & Rows.Count).End(xlUp).Row
chemin = ActiveWorkbook.Path & "\"
For Each i In Range("G2:G" & dl)
    Sheets("Modele").Copy
    ActiveWorkbook.SaveAs chemin & i.Value, 52
    ActiveWorkbook.Close True
Next i
End Sub

 

[Claudy]

Ok merci ça marche!
Question subsidiaire:
Je suis dans la colonne "G" sur un article...comment ouvrir le classeur du même nom?
Dans le style:
Sub ouvre_Article_Budgetaire()
'définition du Classeur à ouvrir
MonClasseur = ActiveWorkbook.Path & "\" & ActiveCell.Text & ".xlsm"

'ouverture du Classeur dans une nouvelle instance d'Excel
objExcel.Workbooks.Open Filename:=MonClasseur
objExcel.Visible = True



End Sub

Merci,
Claudy

 

[M12]

Re,

Place cette macro dans la feuille "data"
par double-clic sur une des cellules de la colonne G le classeur s'ouvre

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  'définition du Classeur à ouvrir
  MonClasseur = ActiveWorkbook.Path & "\" & ActiveCell.Text & ".xlsm"
  'ouverture du Classeur dans une nouvelle instance d'Excel
  Workbooks.Open Filename:=MonClasseur
End Sub

 

[Claudy]

Ok super merci,
Une journée à me taper la tête au mur.
Bonne soirée,
Claudy