Enregistrement fichier depuis VB2008Résolu

Question

Bonjour,

A partir d'une application VB2008 j'ouvre un fichier Excel, effectue diverses opérations puis enregistre les modifications. Le problème est que le code me génère une erreur ne m'autorisant pas à sauvegarder car le fichier excel est en lecture seule... Voici le code :

        'Ouverture de l'application
        appExcel = CreateObject("Excel.Application")
        appExcel.Visible = True

        'Ouverture d'un fichier Excel
        wbExcel = appExcel.Workbooks.Open(adresse)

        'Puis plus loin dans le code

        appExcel.DisplayAlerts = False
        wsExcel.SaveAs(adresse)
        appExcel.DisplayAlerts = True

Quelqu'un peut-il me dire comme écrire sur le fichier Excel malgrès le fait qu'il soit en lecture seule.

SeKo54 · Accepted Answer

Bon ben je viens de trouver tout seul comme un grand... je me suis trompé dans l'adresse du fichier a écrase, à savoir que je mettais :

adresse = appExcel.Path & "" & wbExcel.name 

alors qu'il fallait mettre

adresse = Application.Path & "" & wbExcel.name

Enregistrement fichier depuis VB2008

1 réponse

Votre réponse

Discussions similaires