Bonjour tout le monde,
Je ne sais pas si ce post sera pertiment (c'est mon premier ^^).
Donc tout d'abord je vais expliquer mon projet.
J'ai réalisé une espéce d'interface( feuil 1 de mon classeur) sous excel qui permet de gérer plusieur domaine, elle est uniquement composée de Userform et de CheckBox (serve à masquer ou à afficher plusieurs lignes regroupés en catégorie dans la feuil2) .
Une fois les différents choix coché etc... on à notre feuil2 final avec les différents choix que nous désirons, c'est la que je bute je m'explique:
Je souhaiterais générer un autre classeur avec ces informations ( feuil2 Final ) soit:
-Ecrire le titre du classeur que je vais générer dans le premier
-La date etc....
Sa fait quelque temps que j'essaye de trouver une solution, j'ai réussi à pondre quelque ligne mais je bloque
j'ai essayé de trouver quelque chose sur différents forum mais en vain, HUUMMMMM qui sait ....
C'est pour cela que je crit a L'AIIIDEEEEEEE s'il vous plait un peu d'aide
PS: vous trouverais ci-joint des petit bout de mon programme en VBA
Pour le titre etc.. j'ai pensé a ce code la :
' Creation du nom de fichier
Nom_fichier = Worksheets("Extract").Range("M16").Value
Date_sel = Worksheets("Extract").Range("M21").Value
projet = Worksheets("Extract").Range("M18").Value
If Nom_fichier = "" Then
If projet = "" Then
Nom_fichier = "err"
Else:
tmp = Format(Date_sel, "yyyymmdd")
Nom_fichier = "Checklist revues conception produit & process - "
End If
Pour la génération du nouveau classeur :
' Début creation du fichier
If (Nom_fichier <> "err") Then
Message = MsgBox("Voulez vous créer le fichier '" & Nom_fichier & "' ?", vbYesNo)
If (Message = vbYes) Then
Sheets("Sommaire").Range("B15").Value = "Checklist revues conception produit & process - " & Chr(10) & Organe_sel & " " & projet
liste_wk(2) = "Sommaire"
liste_wk(1) = "Checklist"
liste_wk(0) = "Synthèse des points ouverts"
ThisWorkbook.Worksheets(liste_wk).Copy
ActiveWorkbook.SaveAs Nom_fichier & ".xls" ' Creation du nouveau fichier
Voila pour mon petit roman j'éspere au moin n'avoir pas étais flou dans mes explications et je vous remerci tous d'avace même si je n'ai pas de reponse d'avoir prit le temps d'avoir lu mon post.
Une petite photo de l'interface que j'ai réalisé :
Je ne sais pas si ce post sera pertiment (c'est mon premier ^^).
Donc tout d'abord je vais expliquer mon projet.
J'ai réalisé une espéce d'interface( feuil 1 de mon classeur) sous excel qui permet de gérer plusieur domaine, elle est uniquement composée de Userform et de CheckBox (serve à masquer ou à afficher plusieurs lignes regroupés en catégorie dans la feuil2) .
Une fois les différents choix coché etc... on à notre feuil2 final avec les différents choix que nous désirons, c'est la que je bute je m'explique:
Je souhaiterais générer un autre classeur avec ces informations ( feuil2 Final ) soit:
-Ecrire le titre du classeur que je vais générer dans le premier
-La date etc....
Sa fait quelque temps que j'essaye de trouver une solution, j'ai réussi à pondre quelque ligne mais je bloque
j'ai essayé de trouver quelque chose sur différents forum mais en vain, HUUMMMMM qui sait ....
C'est pour cela que je crit a L'AIIIDEEEEEEE s'il vous plait un peu d'aide
PS: vous trouverais ci-joint des petit bout de mon programme en VBA
Pour le titre etc.. j'ai pensé a ce code la :
' Creation du nom de fichier
Nom_fichier = Worksheets("Extract").Range("M16").Value
Date_sel = Worksheets("Extract").Range("M21").Value
projet = Worksheets("Extract").Range("M18").Value
If Nom_fichier = "" Then
If projet = "" Then
Nom_fichier = "err"
Else:
tmp = Format(Date_sel, "yyyymmdd")
Nom_fichier = "Checklist revues conception produit & process - "
End If
Pour la génération du nouveau classeur :
' Début creation du fichier
If (Nom_fichier <> "err") Then
Message = MsgBox("Voulez vous créer le fichier '" & Nom_fichier & "' ?", vbYesNo)
If (Message = vbYes) Then
Sheets("Sommaire").Range("B15").Value = "Checklist revues conception produit & process - " & Chr(10) & Organe_sel & " " & projet
liste_wk(2) = "Sommaire"
liste_wk(1) = "Checklist"
liste_wk(0) = "Synthèse des points ouverts"
ThisWorkbook.Worksheets(liste_wk).Copy
ActiveWorkbook.SaveAs Nom_fichier & ".xls" ' Creation du nouveau fichier
Voila pour mon petit roman j'éspere au moin n'avoir pas étais flou dans mes explications et je vous remerci tous d'avace même si je n'ai pas de reponse d'avoir prit le temps d'avoir lu mon post.
Une petite photo de l'interface que j'ai réalisé :