Discussion :

[Gorillo]

Bonjour,

J'ai développé un bout de code en VBA et j'essaie d'enregistrer le résultat produit dans un nouveau fichier excel. Je veux que ce fichier soit un classeur sans macro, soit un xlsx (ou éventuellement un xls).

Le pb c'est que malgré ce code pour l'enregistrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim nom As String                                           'nom de fichier + sauvegarde
    nom = "Reporting_teletrans_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmm") & ".xlsx"
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
 
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True

J'ai ce message d'erreur qui apparaît à l'ouverture :


Pourriez-vous m'aider ??
Merci

[Quentin77170]

Salut à toi,

Tu ne peux pas spécifier toi-même l'extension, enfin ce n'est pas du tout conseillé... Il faut s'intéresser au format par défaut
Pour cela, tu as la propriété Application.DefaultSaveFormat

Tu peux la changer ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
FormatDeSauvegarde = Application.DefaultSaveFormat
Application.DefaultSaveFormat = xlExcel12
 
[Ton code]
 
Application.DefaultSaveFormat = FormatDeSauvegarde
End Sub

Donc à la fin de la macro, il vaut mieux la remettre par défaut comme avant l'exécution du code.

Dis-moi si ça te va !

Quentin

[Gorillo]

Ton code me permet de ne plus avoir de message d'erreur, en revanche le fichier sauvegardé pèse 0ko et est affiché dans l'explorateur Windows comme une classeur prenant en charge les macros...
J'ai tenté ça à l'instant et ça marche sinon !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & nom, FileFormat = xlOpenXMLWorkbook

J'ai mis SaveAs au lieu de CopySaveAs, et cette fonction a comme argument FileFormat et ça m'a l'air de marcher

Merci pour ton aide

[Gorillo]

Bizarre car la nouvelle ligne que j'ai ajoutée juste avant m'a permis d'enregistrer un fichier une fois. J'ai rééessayé par la suite sans succès....
Ni ton code ni le mien ne fonctionne...

[Gorillo]

Re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim nom As String                                           'nom de fichier + sauvegarde
    nom = "Reporting_teletrans_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmm") & ".xlsx"
    ActiveWorkbook.SaveAs Filename = ActiveWorkbook.Path & "\" & nom, FileFormat = xlOpenXMLWorkbook
    rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copi sauvegarde classeur")
 
    ActiveWorkbook.Close False

Je n'arrive vraiment pas à comprendre pourquoi d'un coup plus aucun fichier n'est généré en sauvegarde...

Merci de votre aide !

[Gorillo]

Bon,

l'apprentissage est rude, le débutant que je suis avait mis des "=" au lieu de ":=" dans les arguments de SaveAs, maintenant ça marche comme par miracle...

Désolé du flood