Renseignement macro créa nouveau fichier

G

Guiv

XLDnaute Occasionnel

• 25 Mars 2009

• #2

Re : Renseignement macro créa nouveau fichier

Bonsoir,
Pourquoi ne pas plutôt créer un modèle.
Tu crées ton document (avec tableau et tout ce que tu veux retrouver dans chaque nouveau fichier) et quand tu l'enregistres tu choisis "Type de fichier": Modèle...Tous les classeurs que tu créeras à partir de ce modèle auront les données que tu as préenregistrées dans le modèle.

Bonne soirée
Guiv

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 25 Mars 2009

• #3

Re : Renseignement macro créa nouveau fichier

Merci de ta rep,

Pas possible car en fait, ce à quoi j'avais pensé, c'est avoir une interface dans laquelle tu définis ton projet (nom, conditionnement (tube, pot...) donc la tu choisirais en liste déroulante, et le format (50,250,400... et en fait, ce que j'aimerais: c'est qu'en remplissant cette interface, tu puisses générer autant de classeur que de formats séléctionnés)

Est ce possible?

Merci

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 26 Mars 2009

• #4

Re : Renseignement macro créa nouveau fichier

personne ne pourrait m'orienter la dessus?

 

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 26 Mars 2009

• #5

Re : Renseignement macro créa nouveau fichier

Re,
En fait je ne comprends pas bien ce que tu veux faire.
Peut-être un petit fichier "exemple" aiderait à préciser le problème.

Cordialement,
Guiv

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 26 Mars 2009

• #6

Re : Renseignement macro créa nouveau fichier

Voici le tableau prédéfini que j'ai.
Actuellement, si ke cree un projet avec 5 formats (200 300 400 750 800ML) je vais devoir creer 5 fiche séparement à chaque fois, j'aimerais donc pouvoir automatiser cela.
J'aimerais creer une interface en me basant sur cette fiche, avec par exemple des listes déroulantes et des boutons.
Une fois les données entrées, en executant une macro, j'aimerais que celle-ci me crée autant de fiches que de formats préalablement définis (ci joint le tableau prédéfini)

 

Pièces jointes

• tableau prédéfini.zip

  3.3 KB · Affichages: 43

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 26 Mars 2009

• #7

Re : Renseignement macro créa nouveau fichier

Re,

5 formats (200 300 400 750 800ML)

Cliquez pour agrandir...

Dans ton tableau, où se trouvent ces "formats"?
Quelles sont les éléments fixes et les éléments qui doivent varier?

Guiv

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 26 Mars 2009

• #8

Re : Renseignement macro créa nouveau fichier

Le format doit etre indiqué dans la cellule remplissage commercial, remplissage réel. Donc si tu as 5 formats, tu dois faire 5 fiches qui vont reprendre les mêmes infos, mais qui ne differeront que par la cellule "remplissage"

Mais ce que j'aimerais avoir tt savoir, c'est s'il est possible de générer des nouveaux classeurs à partir d'une macro avec le tableau et les différentes données déja présentes, tu me comprends?

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 26 Mars 2009

• #9

Re : Renseignement macro créa nouveau fichier

bonjour ironangel,

voici un code qui, à partir du fichier A crée un nouveau classeur B et copie la "Feuil1" de A sur la première feuille de B :

Code:

Sub test()
Dim newWbk As Workbook, curWbk As Workbook
Set curWbk = ThisWorkbook
Set newWbk = Application.Workbooks.Add
curWbk.Sheets("Feuil1").Cells.Copy newWbk.Sheets(1).Range("A1")
End Sub

a+

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 26 Mars 2009

• #10

Re : Renseignement macro créa nouveau fichier

Merci pour cette macro, j'aimerais pouvoir mettre certaines listes déroulantes dans certaines cases, est ce que qqun pourrait me dire comment faire

ex: dans la case "designation composant" j'aimerais avoir une liste (ex: shampooing; apres shampooing; masque...)dans laquelle je puisse séléctionner la désignation.

Comment dois-je faire pour réaliser cela?

Amicalement

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 26 Mars 2009

• #11

Re : Renseignement macro créa nouveau fichier

personne pr m'aider??

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 27 Mars 2009

• #12

Re : Renseignement macro créa nouveau fichier

Hello,

merci mromain, pourrais tu me dire s'il est possible d'associer un nom au classeur directement: du genre reprendre le contenu de la cellule "nom" dans le tableau et de l'associer directement au nouveau classeur en executant la macro

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 27 Mars 2009

• #13

Re : Renseignement macro créa nouveau fichier

ironangel à dit:

Hello,

merci mromain, pourrais tu me dire s'il est possible d'associer un nom au classeur directement: du genre reprendre le contenu de la cellule "nom" dans le tableau et de l'associer directement au nouveau classeur en executant la macro

Cliquez pour agrandir...

bonjour ironangel,

je ne voie pas ce que tu veux dire quand tu parles de la cellule "nom".
si tu veux associer un nom au classeur, il faut l'enregistrer avec un code du genre :

Code:

newWbk.SaveAs curWbk.Path & "\" & [B]"titi.xls"[/B]

à la place de "titi.xls", tu mets la valeur de ta cellule "nom"

a+

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 27 Mars 2009

• #14

Re : Renseignement macro créa nouveau fichier

Merci mromain, j'ai remplacé par range("cellule nom") et ça marche bien
J'aimerais intégrer des listes déroulantes dans certaines cellules, mais je ne sais pas comment faire, pourrais tu me l'indiquer?

Amicalement

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 27 Mars 2009

• #15

Re : Renseignement macro créa nouveau fichier

re ironangel,

voici un bout de code issu de l'enregistreur de macro qui crée une liste de validation sur une cellule avec les valeurs "toto", "titi" et "tata" :

Code:

    With [B]Selection[/B].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=[B]"toto;titi;tata"[/B]
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

il faut remplacer Selection par newWbk.Sheets(1).Range("XX")

et "toto;titi;tata" par tes valeurs propres.

a+

 

Vote positif 0 Vote négatif