Bonjour,
Je recherche une fonction de tri autre que xlAscending me permettant de trier de la manière suivante :
texte_1_texte.xlsm
texte_2_texte.xlsm
...
texte_9_texte.xlsm
texte_10_texte.xlsm
texte_11_texte.xlsm
etc...
au lieu de :
texte_1_texte.xlsm
texte_10_texte.xlsm
texte_11_texte.xlsm
..
texte_2_texte.xlsm
texte_20_texte.xlsm
etc..
Le cas échéant :
(attention ce n'est plus le même classeur, c'est justement celui qui doit être répertorié et trié. Enfin j'essaye de prendre le problème par tous les bouts !! )
Je peux mettre un format numérique personnalisé (différent de standard, Nombre, compta,..) du type 000, 001,..., 010,..., 100 dans une cellule
Je me sert de la valeur de cette cellule pour enregistrer mon classeur, mais je n'arrive pas à conserver le 001 il me le sauvegarde de la manière suivante :
texte_1_texte.xlsm
Mes tests :
ThisWorkbook.SaveAs ThisWorkbook.Sheets("donnees").Range("B2") & "Fiche_N_" & .Range("C3") & "_" & .Range("C1") & "_banque_d_accueil" & ".xlsm"
ThisWorkbook.SaveAs ThisWorkbook.Sheets("donnees").Range("B2") & "Fiche_N_" & .Range("C3").value & "_" & .Range("C1") & "_banque_d_accueil" & ".xlsm"
Et rien,
Je tourne donc en rond ...
Merci pour votre aide,
Cordialement,
Philippe
Je recherche une fonction de tri autre que xlAscending me permettant de trier de la manière suivante :
texte_1_texte.xlsm
texte_2_texte.xlsm
...
texte_9_texte.xlsm
texte_10_texte.xlsm
texte_11_texte.xlsm
etc...
au lieu de :
texte_1_texte.xlsm
texte_10_texte.xlsm
texte_11_texte.xlsm
..
texte_2_texte.xlsm
texte_20_texte.xlsm
etc..
Le cas échéant :
(attention ce n'est plus le même classeur, c'est justement celui qui doit être répertorié et trié. Enfin j'essaye de prendre le problème par tous les bouts !! )
Je peux mettre un format numérique personnalisé (différent de standard, Nombre, compta,..) du type 000, 001,..., 010,..., 100 dans une cellule
Je me sert de la valeur de cette cellule pour enregistrer mon classeur, mais je n'arrive pas à conserver le 001 il me le sauvegarde de la manière suivante :
texte_1_texte.xlsm
Mes tests :
ThisWorkbook.SaveAs ThisWorkbook.Sheets("donnees").Range("B2") & "Fiche_N_" & .Range("C3") & "_" & .Range("C1") & "_banque_d_accueil" & ".xlsm"
ThisWorkbook.SaveAs ThisWorkbook.Sheets("donnees").Range("B2") & "Fiche_N_" & .Range("C3").value & "_" & .Range("C1") & "_banque_d_accueil" & ".xlsm"
Et rien,
Je tourne donc en rond ...
Merci pour votre aide,
Cordialement,
Philippe