Remplacement du contenu de cellules par leurs valeurs

Sly le globe trotter · 4 Novembre 2015

Bonsoir,

A partir d'un fichier Excel, je cherche à copier l'un des onglets de ce fichier, supprimer le code de cet onglet, remplacer le contenu des cellules par leurs valeurs avant de finalement enregistrer le fichier.

J'ai pour cela écrit le code suivant

Code:

        Sheets("DataSérie").Copy
        Set gCopy = ActiveWorkbook
        Set fCopy = ActiveWorkbook.Sheets("DataSérie")
        
        ' Suppression du code
        With gCopy.VBProject.VBComponents(Sheets("DataSérie").CodeName).CodeModule
            .DeleteLines 1, .CountOfLines
        End With
        
        ' Remplacement du contenu des cellules par leurs valeurs
        With fCopy.UsedRange
            .Value = .Value
        End With

Malheureusement, cela ne fonctionne pas... Le code plante sur la ligne

Code:

.Value = .Value

avec le message suivant
"Erreur de compilation : End Sub attendu"

A priori, cela proviendrait de la fonction Worksheet_Change présente dans le code de l'onglet que je cherche à copier. Si je mets cette fonction en commentaires, tout fonctionne...

Auriez-vous une idée pour contourner / corriger cette erreur ?

D'avance merci pour votre aide,
Sly

bbb38 · 5 Novembre 2015

Re : Remplacement du contenu de cellules par leurs valeurs

Bonjour Sly , le forum,
Au hasard, tu as peut-être oublié de mettre « End Sub » à la fin de la Fonction Worksheet_Change.
Cordialement,
Bernard

Pierrot93 · 5 Novembre 2015

Re : Remplacement du contenu de cellules par leurs valeurs

Bonjour,
bonjour Bernard

A partir d'un fichier Excel, je cherche à copier l'un des onglets de ce fichier, supprimer le code de cet onglet, remplacer le contenu des cellules par leurs valeurs avant de finalement enregistrer le fichier.

petite remarque au passage, si au final tu comptes enregistrer un nouveau fichier, sauvegarde le en xlsx, tu n'auras plus besoin de supprimer le code...

bonne journée
@+

Sly le globe trotter · 5 Novembre 2015

Re : Remplacement du contenu de cellules par leurs valeurs

Bonjour bbb38,

bbb38 à dit:
Au hasard, tu as peut-être oublié de mettre « End Sub » à la fin de la Fonction Worksheet_Change.

A priori non ;-) La fonction Worksheet_Change fonctionne correctement de son côté, du moins quand elle n'est pas "activée" depuis le code qui me pose problème.

Sly

Sly le globe trotter · 5 Novembre 2015

Re : Remplacement du contenu de cellules par leurs valeurs

Bonjour Pierrot93,

Pierrot93 à dit:
petite remarque au passage, si au final tu comptes enregistrer un nouveau fichier, sauvegarde le en xlsx, tu n'auras plus besoin de supprimer le code...

Merci pour la reco, mon code faisait donc double emploi puisque plus loin, j'enregistrai le fichier en format xlsx.

Sly

Remplacement du contenu de cellules par leurs valeurs

Sly le globe trotter

XLDnaute Occasionnel

bbb38

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

Sly le globe trotter

XLDnaute Occasionnel

Sly le globe trotter

XLDnaute Occasionnel

Discussions similaires