probleme avec workbook.name

Bonjour à tous.
Je viens de m'inscrire et j'ai chercher sans succès une réponse à mon problème.

Je fait une macro de ventilation.

Pour commencer je souhaite ouvrir le classeur à ventiler puis faire diverses manip et ensuite revenir sur ce classeur que je n'ai pas fermé.
Je commence donc par :

Code:

---

1 2 3

chemin_import.Caption = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") ' attribue le choix à chemin_import Workbooks.Open Filename:=chemin_import.Caption ' ouvre le classeur choisi nom_fichier = ActiveWorkbook.Name ' attribue le nom du classeur à ventiler à la variable nom_fichier

---

ensuite je voulais utiliser ma variable nom_fichier (variable publique) pour faire :
workbooks(nom_fichier).activatel'ennui c'est que dès le départ ma variable nom_fichier ajoute un nombre à mon nom de fichier !!!

lorsque je met une msgbox de controle juste sous ma troisième ligne : MsgBox ActiveWorkbook.Name & " _ " & chemin_import.Captionj'obtiens en résultat pour le fichier toto : toto _ toto1 (puis à chaque nouvelle tentative toto2, toto3 ect ...

Je précise qu'a ce stade je n'ai encore créer aucune boucle ni aucune incrémentation.


voici le code complet de la macro qui s’exécute lorsque je clique sur le premier bouton de mon userform :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Private Sub B_import_Click() ' lance le choix du claseur a ventiler     chemin_import.Caption = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") ' attribue le choix à chemin_import     If Left(chemin_import.Caption, 4) <> "Faux" Then ' vérifie qu'un nom de fichier a été choisi   Workbooks.Open Filename:=chemin_import.Caption ' ouvre le classeur choisi nom_fichier = ActiveWorkbook.Name ' attribue le nom du classeur à ventiler à la variable nom_fichier   MsgBox chemin_import.Caption & "////" & nom_fichier   Workbooks(nom_fichier).Sheets(1).Activate ' selectionne la premiere feuille du classeur Dim var_col As Integer Dim var_critere As String   var_col = 1       Do While Workbooks(nom_fichier).Sheets(1).Cells(2, var_col).Value <> "" ' récupére tous les entete de colonnes   CB_critere.AddItem Workbooks(nom_fichier).Sheets(1).Cells(2, var_col).Value ' les ajoute à la combobox CB_critere.   var_col = var_col + 1   Loop     End If     End Sub

---

Bonjour, une solution possible consiste à utiliser la fonction Left pour extraire le nom de fichier sans l’extension et le numéro qui est ajouté automatiquement . Vous pouvez utiliser la fonction InStr pour trouver la position du point dans le nom de fichier et ensuite utiliser la fonction Left pour extraire le nom de fichier sans l’extension et le numéro. Voici un exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

chemin_import.Caption = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") ' attribue le choix à chemin_import   If Left(chemin_import.Caption, 4) <> "Faux" Then ' vérifie qu'un nom de fichier a été choisi   Workbooks.Open Filename:=chemin_import.Caption ' ouvre le classeur choisi Dim nom_fichier As String Dim pos_point As Integer Dim pos_espace As Integer   pos_point = InStr(1, ActiveWorkbook.Name, ".") pos_espace = InStr(1, ActiveWorkbook.Name, " ")   If pos_espace > 0 Then nom_fichier = Left(ActiveWorkbook.Name, pos_espace - 1) Else nom_fichier = Left(ActiveWorkbook.Name, pos_point - 1) End If   MsgBox chemin_import.Caption & "////" & nom_fichier   End If

---

Bonjour,
Quelle est le type de la variable objet chemin_import ?
Pour moi, il suffirait simplement de définir une variable de type String pour récupérer le chemin et le nom du fichier que renvoie la méthode GetOpenFilename et ensuite d'utiliser une variable objet de type Workbook pour assigner l'objet que renvoie Workbooks.Open
Sauf si vous ouvrez un classeur comme modèle, je ne vois pas la raison d'avoir une incrémentation de son nom

Exemple

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim wkb As Workbook Dim FullName As String FullName = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") Set wkb = Workbooks.Open(Filename:=FullName) MsgBox "Vous avez ouvert le classeur " & wkb.Name Set wkb = Nothing End Sub

---

Citation:

---

Envoyé par Franc

Bonjour, une solution possible consiste à utiliser la fonction Left pour extraire le nom de fichier sans l’extension et le numéro qui est ajouté automatiquement . Vous pouvez utiliser la fonction InStr pour trouver la position du point dans le nom de fichier et ensuite utiliser la fonction Left pour extraire le nom de fichier sans l’extension et le numéro. Voici un exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

chemin_import.Caption = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") ' attribue le choix à chemin_import   If Left(chemin_import.Caption, 4) <> "Faux" Then ' vérifie qu'un nom de fichier a été choisi   Workbooks.Open Filename:=chemin_import.Caption ' ouvre le classeur choisi Dim nom_fichier As String Dim pos_point As Integer Dim pos_espace As Integer   pos_point = InStr(1, ActiveWorkbook.Name, ".") pos_espace = InStr(1, ActiveWorkbook.Name, " ")   If pos_espace > 0 Then nom_fichier = Left(ActiveWorkbook.Name, pos_espace - 1) Else nom_fichier = Left(ActiveWorkbook.Name, pos_point - 1) End If   MsgBox chemin_import.Caption & "////" & nom_fichier   End If

---

---

Merci pour votre réponse.
Je pense que je vais utiliser votre idée. J'y avais pensé mais je pensais logique d'utiliser une propriété (workbook.name) qui est normalement destinée à éviter ce genre de manipulation.

Par contre il ne faut pas utiliser les formules sur le workbook.name car on retombe sur le même problème.
Je vais devoir utiliser le nom du chemin complet et isoler le nom qui se trouve après le dernier \

En tout cas merci beaucoup !

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Quelle est le type de la variable objet chemin_import ?
Pour moi, il suffirait simplement de définir une variable de type String pour récupérer le chemin et le nom du fichier que renvoie la méthode GetOpenFilename et ensuite d'utiliser une variable objet de type Workbook pour assigner l'objet que renvoie Workbooks.Open
Sauf si vous ouvrez un classeur comme modèle, je ne vois pas la raison d'avoir une incrémentation de son nom

Exemple

Code:

---

1 2 3 4 5 6 7 8

Sub t() Dim wkb As Workbook Dim FullName As String FullName = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") Set wkb = Workbooks.Open(Filename:=FullName) MsgBox "Vous avez ouvert le classeur " & wkb.Name Set wkb = Nothing End Sub

---

---

Merci pour votre réponse.
J'ai déja essayé avec dim chemin as string mais sans résultat
Lorsque j'utilise votre macro je trouve le même problème : wkb.name prend le nom du fichier plus un numéro d'orde : toto devient toto13
J'avoue que c'est très étrange

En fait je voulais justement créer un modèle.

L'idée était
1-ouvrir un classeur d'origine puis supprimer toutes les valeurs en gardant les formats, listes de validations et autres...
2 -Enregistrer le résultat en modèle,
3- revenir sur le classeur d'origine et faire une sélection (par exemple par code postal) et copier la sélection dans le modèle vide,
4- Enregistrer le classeur obtenu sous le nom voulu (ex : toto_75001, toto75002....)
5 - revenir sur le classeur d'origine et recommencer à partir de l'étape 3

J'utilise déjà une macro de ventilation qui marchait très bien jusqu'à ce que mes collègues me réclament des listes de validation. Le problème c'est que lorsque l'on copie des classeurs avec listes de validation on obtient des références circulaires et des liens corrompus.

La solution du modèle mes semblait simple et sure mais je n'avais pas anticipé les problèmes de noms de fichiers.
Reste la solution d'ouvrir et fermer à chaque fois ou d'utiliser les numéro d'ordre des workbooks mais je n'aime pas trop car risque de plantage.

Du coup j'aimerais bien comprendre pourquoi le woorkbook.name me donne cette bizarrerie.

Bonne journée.

Bonjour,

Citation:

---

J'ai déja essayé avec dim chemin as string mais sans résultat
Lorsque j'utilise votre macro je trouve le même problème : wkb.name prend le nom du fichier plus un numéro d'orde : toto devient toto13
J'avoue que c'est très étrange

---

C'est effectivement très étrange.
Tous les codes que je publie sont testés et je peux vous affirmer que je ne rencontre pas le problème que vous évoquez.

A tout hasard, est-ce que les fichiers choisis sont des fichiers excel classique ou des fichiers modèles (xltx/xltm)?

L'ajout d'un numéro me fait penser à ce que qui se passe quand on créé des nouveaux fichiers excel à la suite qui se nomment classeur1, classeur2, etc)

Salut,

Excel exige que les fichiers ouverts aient des noms unique.
En mode "utilisateur", même s'ils sont dans des dossiers différents, ouvrir 2 fichiers portant le même nom générera une complainte.

Je suspecte qu'en mode "programmé", Excel ajoute d'autorité une particule (sous forme numérique) afin de garantir l'unicité des noms.
Dit autrement: Ton problème pue les fichiers ouverts et jamais refermés.

Bonjour,

Citation:

---

La solution du modèle mes semblait simple et sure mais je n'avais pas anticipé les problèmes de noms de fichiers.

---

Pour ouvrir un fichier excel en vue de l'utiliser comme modèle, il faut alors utiliser la méthode Add de la collection Workbooks en n'oubliant pas d'alimenter l'argument Template mais dans cas, il y a une incrémentation du nom du fichier ce qui est parfaitement normal pour un modèle.

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub OpenTemplate() ' Déclaration + Affectation des variables Const SubFolder As String = "\Template\" ' Sous-répertoire des modèles Const TemplateName As String = "Template_Note de Frais.xlsx" ' Nom du modèle Dim wkb As Workbook Dim CurrentPath As String ' Répertoire principal Dim FullName As String ' Nom complet (Répertoire+fichier modèle CurrentPath = ThisWorkbook.Path FullName = CurrentPath & SubFolder & TemplateName ' Début Set wkb = Workbooks.Add(Template:=FullName) ' Charge le modèle comme nouveau document ' ' Traitement ' ' Fin Set wkb = Nothing End Sub

---

Il ne faudra pas oublier de le sauver sous le nouveau nom.

@deedolith

Citation:

---

Je suspecte qu'en mode "programmé", Excel ajoute d'autorité une particule (sous forme numérique) afin de garantir l'unicité des noms.

---

En tous les cas pas avec la version 365. Il n'ouvre pas un autre classeur du même nom si celui-ci est déjà ouvert.