fattah_5791
XLDnaute Occasionnel
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:
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
merci à vous de me donner un coup d'aide à un petit prblm au niveau d'une partie de mon code vba.
code:
VB:
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 Ifremarques:
- 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
Dernière modification par un modérateur: