Bonjour,
J'ai créé la macro suivante qui a pour objectif de créer un fichier selon une liste de valeur d'une liste. la macro fonctionne bien pour le premier onglet mais plante sur le sheet(Nom).select alors que l'onglet faisant référence à J5 existe bien.
Savez vous pourquoi ca ne fonctionne pas?
Merci d'avance,
Simon
Sub Onglet()
Dim Compteur As Integer, Nom As String
Sheets("produits").Visible = True
Sheets("produits").Select
For Each c In Range("J4:J100")
Nom = c.Value
If Nom <> "" Then
Sheets(Nom).Select
Sheets(Nom).Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Budget\ICP B2019 " & Nom & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
Next c
End Sub
J'ai créé la macro suivante qui a pour objectif de créer un fichier selon une liste de valeur d'une liste. la macro fonctionne bien pour le premier onglet mais plante sur le sheet(Nom).select alors que l'onglet faisant référence à J5 existe bien.
Savez vous pourquoi ca ne fonctionne pas?
Merci d'avance,
Simon
Sub Onglet()
Dim Compteur As Integer, Nom As String
Sheets("produits").Visible = True
Sheets("produits").Select
For Each c In Range("J4:J100")
Nom = c.Value
If Nom <> "" Then
Sheets(Nom).Select
Sheets(Nom).Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Budget\ICP B2019 " & Nom & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
Next c
End Sub