[résolu] créer un repertoire qui renvoi sur plusieurs class

[satine]

Bonsoir,

certains utilisent 2007 mais ca n'est pas la majorité, d'ailleurs je convertis tous mes fichiers en 1997-2003 pour etre sure qu'il n'y ai aucun problème.

par contre je peux mettre mes 500 fichiers et mon listing dans le même dossier, ca ne pose pas de problèmes

[Mytå]

re le forum

Satine regarde si cela pourrait convenir

Tu enregistres le fichier dans le même répertoire que tes classeurs : Le fichier LISITING_CLIENTS.xls

Mytå

[satine]

OMG, c'est magique ce que tu as fais

ca marche, c'est génial

je ne sais pas comment te remercier , tu me rends un service immense et en plus j'ai l'impression que je vais pouvoir me servir de ce fichier magique dans chacun de mes dossiers.

merci beaucoup papa Noel , c'est vraiment très sympat ce que tu as fais pour moi

[Mytå]

Re le forum

Satine, je l'ai fait rapidement mais si tu as besoin que j'ajoute des commentaires, tu n'as qu'à le demander

Ca aideras surement la compréhension de la macro

Mytå

P.S. Il devrait être compatible pour toutes les version d'excel (PC) besoin d'un testeur sous MAC.

[satine]

en fait si c'est pas trop compliqué pour toi, je serais curieuse d'avoir quelques infos sur comment tu as fais, des infos basiques parce que je ne connais les macros que de noms

j'en reviens toujours pas, je le mets dans n'importe quel dossier et il me liste tout tout seul

je m'en vais de ce pas diffuser la bonne adresse qu'est ce forum

[Mytå]

Re le forum

En explication, la base des macros (JMD va être content de moi, je ne documente pas souvent mes codes.)

Code: Tout sélectionner

Option Explicit 'Obligation de déclarer les variables

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Effacement de la feuille et enregistrement du fichier vierge
    Sheets("Liens").Cells.Delete
    ThisWorkbook.Close True
End Sub

Private Sub Workbook_Open()

Dim Ligne As Long 'Ligne ou écrire
Dim sPath As String 'Le répertoire du fichier
Dim sFil As String 'Le nom des fichiers

Sheets("Liens").Activate
Cells.Delete

    Ligne = 2
   
    sPath = ThisWorkbook.Path 'Récupération du répertoire en cours
'On adapte les chemins de travail
    ChDrive sPath
    ChDir sPath
     
    sFil = Dir("*.xls") 'Fichier à rechercher
     
    Do While sFil <> "" 'On boucle sur le répertoire
      If sFil <> ThisWorkbook.Name Then 'On évite le nom du classeur qui lance la macro
        Cells(Ligne, 1) = Left(sFil, InStr(sFil, ".") - 1) 'Nom du fichier sans extension
        Cells(Ligne, 2).Select 'Création du lien Hypertexte
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
              Address:=sFil, _
                TextToDisplay:="Ouvrir le dossier de : " & Left(sFil, InStr(sFil, ".") - 1)
        Ligne = Ligne + 1 'Ligne suivante pour inscription
      End If
        sFil = Dir
    Loop 'On boucle sur le répertoire tant que pas vide
     
Columns("A:B").Columns.AutoFit 'Adaptation des largeurs de colonnes

End Sub

Mytå

P.S. انت جميلة جدا

[satine]

c'est un peu comme si tu parlais un langage qui m'est étranger mais je le garde précieusement dans le cas ou je me pencherai plus sérieusement sur les macros et VB.

encore merci de ton aide, tu peux pas imaginer comme je suis contente