Enregistrement en xlsm

Bonsoir,

Voilà, j'ai un code pour enregistrer mon fichier en .xlsm.

Si le fichier existe déjà, je vois un message me demandant si je veux remplacer avec oui, non ou annulé.

Si je clique sur oui, pas de problème. Si c'est non ou annulé j'ai un message d'erreur.

Comment faire

Merci

Sub enregistrement_xls()

Dim Chemin As String, NomFichier As String

Chemin = "C:\Users\Jérôme\Documents\BET Metreur\Facture\Facture clients\Facture Excel\"
NomFichier = ActiveSheet.Range("c10").Value

    ActiveWorkbook.SaveAs Filename:= _
        Chemin & NomFichier, _
         FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Re

En utilisant des procédures de gestion d'erreur, tu peux passer ce genre de problème, ici dans ton code j'ai testé resume next, quand tu fais non sur ton message, sa passe met fin à ta procédure d'enregistrement.

J'ai testé ça marche :

Sub enregistrement_xls()

Dim Chemin As String, NomFichier As String

On Error Resume Next

Chemin = "C:\Users\Jérôme\Documents\BET Metreur\Facture\Facture clients\Facture Excel\"
NomFichier = ActiveSheet.Range("c10").Value

    ActiveWorkbook.SaveAs Filename:= _
        Chemin & NomFichier, _
         FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

(edit 23h06, lien VBA plutôt, il y'a des différences entre le .NET et le VBA, risque de confusion pour les personnes qui passeraient)

(On Error Resume Next = passe l'erreur et poursuit la sub // On Error GoTo GestionErreur = Pour arrêter la sub à l'aide d'un Exit Sub)

Bon allez j'y go, essaye de dormir, souvent les solutions viennent le soir (j'en sais qqe chose)

Bye

Merci encore

C'est la bonne méthode, ça marche.

Mais tu sais moi je débute alors c'est pas toujours facile.

Merci à toi

Le début c'est le plus dur en effet , bon courage ça vaut le coup

Rechercher des sujets similaires à "enregistrement xlsm"