prb balayage feuilles d'un classeur

[fanoux]

bonjour a tous,

j'ai un niveau correct en vba mais le probleme c'est que je ne sai pas par ou commencer!!
il faut que j'arrive a balayer les différentes feuilles d'un classeur pour reperer une case en particulier puis intégrer dans un graph les feuilles qui ont cette variable a 1...
Toute aide est la bienvenue
Merci d'avance

 

[CBernardT]

Bonjour Fanoux,

Un début de macro pour démarrer ton projet :

Sub Intégration()
Dim Plage As Range
Dim Ws As Worksheet

' Boucle sur les feuilles du classeur
For Each Ws In Worksheets
'Elimination de la feuille une considérée comme interface ici
If Ws.Name <> Sheets(1).Name Then
Ws.Select
If Ws.Range('A1').Value = 1 Then
'Sélection d'une plage
Set Plage = ActiveSheet.Range('A4:E1000')

''Mettre ici le code pour intégrer dans un graph les feuilles qui ont cette variable a 1... '
End If
End If
Next Ws
Sheets(1).Activate
Range('A1').Select
End Sub

Une amorce de projet serait le bienvenu pour aller plus loin.

Cordialement

Bernard

Message édité par: CBernardT, à: 04/07/2005 19:03

 

[fanoux]

Salut Bernard

Merci pour tes explications je vais essayer de commencer le projet grace a tes infos...

salutation
fanoux

 

[fanoux]

Ca y est j'ai commencé le projet et maintenant g un autre prb....

Le but de cette maccro est de prendre une valeur dans un fichier qui s'apell 1.xls et de mettre cette valeur dans le fichier graph.xls

Le prb c'est que ca bug.
Il me demande si je veux enregistrer les modif que g effectué jusque la que du bonheur mais meme une fois que j'ai accepté la modif, il insiste encore et encore....

en plus, je ne peux plus consulter le fichier modifier qu'en lecture seule.

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


End Sub

la ligne qu'il n'apprécie particulièrement pas c'est celle la:

wbExcel1.Close 'Fermeture du classeur Excel

Merci de jeter un petit coup d'oeil et a charge de revanche

cordialement Fanoux

 

[fanoux]

Ca y est j'ai commencé le projet et maintenant g un autre prb....

Le but de cette maccro est de prendre une valeur dans un fichier qui s'apell 1.xls et de mettre cette valeur dans le fichier graph.xls

Le prb c'est que ca bug.
Il me demande si je veux enregistrer les modif que g effectué jusque la que du bonheur mais meme une fois que j'ai accepté la modif, il insiste encore et encore....

en plus, je ne peux plus consulter le fichier modifier qu'en lecture seule.

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


End Sub

la ligne qu'il n'apprécie particulièrement pas c'est celle la:

wbExcel1.Close 'Fermeture du classeur Excel

Merci de jeter un petit coup d'oeil et a charge de revanche

cordialement Fanoux