Bonjour tout le monde,
Cette question a déjà été posée auparavant et j'ai trouvé mon bonheur pour le code. Mais là, ça ne marche pas malheureusement (à savoir que j'ai déjà activé l'objet Excel dans les références).
Ca me sort : Erreur d'exécution 91 : Variable objet ou variable de bloc With non défini à la ligne où le code est le suivant :
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\stagiaire\Bureau\Réparations.xls", ReadOnly:=False)
Voici le code complet :
Merci d'avance pour vos réponses
Cette question a déjà été posée auparavant et j'ai trouvé mon bonheur pour le code. Mais là, ça ne marche pas malheureusement (à savoir que j'ai déjà activé l'objet Excel dans les références).
Ca me sort : Erreur d'exécution 91 : Variable objet ou variable de bloc With non défini à la ligne où le code est le suivant :
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\stagiaire\Bureau\Réparations.xls", ReadOnly:=False)
Voici le code complet :
Code:
' Colle les données dans Excel en ouvrant une nouvelle feuille
Sub TransfererDonneesExcel()
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\stagiaire\Bureau\Réparations.xls", ReadOnly:=False)
Set wsExcel = wbExcel.Worksheets.Add
ThisWorkbook.Worksheets("Export REX").Range("A2:D38").Copy Destination:=wsExcel
End Sub
Merci d'avance pour vos réponses