selectionner un fichier excel

[Nicole]

Bonjour à tous,

Voici un code qui me permet de verifier si l'un des fichier excel ouvert la sheets 3 s'appel 'toto'. le probleme c 'est que ça coince au moment du bout de code : wb.Sheets(3).Select
avec comme message d'erreur: la methode select de la classe worksheet a echoué !!!
un sauveur dans le foruùm svp ?



Dim wb As Excel.Workbook

For Each wb In Workbooks

If wb.Sheets(3).Name = 'Toto' Then



wb.Sheets(3).Select




End If

Next wb

 

[JPM]

Bonjour Nicole, le forum,

Je pense qu'il faut sélectionner en 2 temps : le classeur puis la feuille.

Dim wb As Excel.Workbook

For Each wb In Workbooks
If wb.Sheets(3).Name = 'toto' Then
wb.Activate
Sheets(3).Select End If
Next wb

bonne journée

Jean-Pierre

 

[Nicole]

Merci Jean Pierre, Ca marche parfait toutefois quand je commence le traitement de la feuille que je seletionne genre selectionner un range ça ne marche pas, il me renvoie l'erreur: la methode range de l'objet worksheet a echoué !

Merci de votre aide


Dim wb As Excel.Workbook

For Each wb In Workbooks

If wb.Sheets(3).Name = '13 Edition gamme' Then

wb.Activate
wb.Sheets(3).Activate
Sheets(3).Cells(52, 5).Select
Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell)).Select





End If

Next wb

End Sub

 

[JPM]

re,

je suis désolé, j'ai fait plusieurs essais avec le code suivant :
Dim wb As Excel.Workbook

For Each wb In Workbooks
If wb.Sheets(3).Name = 'Toto' Then
wb.Activate
Sheets(3).Activate
Cells(52, 5).Select
Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell)).Select
End If
Next wb

et je n'ai eu aucun problème.

Post ton fichier ou un extrait si tu veux

Jean-Pierre