XL 2016 sauvegarder classeur exel en vba

Dranreb

XLDnaute Barbatruc

• 14 Février 2020

• #2

Bonjour.
Essayez en mettant devant une instruction Application.DisplayAlert = False
À remettre à True derrière.
Remarque: inutile de repréciser le chemin au Filename si c'est le dossier courant (CurDir), ce qui est le cas après un ChDir. Ou réciproquement, inutile de faire un ChDir préalable si le chemin est précisé au Filename.

 

Dernière édition: 14 Février 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Février 2020

• #3

Bonjour,
Essayez : Workbooks(Nomfichier).Close savechanges:=False
Ce qui évite d'inhiber les events.

"How to suppress Save Changes" prompt when you close a workbook in Excel - Support Microsoft

support.office.com

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Février 2020

• #4

On n'est pas du tout dans ce cas de figure, voyons.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 14 Février 2020

• #5

bonjour rolby bonjour le forum
je vous propose une solution avec compteur
dans la feuille qui déclenche l'impression, j'ai choisi cellule A1 (cibler la votre) qui va incrémenter un compteur
les informations sont récupérées dans les variables
le nom du classeur sera sauvegarder avec un pas de un
cordialement
galougalou

'Sub M_essai()
'Dim compteur As Integer
'Dim chemin As String
'chemin = "C:\transport_Pas\travail_transport"
'compteur = Range("A1").Value

'ActiveWorkbook.SaveAs Filename:=chemin & compteur & ".xlsm", _
'FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'Range("A1").Value = Range("A1").Value + 1
'End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Février 2020

• #6

Ben, là non plus !
Le demandeur veut simplement ne plus avoir à confirmer qu'il veut bien écraser au autre classeur enregistré qui porte déjà le même nom.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 14 Février 2020

• #7

et non dranreb
le nom du classeur n'est jamais identique puisqu’il est incrementé avec un pas de 1
donc il n'y a jamais écrasement
@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Février 2020

• #8

Mais ce n'est pas ce que veut le demandeur.

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 14 Février 2020

• #9

pardon pardon je me suis trompé je n'avais pas vu que le demandeur voulait écraser leclasseur
milles excuses !!!

 

Vote positif 0 Vote négatif

R

rolby

XLDnaute Nouveau

• 14 Février 2020

• #10

Dranreb à dit:

bonjour Dranreb

la ligne "Application.DisplayAlert = False"
génère une erreur : propriete ou methode non geree par cet objet
peut etre que je ne l'ai pas mise au bon endroit de ma macro ?
je l'ai mise en premiere ligne ….

Sub M_essai()
Application.DisplayAlert = False
ChDir "C:\transport_Pas"
ActiveWorkbook.SaveAs Filename:="C:\transport_Pas\travail_transport.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Février 2020

• #11

Il suffit de taper Application.Dis pour qu'il complète tout seul en DisplayAlerts. Et donc cette propriété de l'objet Application existe.

Application.DisplayAlerts property (Excel)

Office VBA reference topic

docs.microsoft.com

Je viens d'ailleurs d'y voir qu'il est inutile de la remettre à True derrière: elle ne reste à False que durant l'exécution des macros, comme pour la Application.ScreenUpdating.

 

Dernière édition: 14 Février 2020

Vote positif 0 Vote négatif

Solution

R

rolby

XLDnaute Nouveau

• 14 Février 2020

• #12

Dranreb à dit:

Il suffit de taper Application.Dis pour qu'il complète tout seul en DisplayAlerts. Et donc cette propriété de l'objet Application existe.

Application.DisplayAlerts property (Excel)

Office VBA reference topic

docs.microsoft.com

Je viens d'ailleurs d'y voir qu'il est inutile de la remettre à True derrière: elle ne reste à False que durant l'exécution des macros, comme pour la Application.ScreenUpdating.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

rolby

XLDnaute Nouveau

• 14 Février 2020

• #13

Re bonjour,
l'erreur que je mentionne vient en réalité d'une faute dans le côde :
ce n'est pas Application.DisplayAlert = False
mais Application.DisplayAlerts = False
et maintenant ça marche super ...
Merci encore à toi Dranreb pour ta contribution et aussi à vous tous qui vous êtes intéressés à mon probleme.
Rolby

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Février 2020

• #14

Mes excuses pour la faute de frappe.

 

Vote positif 0 Vote négatif