ouverture fenêtre "Enregistrer sous"

pierrejean

XLDnaute Barbatruc

• 25 Mai 2007

• #2

Re : ouverture fenêtre "Enregistrer sous"

bonjour Bradvid

vois si cela te convient

 

Pièces jointes

• Bradvit.xls

  26.5 KB · Affichages: 100
• Bradvit.xls

  26.5 KB · Affichages: 106
• Bradvit.xls

  26.5 KB · Affichages: 100

Vote positif 0 Vote négatif

B

Bradvid

XLDnaute Occasionnel

• 25 Mai 2007

• #3

Re : ouverture fenêtre "Enregistrer sous"

pierrejean à dit:

bonjour Bradvid

vois si cela te convient

Cliquez pour agrandir...

Bonjour PierreJean,

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

Merci beaucoup pour ton aide!

 

Vote positif 0 Vote négatif

B

Bradvid

XLDnaute Occasionnel

• 25 Mai 2007

• #4

Re : ouverture fenêtre "Enregistrer sous"

Bradvid à dit:

Bonjour PierreJean,

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

Merci beaucoup pour ton aide!

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Mai 2007

• #5

Re : ouverture fenêtre "Enregistrer sous"

re

teste ceci

Code:

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

 

Vote positif 0 Vote négatif

B

Bradvid

XLDnaute Occasionnel

• 25 Mai 2007

• #6

Re : ouverture fenêtre "Enregistrer sous"

A quoi correspond "sht" dans ton code?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2007

• #7

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

Cliquez pour agrandir...

 

Dernière édition: 25 Mai 2007

Vote positif 0 Vote négatif

B

Bradvid

XLDnaute Occasionnel

• 25 Mai 2007

• #8

Re : ouverture fenêtre "Enregistrer sous"

Pierrot, Pierrejean,

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Mai 2007

• #9

Re : ouverture fenêtre "Enregistrer sous"

re

il suffit de demander

 

Pièces jointes

• Bradvit.xls

  27.5 KB · Affichages: 89
• Bradvit.xls

  27.5 KB · Affichages: 85
• Bradvit.xls

  27.5 KB · Affichages: 82

Vote positif 0 Vote négatif

B

Bradvid

XLDnaute Occasionnel

• 25 Mai 2007

• #10

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 25 Mai 2007

• #11

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)

 

Vote positif 0 Vote négatif

B

Bradvid

XLDnaute Occasionnel

• 25 Mai 2007

• #12

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.

 

Pièces jointes

• Formulaire Note de Frais V3.xls

  45.5 KB · Affichages: 87

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Mai 2007

• #13

Re : ouverture fenêtre "Enregistrer sous"

bonjour Bradvid

vois si cela te convient

 

Pièces jointes

• Formulaire_Note_de_Frais_V3.xls

  41.5 KB · Affichages: 67

Vote positif 0 Vote négatif

B

Bradvid

XLDnaute Occasionnel

• 28 Mai 2007

• #14

Re : ouverture fenêtre "Enregistrer sous"

Bonjour PierreJean,

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

 

Vote positif 0 Vote négatif