Discussion :

[ptitepo]

Bjr a tous,
Je pose la situation, 23 fichiers excel, nommé de la même facon. Nom ville annee, réparti dans plusieur dossiers.
Je voudrais créer un fichier excel dont chaque onglet soit nommé par la ville des fichier excel, c'est a dire qu'il faut récuperé le 2iem mot du nom des fichié, pour le mettre dans le nom d'un onglet...
Peut être pouriez vous m'aidé a resoudre se problème

[mayekeul]

bonjour,

un peu plus de précision sur la nomenclature des noms de fichiers serait la bienvenue.(quel sont le séparayeur par exemple)

Aussi, connaist-on la liste des dossiers ?
la aussi connaitre la nomenclature serait sympa.

[ptitepo]

Comme je l'est ecrit, nom "espace" ville "espace" année pour les fichiers excel,
Pour le nom des dossiers c'est une région en un ou deux mots avec des espaces.
C'est dérengant qu'il y est des espaces?

[mayekeul]

ben disons qu'il vaut mieux éviter.

le premier probleme(les autre n'en étant pas réellement)
est de séparer le nom de la ville dans le nom du fichier

une fonction t'y aidera
pour le reste dis mois si tu sais faire ou pas

la fonction suivante peut te servir à tester et a mettre en place le nom des villes. Elle teste si le fichier présente les carctéristique suivantes
des espaces dans le nom
et si oui, prend le deuxième mot pour nom de ville

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function VilleExist(NomClasseur As String) As String
Dim strTemp() As String
strTemp = Split(NomClasseur, "\")
strtemp2 = Split(strTemp(UBound(strTemp)), " ")
On Error GoTo NoTown
VilleExist = strtemp2(1)
On Error GoTo 0
Exit Function
NoTown:
VilleExist = ""
 
End Function

[ptitepo]

Alors j'avou que je suis 1 pe perdu.
Je doit remplacer de nom dans ta macro ?
Pour l'instant je l'est mis dans le code de la feuille 1, il ne se passe rien. Si j'ai plusieurs fichier du même type, si je suis ta logique, il prendra toujours le même, le 1er qui aura un espace dans son nom?

[mayekeul]

tu as déjà un code?

on peux voir?



cela sera plus simple à t'expliquer!