Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Enregistrer en VBA une feuille de calcul dans un nouveau classeur

3 réponses
Avatar
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

3 réponses

Avatar
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
Avatar
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


Avatar
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