OVH Cloud OVH Cloud

enregistrer sous un nom et un numéro

2 réponses
Avatar
Peponne31
Bonjour,
Je sollicite encore votre aide,
je voudrais enregistrer mon formulaire sous le nom de la personne et le
numéro de facture. Actuellement il me demande ce nom et je voudrais qu'il le
fasse automatiquement. Cela est-il réalisable ?
Voici la partie du code enregistrement:

'enregistre et ferme la facture (du nouveau claseur)
Application.Dialogs(xlDialogSaveAs).Show "D:\sarl lm construction\factures\"
Wk.Close

Set VbComp = Nothing: Set Wk = Nothing

'Vide le modèle facture et enregistre le classeur
Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select
Selection.ClearContents

ActiveWorkbook.Save

Sheets("menu").Select

le nom se trouve dans la cellule B13 et le numéro de facture sous I2.
Merci encore pour votre aide
Peponne31

2 réponses

Avatar
papou
Bonjour
Si tu veux garder la possibilité à l'utilisateur de valider la fenêtre
enregistrer Sous et en supposant que la feuille active contient les
renseignements du nom et du numéro :
Application.Dialogs(xlDialogSaveAs).Show "C:temp" & [B13] & [I2] & ".xls"
Sinon, en supposant que Wk fait référence au classeur à enregister :
Wk.SaveAs "D:sarl lm constructionfactures" & [B13] & [I2] & ".xls"

Cordialement
Pascal


"Peponne31" a écrit dans le message de
news:
Bonjour,
Je sollicite encore votre aide,
je voudrais enregistrer mon formulaire sous le nom de la personne et le
numéro de facture. Actuellement il me demande ce nom et je voudrais qu'il
le
fasse automatiquement. Cela est-il réalisable ?
Voici la partie du code enregistrement:

'enregistre et ferme la facture (du nouveau claseur)
Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm
constructionfactures"
Wk.Close

Set VbComp = Nothing: Set Wk = Nothing

'Vide le modèle facture et enregistre le classeur
Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select
Selection.ClearContents

ActiveWorkbook.Save

Sheets("menu").Select

le nom se trouve dans la cellule B13 et le numéro de facture sous I2.
Merci encore pour votre aide
Peponne31


Avatar
Peponne31
Re,
Merci papou, je viens de faire un essai et cela fonctionne correctement,
Jai obté pour la seconde version qui est la mieux adapté.
Merci encore.
Peponne31



Bonjour
Si tu veux garder la possibilité à l'utilisateur de valider la fenêtre
enregistrer Sous et en supposant que la feuille active contient les
renseignements du nom et du numéro :
Application.Dialogs(xlDialogSaveAs).Show "C:temp" & [B13] & [I2] & ".xls"
Sinon, en supposant que Wk fait référence au classeur à enregister :
Wk.SaveAs "D:sarl lm constructionfactures" & [B13] & [I2] & ".xls"

Cordialement
Pascal


"Peponne31" a écrit dans le message de
news:
Bonjour,
Je sollicite encore votre aide,
je voudrais enregistrer mon formulaire sous le nom de la personne et le
numéro de facture. Actuellement il me demande ce nom et je voudrais qu'il
le
fasse automatiquement. Cela est-il réalisable ?
Voici la partie du code enregistrement:

'enregistre et ferme la facture (du nouveau claseur)
Application.Dialogs(xlDialogSaveAs).Show "D:sarl lm
constructionfactures"
Wk.Close

Set VbComp = Nothing: Set Wk = Nothing

'Vide le modèle facture et enregistre le classeur
Range("B11:F13,B14:C15,E14:F15,B17:G18,I2,I12,J6,A21:H50,I51").Select
Selection.ClearContents

ActiveWorkbook.Save

Sheets("menu").Select

le nom se trouve dans la cellule B13 et le numéro de facture sous I2.
Merci encore pour votre aide
Peponne31