Microsoft 365 erreur 1004 : cette interface n'est pas prise en charge

[fattah_5791]

bnjr tt le monde,

merci à vous de me donner un coup d'aide à un petit prblm au niveau d'une partie de mon code vba.
code:

             If nbex = 0 Then
                K = 24
                j = 0
                g = 0
                wbexcel.Sheets("ExportMoyenneCc").Activate
                For coln = 24 To 1 Step -1
                    If wbexcel.Sheets("ExportMoyenneCc").Cells(10, coln).Value <> "" Then
                        Sheets("BaseEX").Range(Cells(4, coln - g), Cells(4 + nbElevex, coln - g)).Value = wbexcel.Sheets("ExportMoyenneCc").Range(Cells(10, coln), Cells(10 + nbElevex, coln)).Value
                       wbexcel.Sheets("ExportMoyenneCc").Range(Cells(10, coln), Cells(10 + nbElevex, coln)).Copy
                        Sheets("BaseEX").Range(Cells(4, coln - g), Cells(4 + nbElevex, coln - g)).Select
                        g = g + 1
                        GoTo lala
                    End If
lala:
                Next coln
              End If

un msg d'erreur s'affiche au niveau de l'exécution de la ligne 8 du code : Erreur d'execution '1004' cette interface n'est pas prise en charge
remarques:
- la feuille sheets("ExportMoyenneCc") du classeur wbexcel s'ouvre en arrière plan;
- la feuille Sheets("BaseEX") appartient au classeur sur lequel le code est conçu

Merci infiniment

 

[Bernard_XLD]

Bonjour fattah_5791, le forum

si wbexcel est actif, ce qui se passe quand vous faites wbexcel.Sheets("ExportMoyenneCc").Activate ( ce qui ne sert à rien d'ailleurs et c'est peut être cela qui provoque l'erreur si le classeur n'est pas le classeur actif), il faut spécifier où se trouve sheets("BaseEx") avec Thisworkbook.sheets("BaseEx") sinon le programme la cherche dans le classeur actif et ne la trouve pas ce qui provoque une erreur 1004.
et mettez vos codes dans une balise, c'est beaucoup simple et agréable à lire.

Bien cordialement, @+