Bonjour à tous,
j'aimerais créer un dossier "Résultat" avec à l'interrieur un nouveau classeur
qui renvoit un résultat
Je m'explique, j'ai une liste de composants, et des références associées sur une feuille, je voudrais créer un nouveau classeur et mette sur une feuille tous les composants pour lequels la référence est manquante. Ma feuille s'appelle "composants manquants"
nb_reference_non_trouve: compte le nombre de reférence manquante
tab_composants_absents(k) : stocke le nom des composants n'ayant pas de référence.
j'ai un problème dans mon code a ce niveau, pour renomer ma feuille![]()
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set sh = ActiveWorkbook.Sheets.Add
merci pour vos conseils
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 If nb_reference_non_trouve >= 1 Then Dim sh As Worksheet MsgBox "Vous devez créer les feuilles de " & nb_reference_non_trouve, , "Composants manquants" 'création du répertoire Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateFolder(RepertoireTravail & "\Résultats\") 'récupère la date et l'heure du jour DateCreation = Format(Date, "dd-mmm-yyyy") & " " & Format(Time, "h-mm-ss") Workbooks.Add (1) 'renome le classeur ActiveWorkbook.SaveAs RepertoireTravail & "Résultats\" & FenetrePrincipale.LblNomCarte.Value & "(" & DateCreation & ").xls" 'renome la feuille Set sh = ActiveWorkbook.Sheets.Add sh.Name = "Composants manquants" ' note tous les composants k = 1 Do While k <= nb_reference_non_trouve sh.Range("A" & k) = tab_composants_absents(k) k = k + 1 Loop
Cordialement
Alex
Partager