Remplacement du contenu de cellules par leurs valeurs

[Sly le globe trotter]

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

        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

.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]

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]

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]

Re : Remplacement du contenu de cellules par leurs valeurs

Bonjour bbb38,

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]

Re : Remplacement du contenu de cellules par leurs valeurs

Bonjour Pierrot93,

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