chercher des données dans un autre classeur

[fanou_94]

Bonjour a tous,

je debute en vb et je dois realiser une maccro sous excel qui permet d'aller chercher une donnée précise dans un autre classeur qui est dans le meme dossier.
toute aide est la bienvenue
Merci d'avance

 

[david]

Précise ta demande.
Ta donnée est toujour à la même place?
Tes données sont en lignes?en colonnes?

 

[fanou_94]

Salut
Mes données sont dans différents fichiers mais toujours a la meme place, j'ai commencé a coder mais le problème c'est que j'ai un bug qui traine, il me demande si je veux qsauvegarder mes modif et je suis obligé de les enregistrer dans un autre fichier. Voici mon code:

Private Sub CommandButton3_Click()
'Déclaration des variables
'variables pour fichier graph
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'variables pour les differents fichiers employés
Dim appExcel_1 As Excel.Application 'Application Excel
Dim wbExcel_1 As Excel.Workbook 'Classeur Excel
Dim wsExcel_1 As Excel.Worksheet 'Feuille Excel
Dim tmp_1 As Long

'Acces au fichier graph
'Ouverture de l'application
Set appExcel = CreateObject('Excel.Application')
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open('C:\\prjt Excel\\version1\\graph.xls')
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

'Acces au fichier 1
'Ouverture de l'application
Set appExcel1 = CreateObject('Excel.Application')
'Ouverture d'un fichier Excel
Set wbExcel1 = appExcel.Workbooks.Open('C:\\prjt Excel\\version1\\1.xls')
'wsExcel1 correspond à la première feuille du fichier
Set wsExcel1 = wbExcel.Worksheets(1)

'saisie des données du fichier 1
wsExcel.Range('B4') = wsExcel1.Range('B3')

'fermeture des fichiers
wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel
wbExcel1.Close 'Fermeture du classeur Excel
appExcel1.Quit 'Fermeture de l'application Excel

'Désallocation mémoire
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
Set wsExcel1 = Nothing
Set wbExcel1 = Nothing
Set appExcel1 = Nothing

Si tu pouvais y jeter un petit coup d'oeil je t'en seré très reconnaissant merci d'avance

cordailement fanou_94

 

[fanou]

Il n'apprecie pas du tout cette ligne en particulier:


wbExcel1.Close 'Fermeture du classeur Excel