Enregistrement Impossible
Bonjour,
Lorsque j'enregistre en utilisant la fonction "Enregistrer sous" un fichier .xlsm, et sans le fermer, il apparait dans l'explorateur de fichier mais lorsque je le ferme il disparait de l'explorateur.
Pouvez-vous m'indiquer où est le problème?
A l'avance merci
Gérard
Regarde s'il y a un code dans ThisWorkbook. Peut être que le fichier se supprime automatiquement à la clôture
Merci pour votre réponse.
Non je n'ai pas ce code dans ma Macro. Par contre voici une autre info:
Si je sauvegarde sur une clé USB je n'ai pas le problème.
Cordialement
Voilà le code que j'ai fait
'Sauvegarde de la facture
Nomfichier = Range("F17")
Chemin = ActiveWorkbook.Path & "\"
ActiveWorkbook.Sheets("FactureDefinitive").Copy
ActiveWorkbook.SaveAs (Chemin & Nomfichier & ".xls")
'Demande d'impression de la facture
If MsgBox("Désirez-vous imprimer cette facture ?", vbYesNo, "Demande d'impression") = vbYes Then
Worksheets("FactureDefinitive").PrintOut
End If
'Fermeture du fichier facture
Workbooks(Nomfichier & ".xls").Close
'RetourFeuille de saisie
Sheets("Saisie").Activate
Ah oui c'est bizarre en effet.
Un peu difficile de savoir si c'est dû au fichier ou çà la configuration du pc sans avoir un fichier à tester.
Bonjour,
On ajoute pas d'abord un "Workbook.add" avant de faire une copie de feuille ?
'Sauvegarde de la facture
Dim wb As Workbook
Set wb=workbooks.Add
Nomfichier = Range("F17")
Chemin = ActiveWorkbook.Path & "\"
ThisWorkbook.Sheets("FactureDefinitive").Copy Before:=wb.Sheets(1)
wb.SaveAs Filename:=Chemin & Nomfichier & ".xls"
'Demande d'impression de la facture
If MsgBox("Désirez-vous imprimer cette facture ?", vbYesNo, "Demande d'impression") = vbYes Then
Worksheets("FactureDefinitive").PrintOut
End If
'Fermeture du fichier facture
Workbooks(Nomfichier & ".xls").Close
'RetourFeuille de saisie
Sheets("Saisie").Activate