XL 2013 Créer Sommaire

[YANOU38]

Bonjour,
Sur le Fichier joint, en O17 je veux récupérer automatiquement le numéro de la première feuille avec un nombre (ma première feuille chiffrée peut très bien être la numéro 8 par exemple)
Pour cela je liste automatiquement tous les noms des Feuilles (à partir de la cellule AR1).
A partir de la cellule AS1 je "tente" de cibler la première valeur numérique rencontrée, mais on peut voir qu'en cellule AS3 cela ne fonctionne pas...(prise en compte formule et pas valeur je pense...).
Je suis parti dans ce cheminement, mais il y a peut-être plus simple pour créer mon sommaire (?)
L'idée est qu'en cellule O17, j'ai automatiquement "3" (le premier chiffre rencontré dans le nom de mes feuilles)
Merci pour votre aide.

 

[YANOU38]

Re-bonjour job75, le forum,
D'accord...je n'en lançait qu'une (Renommer).
Du coup, est-il possible, à partir de votre macro Renommer et de la macro SnameList, de n'en faire qu'une ?
Merci pour votre aide.

 

[YANOU38]

Bonjour à tous,
J'essaie de créer une macro me permettant d'importer une feuille dans mon classeur :
1- Ouverture du répertoire => emplacement :
Z:\DEPT CHAUDRONNERIE\Divers documents techniques\4 - Soudage\DMOS
2- Choix d'un classeur dans ce répertoire (tous mes classeurs ne contiennent qu'une feuille)
3- Ouverture de ce classeur
4- Importation (et fermeture de ce classeur)
5- Le nouvel onglet créé prend un nom uniquement avec un chiffre (pour que les autres macros de mon classeur puissent tourner)

Voilà où j'en suis :

Sub Macro14()
'
' Macro14 Macro
'

'
    Workbooks.Open Filename:= _
        "Z:\DEPT CHAUDRONNERIE\Divers documents techniques\4 - Soudage\DMOS\2-Inox\1- 304L\1- Bout à bout\C- 141\141 mono - ép. 2 à 2.75 - I007.xls"
    Sheets("Feuil2").Select
    Sheets("Feuil2").Copy After:=Workbooks("16004-Essai.xlsm").Sheets(33)
    Windows("141 mono - ép. 2 à 2.75 - I007.xls").Activate
    ActiveWorkbook.Close
End Sub

Le chemin de mon répertoire doit s'arrêter à DMOS pour faire un choix.
Le nom de mon fichier "16004-Essai.xlsm" sera changeant.

Merci pour votre aide

 

[YANOU38]

Bonjour à tous,
J'ai modifié toutes mes feuilles bibliothèque pour que leur numérotation prennent le nom de l'onglet (cellules J1 à partir de feuille 14) => =(STXT(CELLULE("filename";$J$1);TROUVE("]";CELLULE("filename";$J$1))+1;99)-1)+1
Je bloque cependant toujours sur l'import de mes fiches bibliothèque (poste #32).
Merci pour votre aide.

 

[YANOU38]

Bonjour à tous,
J'ai avancé sur mon classeur, mais j'aurai encore besoin de vous.
Sur le Fichier joint :
- en Rouge, l'explication du fonctionnement de mon classeur
- en Vert, les Modifications désirées.
Merci pour votre aide.