XL 2010 Enregistrer juste le Feuil2 avec code VBA

[olivier1976]

Bonjour et merci d'avance pour le temps et l'aide que vous pourrez me donner.
Je vous ai mis le fichier excel en copie pour savoir de quoi on parle.
Ce que je désir faire c'est lorsque mon Userform est ouvert et que j'encode les donner, ce qui est encoder en Feuil2 soit automatiquement sauvegarder dans le fichier commande, de sorte que lorsque je l'ai besoin une autre fois cela apparaissent dans ma liste déroulante (Descriptions et Fournisseurs)
Et que ma Feuil1 soit vierge a nouveau.
Si quelqu'un a un code pour cela je l'en remercie d'avance

Olivier

 

[laurent3372]

Bonjour,

Je ne comprends pas comment se remplit la Feuil2. Je ne vois pas de code qui fasse ça.
Faut-il ajouter un bouton "Enregistrer fichier" à la Feuil1 ?

 

[olivier1976]

Bonjour,

Je ne comprends pas comment se remplit la Feuil2. Je ne vois pas de code qui fasse ça.
Faut-il ajouter un bouton "Enregistrer fichier" à la Feuil1 ?

 

[laurent3372]

Ta réponse ?

 

[olivier1976]

 If Recherche("Descriptions", ComboBox3.Text) = 0 Then      'recherche: si Decriptions n'existe pas=0
            Call Insertion_cellule_Plage_Nom("Descriptions", ComboBox3.Text)   'insertion cellule dans plage Decriptions et ecriture nouvelle Decriptions
        End If

c'est le code qui permet de remplir la base de donnée en Feuil2

 

[olivier1976]

il y en a deux, cella recherche dans lee nom attribué à un groupe de cellules

 

[olivier1976]

Ce que j'aimerais, c'est que lorsque l'on clic sur valider ou quitter dans l'userform, cela sauve uniquement la Feuil2. La Feuil1 sera envoyer sous un autre nom après avoir "enregistrer sous" celle-ci.
De sorte que la fois d'après lorsque j'ouvre le fichier, les ajout éventuels soit sauvé.

 

[laurent3372]

 If Recherche("Descriptions", ComboBox3.Text) = 0 Then      'recherche: si Decriptions n'existe pas=0
            Call Insertion_cellule_Plage_Nom("Descriptions", ComboBox3.Text)   'insertion cellule dans plage Decriptions et ecriture nouvelle Decriptions
        End If

c'est le code qui permet de remplir la base de donnée en Feuil2

Le code que tu cites ne remplit pas la Feuil2.
Je re-pose ma question:
Comment se remplit la Feuil2 ?

 

[olivier1976]

Les comboBox3 et 4 me donnent soit les données qui sont sur la Feuil2 soit si les données sont inconnue dans la Feuil2 les y ajoute ( code if recherche fait cette fonction la)
Ouvre mon fichier, clic sur formulaire de commande, entre des données qui ne se trouvent pas dans les menus déroulant et clic sur quitter, tu verra que le tableau en Feuil1 se complète avec tes données et si tu ouvre la feuil2, tu y verra aussi les données d

 

[olivier1976]

Et ces données se retrouve dans le menu déroulant si tu reouvre l'userform

 

[laurent3372]

Si c'est uniquement pour que les listes déroulantes soient sauvées quand il y a des ajouts, pourquoi ne pas sauver le classeur Commande.xlsm avant de le fermer, et ne pas t'embêter à générer des fichiers supplémentaires de sauvegarde de la feuille Feuil2 ?

 

[olivier1976]

Parceque je veux que lorsque j'ouvre le fichier commande, le tableau en Feuil1 doit être vide

 

[laurent3372]

On peut vider le tableau par du code qui se déclenche à l'ouverture du fichier