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 Nom d'un nouveau classeur......

Nom d'un nouveau classeur......

4 réponses
Avatar
Stéphan DuQuébec
On me dit que j'essaie d'affecter la propriété Name en lecture seule et que
c'est impossible......comment changer le nom d'un nouveau classeur (très
temporaire) sans l'enregistrer ? Ce qui suit ne fonctionne pas.....
..............................
Workbooks.Add: ActiveSheet.Paste
ActiveWorkbook.Name = ("Formulaire ") & UserForm11.Label17
........................

Merci !
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
MichDenis
N'oublie pas que le vrai nom du formulaire sera effectif
au moment de l'enregistrement seulement.

With ActiveWorkbook
ActiveWindow.Caption = ("Formulaire ") & UserForm11.Label17
End With



"Stéphan DuQuébec" a écrit dans le message de news:

On me dit que j'essaie d'affecter la propriété Name en lecture seule et que
c'est impossible......comment changer le nom d'un nouveau classeur (très
temporaire) sans l'enregistrer ? Ce qui suit ne fonctionne pas.....
..............................
Workbooks.Add: ActiveSheet.Paste
ActiveWorkbook.Name = ("Formulaire ") & UserForm11.Label17
........................

Merci !
Avatar
Stéphan DuQuébec
Bonjour MichDenis,
Malheureusement pour moi, votre proposition n'a pas fonctionné dans ce code:
............................
Workbooks.Add: ActiveSheet.Paste
With ActiveWorkbook
ActiveWindow.Caption = ("Formulaire ") & UserForm11.Label17
End With
Application.EnableEvents = False
Application.DisplayAlerts = False
ActiveWorkbook.SendMail (""), "COURRIEL INFO", True
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.EnableEvents = True
...........................................................
Le fichier est bel et bien transmis mais il porte toujours le nom de
Classeur1 à la transmission et non celui du .caption.
Une secnode idée vous viendrait à l'esprit ?
Merci.
Avatar
MichDenis
Rien ne t'empêche d'enregistrer réellement ton fichier et le supprimer à la fin de la procédure


............................
Workbooks.Add: ActiveSheet.Paste
With ActiveWorkbook
.saveas thisWorkbook.path & "" & ("Formulaire ") & UserForm11.Label17 & ".xls"
End With
Application.EnableEvents = False
Application.DisplayAlerts = False
ActiveWorkbook.SendMail (""), "COURRIEL INFO", True
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.EnableEvents = True

ThisWorkbook.close False
Kill thisWorkbook.path & "" & ("Formulaire ") & UserForm11.Label17


"Stéphan DuQuébec" a écrit dans le message de news:

Bonjour MichDenis,
Malheureusement pour moi, votre proposition n'a pas fonctionné dans ce code:
............................
Workbooks.Add: ActiveSheet.Paste
With ActiveWorkbook
ActiveWindow.Caption = ("Formulaire ") & UserForm11.Label17
End With
Application.EnableEvents = False
Application.DisplayAlerts = False
ActiveWorkbook.SendMail (""), "COURRIEL INFO", True
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.EnableEvents = True
...........................................................
Le fichier est bel et bien transmis mais il porte toujours le nom de
Classeur1 à la transmission et non celui du .caption.
Une secnode idée vous viendrait à l'esprit ?
Merci.
Avatar
Stéphan DuQuébec
Bonjour MichDenis,
Le Kill ne semble pas vouloir embarquer à la fin mais je tenterai de
l'incorporer correctement dans ma procédure cmoplète.

Merci beaucoup !