Microsoft 365 sauvegarde par VBA

Didier03 · 27 Avril 2023

Bonjour tout le monde , voilà j'ai créé une macro avec un bouton qui enregistre une feuille excel en XLSM et , en même temps cela créer la même feuille en PDF. cela donne ça;

Sub SaveToPDF()
ActualYear = Year(Now())
FolderName = "_MlsP_Fiches Alertes Qualité"
PathToSave = ActualYear & FolderName
Filename = Sheets("Quality Alert").Cells(6, 5) & "_" & Sheets("Quality Alert").Cells(16, 5)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & PathToSave & "\" & Filename & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True

End Sub

Sub SaveToXls()
ActualYear = Year(Now())
FolderName = "_MlsP_Fiches Alertes Qualité"
PathToSave = ActualYear & FolderName
Filename = Sheets("Quality Alert").Cells(6, 5) & "_" & Sheets("Quality Alert").Cells(16, 5)
Fichier = Filename & ".xlsm"
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & PathToSave & "\" & Fichier

End Sub

après on peut rouvrir le fichier excel enregistré et rajouté des informations mais en appuyant sur le bouton pour enregistrer une nouvelle fois cela me bloque car cela me dit que le fichier existe déjà

cela veut dire qu'avec cette macro je ne peut pas enregistrer les modif que j'ai faite et remplacer aussi le PDF

qu'est ce qu'il faudrait que je rajoute sur la macro pour que cela puisse modifier les fichiers existants, voir les remplacer

j'espère que vous comprendrez ma demande

merci beaucoup d'avance

Phil69970 · 27 Avril 2023

Bonjour @Didier03

Tu mets en debut de macro

Sub SaveToPDF()
Application.DisplayAlerts = False

Et tu n'auras plus de message du type
"Ce fichier existe voulez vous le remplacer :"

Et en fin de macro

Application.DisplayAlerts = True
End Sub

Merci de ton retour

@Phil69970

Didier03 · 27 Avril 2023

merci beaucoup , par contre pour le fichier XLSM je met pareil ?????

Didier03 · 27 Avril 2023

Phil69970 à dit:
Bonjour @Didier03

Tu mets en debut de macro

Et tu n'auras plus de message du type
"Ce fichier existe voulez vous le remplacer :"

Et en fin de macro

Merci de ton retour

@Phil69970

cela me mettait surtout que je ne pouvais pas le sauvegarder car il existait déjà

Phil69970 · 27 Avril 2023

Re

Si par macro tu enregistres le fichier en XLSM en début et fin de macro tu fais pareil et l'enregistrement se fera en écrasant le fichier existant sans avertissement

Au début de la macro qui enregistre

Application.DisplayAlerts = False

...... Le code de ta macro

A la fin de cette même macro

Application.DisplayAlerts = True

@Phil69970

Didier03 · 27 Avril 2023

merci beaucoup Phil je vais tester ça et je te tiens au courant

Didier03 · 27 Avril 2023

ah j'ai un petit souci, cela me met ,

erreur d'execution 1004: document non enregistré.Le document est peut être ouvert ou une erreur s'est produite lors de l'enregistrement
ça beug à ce niveau
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & PathToSave & "\" & Filename & ".pdf", Quality:=xlQualityStandard, IncludeDocPropert

Phil69970 · 27 Avril 2023

Re

Si l’enregistrement de ton fichier fonctionnait avant ce n'est pas en mettant

Application.DisplayAlerts = False

que tu as ce message.

Sans fichier je ne peux pas aller plus loin

@Phil69970

Didier03 · 27 Avril 2023

ok je vais préparer le fichier et le mettre ici

Phil69970 · 27 Avril 2023

Re

Phil69970 à dit:
Si l’enregistrement de ton fichier fonctionnait avant

Est ce que ta macro qui enregistre le fichier fonctionnait avant ?

@Phil69970

Didier03 · 27 Avril 2023

elle fonctionne bien la première fois, elle enregistre bien un fichier excel et un PDFP, c'est quand je reprend le fichier excel pour le modifier ,il ne veut pas enregistrer

je vais mettre le fichier pour t'en rendre compte

Didier03 · 27 Avril 2023

voilà ,

Phil69970 · 27 Avril 2023

Re
@Didier03

Chez moi cela fonctionne bien
J'ai ouvert ton fichier et j'ai lancé les macros :

SaveToPDF et SaveToXls

J'ai obtenu ceci :

Puis 5 minutes après sans fermer excel j'ai relancé les 2 macros et j'ai eu ceci sans aucun message

Tu remarqueras que les 2 fichiers ont pour nom "_" et c'est normal car il y a rien en E6 et E16

Par contre la cellule E6 est formaté comme une date donc des que tu mets un numéro excel le transforme en date et PLANTAGE immédiat

Par contre si tu mets la cellule E6 au format standard

Tu obtiens ceci

Je te laisse faire la modif sur ton fichier !!!

Et tout fonctionnera !!! C'est magique ... 😉

Merci de ton retour

@Phil69970

Didier03 · 27 Avril 2023

merci beaucoup de ton explication Phil et de ton temps passé pour ça ,

je vais voir ça !!!

Didier03 · 27 Avril 2023

Bon faut que je regarde car cela me plante pareil ..... la première fois ça enregistre nickel , mais quand j'ouvre de nouveau le fichier EXCEL que je modifie ou rajoute un texte et que j'enregistre de nouveau j'ai le même défaut

faut que je regarde quelle bêtise je fais ........

Microsoft 365 sauvegarde par VBA

Didier03

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Didier03

XLDnaute Junior

Didier03

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Didier03

XLDnaute Junior

Didier03

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Didier03

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Didier03

XLDnaute Junior

Didier03

XLDnaute Junior

Pièces jointes

Phil69970

XLDnaute Barbatruc

Didier03

XLDnaute Junior

Didier03

XLDnaute Junior

Discussions similaires

Microsoft 365 sauvegarde par VBA

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency