Bonjour le forum,
J'ai un fichier qui me permet de créer d'autre fichier Excel avec des données. Jusque la tout va bien. Mais dans les nouveaux fichier qui sont crées, j'aimerais ajouter un bout de macro. A savoir que les nouveaux fichier n'ont pas besoin d'être enregistré.
Il me semble que je l'avais déjà fait pour un module mais je ne me souvient plus du tout et je Bugue dessus depuis plusieurs jours.
Voila la structure de mon code et celui que je veux ajouter dans "ThisWorkbook"
Sub ValeurUtiles
.....
Set wkb = Workbooks.Add
wkb.Activate
....
end sub
Je voudrais que dans le nouveau fichier Excel qui est crée, ajouter ce code dans "ThisWorkbook"
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim i As Long, Dl As Long, Valeur As String
Dl = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Set mondico = CreateObject("Scripting.Dictionary")
For i = 5 To Dl
If Rows(i).EntireRow.Hidden = False Then
mondico(ActiveSheet.Cells(i, "B").Value) = ""
End If
Next i
a = mondico.keys
For i = LBound(a) To UBound(a)
If Valeur <> "" Then
Valeur = Valeur & " #" & a(i)
Else
Valeur = "#" & a(i)
End If
Next i
ActiveSheet.Range("L1") = Valeur
Set mondico = Nothing
End Sub
Je ne sais pas du tout comment m'y prendre.
Merci pour le coup de main !
Seb
J'ai un fichier qui me permet de créer d'autre fichier Excel avec des données. Jusque la tout va bien. Mais dans les nouveaux fichier qui sont crées, j'aimerais ajouter un bout de macro. A savoir que les nouveaux fichier n'ont pas besoin d'être enregistré.
Il me semble que je l'avais déjà fait pour un module mais je ne me souvient plus du tout et je Bugue dessus depuis plusieurs jours.
Voila la structure de mon code et celui que je veux ajouter dans "ThisWorkbook"
Sub ValeurUtiles
.....
Set wkb = Workbooks.Add
wkb.Activate
....
end sub
Je voudrais que dans le nouveau fichier Excel qui est crée, ajouter ce code dans "ThisWorkbook"
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim i As Long, Dl As Long, Valeur As String
Dl = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Set mondico = CreateObject("Scripting.Dictionary")
For i = 5 To Dl
If Rows(i).EntireRow.Hidden = False Then
mondico(ActiveSheet.Cells(i, "B").Value) = ""
End If
Next i
a = mondico.keys
For i = LBound(a) To UBound(a)
If Valeur <> "" Then
Valeur = Valeur & " #" & a(i)
Else
Valeur = "#" & a(i)
End If
Next i
ActiveSheet.Range("L1") = Valeur
Set mondico = Nothing
End Sub
Je ne sais pas du tout comment m'y prendre.
Merci pour le coup de main !
Seb