Discussion :

[boosty]

Bonjour à tous,

Je voudrais parcourir toutes les feuilles excel de mon classeur et en extraire les noms (uniquement pour les cellules dont j'ai modifié le nom), les formules et les commentaires éventuels.
Pouvez-vous me donner une piste svp ?

J'ai Excel 2003 en anglais et win xp

Merci !

[aurelien2723]

Peut etre ca t'aidera, y'a pleins d'exemples partout...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
Set appExcel = CreateObject("Excel.Application")
 
Workbooks.Open FileName:=
Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
 
tmp = wsExcel.Cells(1, 1).Value

[boosty]

Ben au fait, ce sera une macro interne au fichier excel et j'ai juste besoin de trouver quelles cellules ont un nom spécifique et grâce à ca, extraire ce nom, la formule de la cellule et son commentaire éventuel.

Je cherche mais je trouve pas plus d'infos ou d'exemples sur mon problème Un petit lien p-e svp ?

[SfJ5Rpw8]

tiens déjà pour la liste des plages nommées de ton classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
  Dim n As Name
  For Each n In ActiveWorkbook.Names
   Debug.Print n.Name & " => " & n.RefersTo
  Next
End Sub

[boosty]

tiens déjà pour la liste des plages nommées de ton classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
  Dim n As Name
  For Each n In ActiveWorkbook.Names
   Debug.Print n.Name & " => " & n.RefersTo
  Next
End Sub

Ha oui ok
J'étais complètement à côté de la plaque moi alors.

Comment puis-je récupérer les formules et les commentaires de ces cellules ?

Edit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim n As Name
 
   On Error Resume Next
 
   For Each n In ActiveWorkbook.Names
      Debug.Print n.Name & " => " & n.RefersTo
      Debug.Print Range(n.Name).Formula
      Debug.Print Range(n.Name).Comment
   Next
 
   On Error GoTo 0

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Range(n.Name).Comment.Text

[boosty]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Range(n.Name).Comment.Text

Effectivement

[boosty]

Merci à tous !