Asignar a variable el contenido de una celda

intenta reemplazar wsExcel por worksheets("apha") ... y verifica que esté bien escrito (atención a las mayúsculas y minúsculas)
--
«Lo que se concibe bien se expresa claramente, y las palabras para decirlo llegan fácilmente.»
Nicolás Boileau

Se bloque en la línea donde asigno sType
sType = wsExcel.Range("L" & Lig).Value

He hecho el método paso a paso (F8) y se detiene en esta línea...

¿En qué línea se bloquea? ¿Has hecho un paso a paso para ver si todas las variables u objetos se inicializan correctamente?

--
«Lo que se concibe bien se expresa claramente, y las palabras para decirlo llegan fácilmente.»
Nicolas Boileau

re,

Long es preferible si no conoces el número de líneas a recorrer

Luego, hay que hacer:

Dim wsExcel As Worksheet Set wsExcel = Worksheets("alpha")

Esto es lo que veo por ahora.

;o)

polux
--
«Lo que se concibe bien se expresa claramente, Y las palabras para decirlo llegan fácilmente.»
Nicolás Boileau

Hola,

¿Qué representa wsExcel? Y Type es una palabra reservada en VB y VBA. Cambia el nombre de tu variable.

La siguiente sintaxis funciona:

Dim sType As String Dim lig As Long lig = 14 sType = worksheets("Feuil1").Range("L" & lig).Value

;o)

polux
--
«Lo que se concibe bien se expresa claramente, Y las palabras para decirlo llegan fácilmente.»
Nicolas Boileau

Hola,

¿y si quitas tu .value, qué pasa?