Merci Pascal pour ton aide de plusieurs jours !
Hier au soir, je suis presque arrivée à mon résultat !
Je vous montre ce que j'ai fait :
1-Dans un module standard :
Public NomdeFichier
Sub EnregistreAvecNom()
NomdeFichier = Application.GetSaveAsFilename([qualite], , , "NomdeFichier")
If NomdeFichier = False Then Exit Sub
Application.EnableEvents = False
ThisWorkbook.SaveAs NomdeFichier
Application.EnableEvents = True
End Sub
2-Dans Thiworkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
NomdeFichier = Application.GetSaveAsFilename([qualite], "Classeur Microsoft
Office Excel (*.xls), *.xls,Modèle (*.xlt), *.xlt", , "Nom de Fichier ")
If NomdeFichier = False Then
Cancel = True
Else
Application.EnableEvents = False
ThisWorkbook.SaveAs NomdeFichier: End If
Application.EnableEvents = True
End Sub
Cela me permet de fermer mon document Excel de 3 manières différentes :
*en faisant "Fichier/Enregistrer sous"
*en cliquant sur "x" du fichier
*en cliquant sur "x" du logiciel Excel
Pour ces 3 choix, il me prend le contenu d'une cellule du fichier et me
propose soit d'enregistrer mon document en .xls ou en .xlt
Par contre, quand je fais "Fichier/Enregistrer sous" et que j'enregistre, il
m'ouvre automatiquement une 2ème fenêtre avec le même contenu que la
précédente (même lieu d'enregistrement, même type de fichier, même nom
d'enregistrement).
Qu'un a-t-il une idée d'où cela pourrait venir ?
Par contre Pascal, c'est fini la 2ème fenêtre lorsque je fais annuler.
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
papou
Bonjour chrislio Il y a des choses que tu as oublié il me semble ? Pour être sûr : Va ici : http://cjoint.com/ Tu créés le lien vers ton fichier puis tu me renvoies ce nouveau lien en répondant à ce message. Je tâcherai de regarder mais peut-être pas aujourd'hui. Cordialement Pascal
"chrislio" a écrit dans le message de news:
Merci Pascal pour ton aide de plusieurs jours ! Hier au soir, je suis presque arrivée à mon résultat ! Je vous montre ce que j'ai fait :
1-Dans un module standard : Public NomdeFichier Sub EnregistreAvecNom() NomdeFichier = Application.GetSaveAsFilename([qualite], , , "NomdeFichier") If NomdeFichier = False Then Exit Sub Application.EnableEvents = False ThisWorkbook.SaveAs NomdeFichier Application.EnableEvents = True End Sub
2-Dans Thiworkbook : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) NomdeFichier = Application.GetSaveAsFilename([qualite], "Classeur Microsoft Office Excel (*.xls), *.xls,Modèle (*.xlt), *.xlt", , "Nom de Fichier ") If NomdeFichier = False Then Cancel = True Else Application.EnableEvents = False ThisWorkbook.SaveAs NomdeFichier: End If Application.EnableEvents = True End Sub
Cela me permet de fermer mon document Excel de 3 manières différentes : *en faisant "Fichier/Enregistrer sous" *en cliquant sur "x" du fichier *en cliquant sur "x" du logiciel Excel
Pour ces 3 choix, il me prend le contenu d'une cellule du fichier et me propose soit d'enregistrer mon document en .xls ou en .xlt
Par contre, quand je fais "Fichier/Enregistrer sous" et que j'enregistre, il m'ouvre automatiquement une 2ème fenêtre avec le même contenu que la précédente (même lieu d'enregistrement, même type de fichier, même nom d'enregistrement).
Qu'un a-t-il une idée d'où cela pourrait venir ?
Par contre Pascal, c'est fini la 2ème fenêtre lorsque je fais annuler.
Cdlt, Christel
Bonjour chrislio
Il y a des choses que tu as oublié il me semble ?
Pour être sûr :
Va ici :
http://cjoint.com/
Tu créés le lien vers ton fichier puis tu me renvoies ce nouveau lien en
répondant à ce message.
Je tâcherai de regarder mais peut-être pas aujourd'hui.
Cordialement
Pascal
"chrislio" <chrislio@discussions.microsoft.com> a écrit dans le message de
news: 6148E103-754A-4E81-BD71-DA7F367FA13D@microsoft.com...
Merci Pascal pour ton aide de plusieurs jours !
Hier au soir, je suis presque arrivée à mon résultat !
Je vous montre ce que j'ai fait :
1-Dans un module standard :
Public NomdeFichier
Sub EnregistreAvecNom()
NomdeFichier = Application.GetSaveAsFilename([qualite], , ,
"NomdeFichier")
If NomdeFichier = False Then Exit Sub
Application.EnableEvents = False
ThisWorkbook.SaveAs NomdeFichier
Application.EnableEvents = True
End Sub
2-Dans Thiworkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
NomdeFichier = Application.GetSaveAsFilename([qualite], "Classeur
Microsoft
Office Excel (*.xls), *.xls,Modèle (*.xlt), *.xlt", , "Nom de Fichier ")
If NomdeFichier = False Then
Cancel = True
Else
Application.EnableEvents = False
ThisWorkbook.SaveAs NomdeFichier: End If
Application.EnableEvents = True
End Sub
Cela me permet de fermer mon document Excel de 3 manières différentes :
*en faisant "Fichier/Enregistrer sous"
*en cliquant sur "x" du fichier
*en cliquant sur "x" du logiciel Excel
Pour ces 3 choix, il me prend le contenu d'une cellule du fichier et me
propose soit d'enregistrer mon document en .xls ou en .xlt
Par contre, quand je fais "Fichier/Enregistrer sous" et que j'enregistre,
il
m'ouvre automatiquement une 2ème fenêtre avec le même contenu que la
précédente (même lieu d'enregistrement, même type de fichier, même nom
d'enregistrement).
Qu'un a-t-il une idée d'où cela pourrait venir ?
Par contre Pascal, c'est fini la 2ème fenêtre lorsque je fais annuler.
Bonjour chrislio Il y a des choses que tu as oublié il me semble ? Pour être sûr : Va ici : http://cjoint.com/ Tu créés le lien vers ton fichier puis tu me renvoies ce nouveau lien en répondant à ce message. Je tâcherai de regarder mais peut-être pas aujourd'hui. Cordialement Pascal
"chrislio" a écrit dans le message de news:
Merci Pascal pour ton aide de plusieurs jours ! Hier au soir, je suis presque arrivée à mon résultat ! Je vous montre ce que j'ai fait :
1-Dans un module standard : Public NomdeFichier Sub EnregistreAvecNom() NomdeFichier = Application.GetSaveAsFilename([qualite], , , "NomdeFichier") If NomdeFichier = False Then Exit Sub Application.EnableEvents = False ThisWorkbook.SaveAs NomdeFichier Application.EnableEvents = True End Sub
2-Dans Thiworkbook : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) NomdeFichier = Application.GetSaveAsFilename([qualite], "Classeur Microsoft Office Excel (*.xls), *.xls,Modèle (*.xlt), *.xlt", , "Nom de Fichier ") If NomdeFichier = False Then Cancel = True Else Application.EnableEvents = False ThisWorkbook.SaveAs NomdeFichier: End If Application.EnableEvents = True End Sub
Cela me permet de fermer mon document Excel de 3 manières différentes : *en faisant "Fichier/Enregistrer sous" *en cliquant sur "x" du fichier *en cliquant sur "x" du logiciel Excel
Pour ces 3 choix, il me prend le contenu d'une cellule du fichier et me propose soit d'enregistrer mon document en .xls ou en .xlt
Par contre, quand je fais "Fichier/Enregistrer sous" et que j'enregistre, il m'ouvre automatiquement une 2ème fenêtre avec le même contenu que la précédente (même lieu d'enregistrement, même type de fichier, même nom d'enregistrement).
Qu'un a-t-il une idée d'où cela pourrait venir ?
Par contre Pascal, c'est fini la 2ème fenêtre lorsque je fais annuler.
