XL 2013 Créer Sommaire

YANOU38

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Essai.xlsm
    156.5 KB · Affichages: 36

YANOU38

XLDnaute Occasionnel
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 :

VB:
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
 

Pièces jointes

  • 16004-Essai.xlsm
    324.5 KB · Affichages: 2

YANOU38

XLDnaute Occasionnel
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.
 

Pièces jointes

  • 16004-Essai.xlsm
    323.5 KB · Affichages: 3

YANOU38

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Essai IMPORT.xlsm
    175.9 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510