Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Enregistrement-Macro

Enregistrement-Macro

4 réponses
Avatar
Paty
Bonjour,

J'aimerai r=E9aliser une macro qui impose un nom, en=20
l'occurence le contenu d'une cellule, =E0 la fermeture.
Malheureusement je ne sais pas comment m'y prendre.
Quelqu'un pourra t il m'aider?

Par avance merci.
Et bonne continuation, vous nous rendez de fiers services.
Paty
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
ChrisV
Bonjour Paty,

Dans la feuille de code de ThisWorkbook,
(en supposant qu'il faille imposer une valeur dans la cellule A1)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[A1] = "MPFE"
End Sub


ChrisV


"Paty" a écrit dans le message de
news: d71001c3ef27$7fcc14f0$
Bonjour,

J'aimerai réaliser une macro qui impose un nom, en
l'occurence le contenu d'une cellule, à la fermeture.
Malheureusement je ne sais pas comment m'y prendre.
Quelqu'un pourra t il m'aider?

Par avance merci.
Et bonne continuation, vous nous rendez de fiers services.
Paty
Avatar
sabatier
je n'ai pas compris comme cela, moi, chris...
paty a un nom dans une cellule et il veut s'en servir pour nommer
quelque chose mais quoi????
à suivre
jps

ChrisV a écrit:
Bonjour Paty,

Dans la feuille de code de ThisWorkbook,
(en supposant qu'il faille imposer une valeur dans la cellule A1)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[A1] = "MPFE"
End Sub


ChrisV


"Paty" a écrit dans le message de
news: d71001c3ef27$7fcc14f0$
Bonjour,

J'aimerai réaliser une macro qui impose un nom, en
l'occurence le contenu d'une cellule, à la fermeture.
Malheureusement je ne sais pas comment m'y prendre.
Quelqu'un pourra t il m'aider?

Par avance merci.
Et bonne continuation, vous nous rendez de fiers services.
Paty




Avatar
ChrisV
Salut JP,

Avec tes indications, et après relecture, je pense que tu as probablement
raison...

quelque chose mais quoi????
Peut être le classeur lui même...


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nomFichier As String
On Error GoTo err
nomFichier = [A1] & ".xls"
ChDrive "C"
ChDir "C:"
Application.ActiveWorkbook.SaveAs (nomFichier)
Exit Sub
err:
MsgBox Error(err)
End Sub


ChrisV


"sabatier" a écrit dans le message de news:

je n'ai pas compris comme cela, moi, chris...
paty a un nom dans une cellule et il veut s'en servir pour nommer
quelque chose mais quoi????
à suivre
jps

ChrisV a écrit:
Bonjour Paty,

Dans la feuille de code de ThisWorkbook,
(en supposant qu'il faille imposer une valeur dans la cellule A1)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[A1] = "MPFE"
End Sub


ChrisV


"Paty" a écrit dans le message de
news: d71001c3ef27$7fcc14f0$
Bonjour,

J'aimerai réaliser une macro qui impose un nom, en
l'occurence le contenu d'une cellule, à la fermeture.
Malheureusement je ne sais pas comment m'y prendre.
Quelqu'un pourra t il m'aider?

Par avance merci.
Et bonne continuation, vous nous rendez de fiers services.
Paty







Avatar
Paty
En effet, il s'agissait bien d'imposer le nom
d'enregistrement du classeur, à partir d'une cellule.

Je suis désolé d'avoir été si vague. Je vous remercie tous
les eux. Je n'ai pas encore essayé la solution mais cela
ne saurait tarder...

Merci,
Et bonne continuation,
Paty

-----Message d'origine-----
Salut JP,

Avec tes indications, et après relecture, je pense que tu
as probablement

raison...

quelque chose mais quoi????
Peut être le classeur lui même...


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nomFichier As String
On Error GoTo err
nomFichier = [A1] & ".xls"
ChDrive "C"
ChDir "C:"
Application.ActiveWorkbook.SaveAs (nomFichier)
Exit Sub
err:
MsgBox Error(err)
End Sub


ChrisV


"sabatier" a écrit dans le
message de news:


je n'ai pas compris comme cela, moi, chris...
paty a un nom dans une cellule et il veut s'en servir
pour nommer


quelque chose mais quoi????
à suivre
jps

ChrisV a écrit:
Bonjour Paty,

Dans la feuille de code de ThisWorkbook,
(en supposant qu'il faille imposer une valeur dans la
cellule A1)




Private Sub Workbook_BeforeClose(Cancel As Boolean)
[A1] = "MPFE"
End Sub


ChrisV


"Paty" a écrit
dans le message de



news: d71001c3ef27$7fcc14f0$
Bonjour,

J'aimerai réaliser une macro qui impose un nom, en
l'occurence le contenu d'une cellule, à la fermeture.
Malheureusement je ne sais pas comment m'y prendre.
Quelqu'un pourra t il m'aider?

Par avance merci.
Et bonne continuation, vous nous rendez de fiers
services.



Paty







.