Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Créa Code creation classeur a partir d'un fichier source et d'un fichier modele

  • Initiateur de la discussion Initiateur de la discussion PEX
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PEX

XLDnaute Occasionnel
Bonjour a tous,

je m'en remets a votre experience sur ce coups si.
je vous explique la demarche que j'aimerai coder :

Je voudrais generer automatiquement un nouveau classeur ayant un modele de mise en page en fonction du produits choisi.
Au prealable l'utilisateur choisira son produit sur le fichier source( fonction recherche par Combobox ( sa je gere) ) ensuite on aura
- ouverture du fichier modele ( on enregistrera pa dessus, il sert seulement de fichier modele de mise en forme )
- importation des donnees a des endroits localisé sur le fichier modele
- enregistrement du fichier en utilisant une reference des donnees " nom du produt " dans un endroit specifique, et en creant un nouveau classseur.

voila j'ai essayer mais je n'y arrive pas !
Pouvez m'aiguiller ou m'orienter un peu avec un fichier que j'adapterai ...

Cordialement

Pex
 
Re : Créa Code creation classeur a partir d'un fichier source et d'un fichier modele

Bonjour,

pour créer un nouveau classeur sur le modèle d'un classeur déjà existant :
Code:
Workbooks.Add "C:\MesDocs\Excel\test.xls"
bonne journée
@+
 
Re : Créa Code creation classeur a partir d'un fichier source et d'un fichier modele

disons que je cherche a monter un code complet !
je ne suis pas encore familiarisé avec ce domaine au niveau des macros ...
mais merci quand meme je vous tiens au courant de l'évolution des choses !
pour l'instant la recherche par combobox a été faite :

Code:
Private Sub UserForm_Initialize()

Dim lf As Long
Sheets("Primaire").Select
lf = Range("A65536").End(xlUp).Row
ComboBox1.Clear

For Each cel In Range("A2:A" & lf)

If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel

    End Sub
Private Sub quit_Click()
Unload Me
End Sub

Cordialement

Pex

ps : personne a un fichier pour m'inspirer ? 😕
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…