Enregistrer en VBA une feuille de calcul dans un nouveau classeur
3 réponses
crolegoogle
Bonsoir le groupe,
J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un
nouveau classeur.
et si possible donner =E0 ce classeur la valeur de la cellule H12
pr=E9c=E9de du mot "Devis de".
Merci pour vos r=E9ponses
Cordialement
Crole
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. Le classeur sera enregistré dans le répertoire courant; le nom du classeur est celui de la valeur de H12 de la feuille active :
Sub test() Dim Nom As String Nom = [H12] Sheets("Devis").Copy ActiveWorkbook.SaveAs "Devis de" & Nom End Sub
Cordialement. Daniel a écrit dans le message de news:
Bonsoir le groupe, J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un nouveau classeur. et si possible donner à ce classeur la valeur de la cellule H12 précéde du mot "Devis de". Merci pour vos réponses Cordialement Crole
Bonsoir.
Le classeur sera enregistré dans le répertoire courant; le nom du classeur
est celui de la valeur de H12 de la feuille active :
Sub test()
Dim Nom As String
Nom = [H12]
Sheets("Devis").Copy
ActiveWorkbook.SaveAs "Devis de" & Nom
End Sub
Cordialement.
Daniel
<crolegoogle@skynet.be> a écrit dans le message de news:
5b66cacd-fc2c-472b-9436-65446765b2cf@i12g2000prf.googlegroups.com...
Bonsoir le groupe,
J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un
nouveau classeur.
et si possible donner à ce classeur la valeur de la cellule H12
précéde du mot "Devis de".
Merci pour vos réponses
Cordialement
Crole
Bonsoir. Le classeur sera enregistré dans le répertoire courant; le nom du classeur est celui de la valeur de H12 de la feuille active :
Sub test() Dim Nom As String Nom = [H12] Sheets("Devis").Copy ActiveWorkbook.SaveAs "Devis de" & Nom End Sub
Cordialement. Daniel a écrit dans le message de news:
Bonsoir le groupe, J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un nouveau classeur. et si possible donner à ce classeur la valeur de la cellule H12 précéde du mot "Devis de". Merci pour vos réponses Cordialement Crole
Jac
Bonjour Crole,
voici ce qu'il faut dire au vba pour qu'il fasse ce que tu attends : ' ----------------------------------------------------------------- Sub ENREGISTRE_DANS_LE_MEME_REPERTOIRE() CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _ "Devis de " & [H12].Value & ".xls" End Sub ' -----------------------------------------------------------------
Par contre, je ne suis pas sûr que tu sois sur la bonne voie. A mon humble avis, il vaudrait mieux renvoyer toutes les variables de chaque devis, dans une ligne d'une feuille "ListeDesDevis" afin de pouvoir y accéder pour impression, consultation, comparaison, reprise pour modif ou pour facturation, ..., car en général, "ça" finit souvent de cette façon.
On en reparle quand tu veux.
Jac
Bonsoir le groupe, J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un nouveau classeur. et si possible donner à ce classeur la valeur de la cellule H12 précéde du mot "Devis de". Merci pour vos réponses Cordialement Crole
Bonjour Crole,
voici ce qu'il faut dire au vba pour qu'il fasse ce que tu attends :
' -----------------------------------------------------------------
Sub ENREGISTRE_DANS_LE_MEME_REPERTOIRE()
CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _
"Devis de " & [H12].Value & ".xls"
End Sub
' -----------------------------------------------------------------
Par contre, je ne suis pas sûr que tu sois sur la bonne voie. A mon
humble avis, il vaudrait mieux renvoyer toutes les variables de chaque
devis, dans une ligne d'une feuille "ListeDesDevis" afin de pouvoir y
accéder pour impression, consultation, comparaison, reprise pour modif
ou pour facturation, ..., car en général, "ça" finit souvent de cette
façon.
On en reparle quand tu veux.
Jac
Bonsoir le groupe,
J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un
nouveau classeur.
et si possible donner à ce classeur la valeur de la cellule H12
précéde du mot "Devis de".
Merci pour vos réponses
Cordialement
Crole
voici ce qu'il faut dire au vba pour qu'il fasse ce que tu attends : ' ----------------------------------------------------------------- Sub ENREGISTRE_DANS_LE_MEME_REPERTOIRE() CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _ "Devis de " & [H12].Value & ".xls" End Sub ' -----------------------------------------------------------------
Par contre, je ne suis pas sûr que tu sois sur la bonne voie. A mon humble avis, il vaudrait mieux renvoyer toutes les variables de chaque devis, dans une ligne d'une feuille "ListeDesDevis" afin de pouvoir y accéder pour impression, consultation, comparaison, reprise pour modif ou pour facturation, ..., car en général, "ça" finit souvent de cette façon.
On en reparle quand tu veux.
Jac
Bonsoir le groupe, J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un nouveau classeur. et si possible donner à ce classeur la valeur de la cellule H12 précéde du mot "Devis de". Merci pour vos réponses Cordialement Crole
crolegoogle
On 24 mar, 23:23, Jac wrote:
Bonjour Crole,
voici ce qu'il faut dire au vba pour qu'il fasse ce que tu attends : ' ----------------------------------------------------------------- Sub ENREGISTRE_DANS_LE_MEME_REPERTOIRE() CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _ "Devis de " & [H12].Value & ".xls" End Sub ' -----------------------------------------------------------------
Par contre, je ne suis pas sûr que tu sois sur la bonne voie. A mon humble avis, il vaudrait mieux renvoyer toutes les variables de chaque devis, dans une ligne d'une feuille "ListeDesDevis" afin de pouvoir y accéder pour impression, consultation, comparaison, reprise pour modif ou pour facturation, ..., car en général, "ça" finit souvent de cett e façon.
On en reparle quand tu veux.
Jac
Bonsoir le groupe, J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un nouveau classeur. et si possible donner à ce classeur la valeur de la cellule H12 précéde du mot "Devis de". Merci pour vos réponses Cordialement Crole- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour, Excuse pour la réponse tardive Jac, Oui effectivement, je n'y avais pas pensé. Je vais voir comment le mettre en musique. A plus tard sur le groupe Cordialement Crole
On 24 mar, 23:23, Jac <Jsa...@mfra.net> wrote:
Bonjour Crole,
voici ce qu'il faut dire au vba pour qu'il fasse ce que tu attends :
' -----------------------------------------------------------------
Sub ENREGISTRE_DANS_LE_MEME_REPERTOIRE()
CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _
"Devis de " & [H12].Value & ".xls"
End Sub
' -----------------------------------------------------------------
Par contre, je ne suis pas sûr que tu sois sur la bonne voie. A mon
humble avis, il vaudrait mieux renvoyer toutes les variables de chaque
devis, dans une ligne d'une feuille "ListeDesDevis" afin de pouvoir y
accéder pour impression, consultation, comparaison, reprise pour modif
ou pour facturation, ..., car en général, "ça" finit souvent de cett e
façon.
On en reparle quand tu veux.
Jac
Bonsoir le groupe,
J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un
nouveau classeur.
et si possible donner à ce classeur la valeur de la cellule H12
précéde du mot "Devis de".
Merci pour vos réponses
Cordialement
Crole- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Excuse pour la réponse tardive Jac,
Oui effectivement, je n'y avais pas pensé.
Je vais voir comment le mettre en musique.
A plus tard sur le groupe
Cordialement
Crole
voici ce qu'il faut dire au vba pour qu'il fasse ce que tu attends : ' ----------------------------------------------------------------- Sub ENREGISTRE_DANS_LE_MEME_REPERTOIRE() CHEMIN_D_ACCES = ActiveWorkbook.Path & "" ' ou chemin en dur ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=CHEMIN_D_ACCES & _ "Devis de " & [H12].Value & ".xls" End Sub ' -----------------------------------------------------------------
Par contre, je ne suis pas sûr que tu sois sur la bonne voie. A mon humble avis, il vaudrait mieux renvoyer toutes les variables de chaque devis, dans une ligne d'une feuille "ListeDesDevis" afin de pouvoir y accéder pour impression, consultation, comparaison, reprise pour modif ou pour facturation, ..., car en général, "ça" finit souvent de cett e façon.
On en reparle quand tu veux.
Jac
Bonsoir le groupe, J'aimerai en vba (excel 2007) enregistrer une feuille 'Devis' dans un nouveau classeur. et si possible donner à ce classeur la valeur de la cellule H12 précéde du mot "Devis de". Merci pour vos réponses Cordialement Crole- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour, Excuse pour la réponse tardive Jac, Oui effectivement, je n'y avais pas pensé. Je vais voir comment le mettre en musique. A plus tard sur le groupe Cordialement Crole