Discussion :

[alex.a]

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

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

merci pour vos conseils
Cordialement
Alex

[ouskel'n'or]

Tu as une erreur ? Sur quelle ligne ? Essaie ave worksheets, des fois que ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set sh = ActiveWorkbook.WorkSheets.Add
    sh.Name = "Composants manquants"

[alex.a]

des fois que ça fonctionne

ça fonctionne merci.

par contre j'ai deux feuilles dans mon fichier, une feuille composants manquants et une Feuil1 (vide)
Comment faire pour avoir juste la feuillle composants manquants?

[Gamal le Celte]

Pour supprimer une feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil2").Delete

Ne pas oublier les messages d'alerte... (A vois sur le forum)

[Invité]

Bonjour Alex.a,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.DisplayAlerts = False
Worksheets("Feuil1").Delete
Application.DisplayAlerts = True

Amicalement.

[alex.a]

Merci à vous deux ça fonctionne

Sinon j'aurais besoin d'une petite indication sur la syntaxe des boites de dialogue je voudrais mettre du texte puis une variable puis de nouveau du texte derrière, et je ne sais même pas faire ça

MsgBox "......." &variable ???

Mon code fonctionne mais je sais pas rajouter mon texte derrière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MsgBox "Vous devez créer les feuilles de " & nb_reference_non_trouve, , "Composants manquants"

comment faire ça?

[tazamorte]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim strmsg as string
strmsg = "Vous devez créer les feuilles de " & nb_reference_non_trouve & " Composants manquants" & " et puis du texte " & unevariable & " du texte"
msgbox strmsg

[ouskel'n'or]

Fais sur Msgbox, tu ne nous dis pas si tu as un titre, si tu veux mettre plusieurs boutons, si, si, si... Et F1 te dira tout ce que tu peux vouloir savoir.
Nom de gu ! c'est fait pour les chiens ?

[alex.a]

Merci à tous,

ouskel'n'or désolé pour le manque d'information
l'exemple dans ne donait pas la syntaxe pour du texte après une variable. Par contre pour mettre un bouton ou un titre oui!