Boucle qui ne fonctionne pas correctement

[nomitse]

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

 

[pierrejean]

Bonjour nomitse

A tester:

Sub Onglet()
Dim Compteur As Integer, Nom As String
Set Wbk = ThisWorkbook
Sheets("produits").Visible = True
Sheets("produits").Select
For Each c In Range("J4:J100")
Nom = c.Value
If Nom <> "" Then
Wbk.Sheets(Nom).Select
Sheets(Nom).CopyActiveWorkbook.SaveAs Filename:= _
"C:\Budget\ICP B2019 " & Nom & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
Next c
End Sub

 

[nomitse]

Merci mais ca ne focntionne pas la macro plante sur Wbk.Sheets(Nom).Select avec le message Ereur d'éxécution '1004': La méthode Select de la classe Worksheet a échoué.

Simon

 

[pierrejean]

Re
Alors tester:

Sub Onglet()
Dim Compteur As Integer, Nom As String
Set Wbk = ThisWorkbook
Sheets("produits").Visible = True
Sheets("produits").Select
For Each c In Range("J4:J100")
Nom = c.Value
If Nom <> "" Then
Wbk.select
Sheets(Nom).Select
Sheets(Nom).CopyActiveWorkbook.SaveAs Filename:= _
"C:\Budget\ICP B2019 " & Nom & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
Next c
End Sub

 

[nomitse]

Toujours pas, erreur sur Wbk.select : Erreur d'éxécution '438': Propriété ou méthode non gérée par cet objet

 

[pierrejean]

Re

Peux-tu poster une copie de ton fichier sans données autres que celles nécessaires (Range("J4:J100") ?

 

[nomitse]

Voila 🙂

 

[nomitse]

C'est bon j'ai trouvé une solution, j'ai ajouté ActiveWindow.Close avant le end if.

Merci Pierrejean

Simon

 

[pierrejean]

Re

Ceci devrait être meilleur

Sub Onglet()
'
    Dim Compteur As Integer, Nom As String
    Set Wk = ThisWorkbook
    Set Sh = ThisWorkbook.Sheets("Conversion nouveaux produits")
'    Sheets("Conversion nouveaux produits").Visible = True
   
'    Sheets("Conversion nouveaux produits").Select
   
    For Each c In Sh.Range("J4:J7")
        Nom = c.Value
        If Nom <> "" Then
   
'    Sheets(Nom).Select
    Wk.Sheets(Nom).Copy
    ActiveWorkbook.SaveAs Filename:= _
        "H:\L Int\Nutrition Sante\3-Budgets par métier\Budget 2019\8 - Ventes HORIZON\ICP B2019 " & Nom & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   
   
    End If
   
    Next c
   
End Sub

 

[nomitse]

Merci Pierrejean