Créer bouton AActive X macro Enregistrer sous une feuillet de mon classeur. Fermé

Question

Bonjour à tous

J ai crée une sorte d'éditeur de factures, de contrats, de devis pour ma société.
En remplissant les données sur mon feuillet 1, les contrats, les devis, les factures sont automatiquement remplis.

J ai réussi sur mon feuillet 1 (qui est donc mon éditeur) à créer des boutons pour imprimer les différents documents se trouvant dans des feuillets différents.

J ai donc crée 3 boutons.
Un qui me permet d'imprimer en pdf mon feuillet 2 nommé "CONTRAT"
Un qui me permet d'imprimer en pdf mon feuillet 3 nommé "FACTURE"
Un qui me permet d'imprimer en pdf mon feuillet 4 nommé "DEVIS"

Jusqu'à là tout allaient pour le mieux dans le meilleur des mondes.

Mais voilà, je voudrais à présent créer le même style de bouton qui me permette d'enregistrer au format excel.
En gros un bouton qui, lorsque je clique dessus me permette d'ouvrir une boite de dialogue me proposant la destination d'enregistrement de mon fichier.
(cet éditeur sera partagé avec des collègues qui n'ont pas tous le même dossier de destination. D'où le fait de laisser le choix).
A noter aussi que je souhaiterais que mon fichier prenne le nom indiqué dans une cellule.

Si quelqu'un sait faire ce genre de chose merci de m'indiquer le code adequat.

Je précise que j'ai découvert les macros il y a 3 jours alors ne soyez pas trop violent avec moi. 

A bientôt

Le Pingou · Answer

Bonjour,
Vous avez donc un classeur avec combien de feuilles ?
Qu'elles feuilles voulez-vous enregistrer et ou se trouve le classeur contenant les enregistrements?

Grosnoob31 · Answer

Bonjour

J ai donc 4 feuilles.
1 avec l éditeur, 1 avec le contrat, 1 avec la facture et 1 avec le devis.

Sur la feuille de l'éditeur, je veux place 3 boutons.
1 qui me permet "d'enregistrer sous" au format excel le contrat
1 qui me permet "d'enregistrer sous" au format excel la facture
1 qui me permet "d'enregistrer sous" au format excel le devis

Je ne veux pas enregistrer les 3 en même temps.

Je veux qu'une boite de dialogue s'ouvre et me laisse le choix de l'emplacement sur mon disque dur.

Et aussi je veux que le fichier excel enregistré prennent le nom mentionné dans une cellule.

Je sais pas si j ai répondu à vos questions.
En tout cas merci de l intérêt que vous portez à mon problème.

Grosnoob31 · Answer

Peut être en complément pour mieux comprendre mon probleme : 
Voici le code que j ai rentré et qui fonctionne à merveille. Il me permet d''imprimer directement mon feuillet (ici mon feuillet "contrat") en PDF.

Private Sub CommandButton1_Click()

Sheets("CONTRAT").Select
    Dim nom As String
nom = Range("B69")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
        
End Sub

Je souhaiterais le même code mais qui ouvre une boite de dialogue me permettant d'enregistrer au format d'Excel.

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Option Explicit
Sub Save()
Dim nom As String
nom = Range("B69")
ActiveSheet.Copy
  Application.Dialogs(xlDialogSaveAs).Show nom
  ActiveWorkbook.Close
End Sub

Grosnoob31 · Answer

Bonjour
Et merci Le Pivert

Le code fonctionne et c'est ce que je recherche à quelques détails près.
- Il se lance bien quand je le teste (F5) mais pas quand j'appuie sur le bouton.
- Il me propose de sauvegarder le feuillet principal alors que je voudrais enregistrer les trois autres feuillets à partir du premier. (1 bouton pour feuillet 2, 1 bouton pour feuillet 3 et 1 bouton pour feuillet 4)
- Je voudrais enregistrer au format Excel (prenant en charge les macro)
- Enfin le feuillet qu'on me propose d enregistrer, une fois enregistré s'ouvre en plus de mon classeur alors que je ne voudrait pas l'ouvrir.

En tout cas merci.
Si vous avez la solution pour compléter le code, je suis preneur.

Le Pingou · Answer

Bonjour,
Alors c'est quoi qui ne convient pas avec la proposition de Le Pivert (salutations)...!

Vous dite : Je ne veux pas enregistrer les 3 en même temps.
Donc chaque feuille et enregistrée séparément... 
La première est dans un classeur... que faites- vous pour la deuxième respectivement la troisième…. Vont-elles dans le même classeur que la première ou faut-il chaque fois un nouveau classeur ?

Grosnoob31 · Answer

Ce qui ne fonctionne pas, c'est ce que j'ai décris dans mon précédent message.

- Il se lance bien quand je le teste (F5) mais pas quand j'appuie sur le bouton.
- Il me propose de sauvegarder le feuillet principal alors que je voudrais enregistrer les trois autres feuillets à partir du premier. (1 bouton pour feuillet 2, 1 bouton pour feuillet 3 et 1 bouton pour feuillet 4)
- Je voudrais enregistrer au format Excel (prenant en charge les macro) alors qu'il me propose de l'enregistrer au formet classique
- Enfin le feuillet qu'on me propose d enregistrer, une fois enregistré s'ouvre en plus de mon classeur alors que je ne voudrait pas l'ouvrir.

Le Pingou · Answer

Bonjour,
Eh bien voici un exemple: https://www.cjoint.com/c/KIiogIRHwmn

Le Pingou · Answer

Bonjour,
C'est une autre manière de faire, en l'occurrence je reprends le premier code de Le Pivert , légèrement modifier(salutations) et je lui ajoute un argument (pour nom de la feuille) et vous avez les 3 codes de départ pour chacun des boutons

Grosnoob31 · Answer

ok
merci, je commence a y voir plus clair mais bon je débute, la route est encore longue.

Grosnoob31 · Answer

Salut

Je reviens vers vous car je souhaiterais créer un bouton pour enregistrer non pas un feuillet spécifique mais l'ensemble de mon classeur au format excel avec les macro.

J'ai ce code pour enregistrer uniquement le feuillet "CONTRAT"
 Private Sub CommandButton2_Click()Dim nom As String Sheets("CONTRAT").Selectnom = Range("B26")ActiveSheet.Copy  Application.Dialogs(xlDialogSaveAs).Show nom, 52 '  ActiveWorkbook.CloseSheets("EDITEUR").SelectEnd Sub


J'imagine qu'il faut changer "CONTRAT" pour mentionner que je veux que cela s'applique non pas au feuillet contrat mais à l'ensemble du classeur.

Une idée ?

Grosnoob31 · Answer

Bonjour et merci pour ta réponse.

En effet, j'avais vu cette faq mais ça ne fonctionne pas chez moi. Je ne comprends pas vraiment pourquoi.

C'est pour ça que je me demandais si ce n'étais pas possible d'adapter les codes que tu m'avais conseillés.

Grosnoob31 · Answer

Merci !

C'est parfait

Grosnoob31 · Answer

Bonjour tout le monde,

J'ai un petit souci avec le code pour enregistrer mon feuillet en PDF.
Le code fourni ici même par cs_Le Pivert marche parfaitement (encore merci). Je clique et le document apparait en PDF.
Le problème est que lorsque je fais "enregistrer sous" il enregistre le documents dans le premier dossier qui s'ouvre. Par exemple "mes documents". Or mon problème et que je voudrais choisir un autre dossier. Du coup il m'arrive ne me retrouver avec des fichiers enregistrés à des endroits improbables. 
Je ne peux pas spécifier le dossier cible dans le code car ce fichier excel est utilisé par d autres personnes qui n'ont pas le même système de classement sur leur ordi.

Ce qui m'étonne c'est que j'ai pas l'impression qu'il y ait une commande "save as" dans le code fourni. Mais je ne m'y connais vraiment pas.

Si quelqu'un a une idée, je suis preneur.

Bonnes fêtes à tous !

Le code en question ci dessous :



Private Sub CommandButton10_Click()Sheets("SOLDE").Select    Dim nom As Stringnom = Range("F109")ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfterPublish:=TrueSheets("EDITEUR").SelectEnd Sub

Grosnoob31 · Answer

Bonjour,
Merci pour ta réponse.

Désolé pour mon temps de réaction mais j essayais de trouver la solution par moi même. Mais bon, je n'y arrive pas. 

En fait la commande dont tu fais référence correspond à l'enregistrement du ficher excel.

En fait mon souci vient du fait que lorsque je clique sur le bouton pour enregistrer mon document au format pdf : 
le document s'affiche en pdf ( jusque là pas de problème)
Mais lorsque je fais "fichier" puis "enregistrer sous" le document s'enregistre directement dans le premier dossier proposé sans que je valide.

Exemple : 
"Fichier" --> "enregistrer sous" la fenêtre de l'explorateur windows s'ouvre et par défaut il me propose de l'enregistrer sous le bureau. Avant même que je valide le document se retrouve enregistré sur le bureau.
Or, je souhaiterais l'enregistrer par exemple dans "mes documents". Du coup, je vais l'enregistrer dans "mes documents". Il s'enregistre bien dans "mes documents" mais il se retrouve également enregistré sur "le bureau"
Du coup, je me retrouve avec des fichiers enregistrés un peu partout.

Peut être que le problème vient de la mention "save as" dans la commande ci dessus.
Peut être qu'il faut une commande qui affiche juste le pdf et moi par la suite je vais l'enregistrer manuellement.

A bientôt

Grosnoob31 · Answer

Re,

J ai regardé et non, il n' y a pas de macro dans ThisWorkbook.

Bonne année et meilleurs vœux également

Grosnoob31 · Answer

Re,

Ça ne correspond pas vraiment à mon problème car cette article montre comment créer un chemin par défaut pour enregistrer dans un dossier spécifique.

Or, comme l'outil que je suis en train de créer va être collaboratif, mes collègues ne vont pas tous sauvegarder les fichiers dans le même dossier.

C'est pourquoi je voulais que chacun puisse choisir le dossier dans le lequel il veut sauvegarder.


En fait, d'après ce que j'ai pu comprendre et que je viens de réaliser..
En appliquant ce code :

Private Sub CommandButton14_Click()Sheets("SOLDE").SelectDim nom As Stringnom = Range("F109")Application.Dialogs(xlDialogSaveAs).Show nom, 57ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfterPublish:=TrueSheets("EDITEUR").SelectEnd Sub

La fenêtre (boite de dialogue) "enregistrer sous" s'ouvre sans prévisualisation du PDF et là pour le coup pas d'enregistrement automatique c'est bien moi qui choisis l'emplacement. Une fois que je valide ouverture du PDF.
Seul soucis (mais pas très grave), je ne peux pas visualiser le PDF avant enregistrement.

En appliquant le code suivant :

Private Sub CommandButton10_Click()Sheets("SOLDE").Select    Dim nom As Stringnom = Range("F109")ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfterPublish:=TrueSheets("EDITEUR").SelectEnd Sub

Le PDF s'affiche à l'écran mais en fait, il s'est déjà enregistré tout seul et il passe outre la commande "Application.Dialogs(xlDialogSaveAs).Show nom, 57" puisque qu'on ne lui demande pas contrairement au code du dessus. Du coup, la boîte de dialogue ne s'ouvre pas. Il zappe cette étape et affiche directement le PDF. En fait dans mes autres post, quand je disait qu'il s'enregistrait tout seul quand je fais "enregistrer sous" c'est faux. C'est juste qu'il s'est déjà enregistré et que le pdf s est ouvert.
Le Pivert, je pense que c'était évident pour toi mais ça ne l'était pas du tout pour moi. D'où mon incompréhension totale.


En fait, je pense que ce qu'il me faut pour prévisualiser le pdf avant d'enregistrer c'est un code qui permet de d'imprimer le feuillet en PDF (sans commande de sauvegarde) pour que je puisse, une fois le pdf crée faire moi même la manip "enregistrer sous"...


Le Pivert ne t'arrache pas les cheveux (ou les plumes).

Grosnoob31 · Answer

Encore merci Le Pivert

Cela ne fonctionne pas chez moi.
Par contre c'est déjà le cas avec ce code.

La boite de dialogue s'ouvre, je choisis mon emplacement et une fois validé, le PDF s'ouvre.

Private Sub CommandButton14_Click()Sheets("SOLDE").SelectDim nom As Stringnom = Range("F109")Application.Dialogs(xlDialogSaveAs).Show nom, 57ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _:=False, OpenAfterPublish:=TrueSheets("EDITEUR").SelectEnd Sub

J'aurais voulu que le PDF s'affiche, histoire de voir si tout est ok et après vérification faire l'enregistrement moi même (Fichier / enregistrer sous...). En gros retirer toutes commandes de sauvegarde du code.

Mais bon avec le code ci dessus c'est déjà super au moins je peux choisir l'emplacement.