ouverture fenêtre "Enregistrer sous"

[Bradvid]

Bonjour,

Est il possible d'ouvrir via un bouton la fenêtre "Enregistrer sous"?

Merci beaucoup.

 

[pierrejean]

Re : ouverture fenêtre "Enregistrer sous"

bonjour Bradvid

vois si cela te convient

 

[Bradvid]

Re : ouverture fenêtre "Enregistrer sous"

bonjour Bradvid

vois si cela te convient

Bonjour PierreJean,

Super! c'est tou ce dont j'avais besoin.

Merci beaucoup pour ton aide!

 

[Bradvid]

Re : ouverture fenêtre "Enregistrer sous"

Bonjour PierreJean,

Super! c'est tou ce dont j'avais besoin.

Merci beaucoup pour ton aide!

PierreJean,

Une autre petite question,

Je voudrais également, lors de "l'enregistrement sous" faire une copie valeur de toute les informations qui sont dans le fichier, est ce possible?

Merci d'avance pour ton retour.

 

[pierrejean]

Re : ouverture fenêtre "Enregistrer sous"

re

teste ceci

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each sht In Sheets
  sht.Select
  Cells.Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlValues
Next sht
End Sub

 

[Bradvid]

Re : ouverture fenêtre "Enregistrer sous"

A quoi correspond "sht" dans ton code?

 

[Pierrot93]

Re : ouverture fenêtre "Enregistrer sous"

Bonsoir BravDavid, PierreJean

"sht" est une variable, postionnes toi sur le mot "EACH" et fais F1 pour avoir l'aide VBA, cela te donnera les renseignements voulus.

bonne soirée
@+

Edition on aurait pu déclarer cette variable comme ci dessous :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sht As Worksheet
For Each sht In Sheets

 

[Bradvid]

Re : ouverture fenêtre "Enregistrer sous"

Pierrot, Pierrejean,

Ce serait pas possible de faire cette copie valeur vie mon bouton enregistrer sous?

 

[pierrejean]

Re : ouverture fenêtre "Enregistrer sous"

re

il suffit de demander

 

[Bradvid]

Re : ouverture fenêtre "Enregistrer sous"

Le code fonctionne mais en fait je voudrais uniquement faire une copie valeur d'une cellule sur 2 feuilles sur un total de 3.
est-ce faisable?

Les feuilles concernnées sont nommées "NDF Standard" et "NDF Stymisme", la première page étant le menu sur lequel des utilisateurs actionnent des boutons.

Merci pour ton aide.

 

[pierrejean]

Re : ouverture fenêtre "Enregistrer sous"

re

ma boule de cristal etant en revision a l'heure actuelle , je ne peux te repondre
en effet le marc de café refuse obstinement de me dire quelles sont les cellules a recopier en valeur
quant a la thélépathie elle est victime d'une inexplicable panne de reseau ADSL
pour te repondre j'ais fait fait l'effort de creer un fichier, de tester une macro puis une seconde
peux-tu à ton tour faire l'effort d'enoncer completement ton probleme (si possible avec un fichier exemple dénué de données confidentielles)

 

[Bradvid]

Re : ouverture fenêtre "Enregistrer sous"

Désolé PierreJean de ne pas avoir été assez clair dans ma demande...

Tu trouveras en pièce joint mon fichier.

Les cellules que je veux copier en valeur sont H17 sur la feuille "NDF Standard" et la cellule "H19" sur la feuille NDF Stylisme.

Pour la petite histoire, ces cellules ont pour première fonction de générer un numéro incrémental à chaque fois que l'utilisateur clique sur le bouton de la catégorie de la Note de Frais.

Le but de la manoeuvre est de figer ce numéro quand l'utilisateur fera une copie de ce formulaire sur son disque.

La macro du bouton enregistrer sous se trouve dans le module2 (macro4)

encore merci pour ta patience.

 

[pierrejean]

Re : ouverture fenêtre "Enregistrer sous"

bonjour Bradvid

vois si cela te convient

 

[Bradvid]

Re : ouverture fenêtre "Enregistrer sous"

Bonjour PierreJean,

C'est parfait! Merci pour tout.
Bonne journée.