Re : Arborescence d'un dossier
Bonjour Roland.
La forme ? Dernier message à 1h09 ... wouahou ...
J'ai essayé mais j'obtiens une erreur d'exécution 1004 : "L'accès par programme au projet Visual Basic n'est pas fiable".
Ça coince sur : If Workbooks(I).VBProject.Name = "FindRoland" Then
A ce moment, les 2 classeurs sont ouverts.
Du coup, j'ai essayé d'enregistrer une macro qui effectue la copie toute seule. La voici :
Sub CopieFeuilles()
'
' CopieFeuilles Macro
'
'
Windows("ListRepFichArboresMarcaplusFind.xlsm").Activate
Cells.Select
Selection.ClearContents
Sheets("Arborescence").Select
Cells.Select
Selection.ClearContents
Windows("ListRepFichArboresMarcaplusLoad.xlsm").Activate
Cells.Select
Selection.Copy
Windows("ListRepFichArboresMarcaplusFind.xlsm").Activate
Sheets("Fichiers").Select
Range("A1").Select
ActiveSheet.Paste
Windows("ListRepFichArboresMarcaplusLoad.xlsm").Activate
Sheets("Arborescence").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("ListRepFichArboresMarcaplusFind.xlsm").Activate
Sheets("Arborescence").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Elle fonctionne bien une fois, mais ne copie plus le contenu de la feuille Fichiers quand je la relance. A voir ...
Au fait, à propos des fichiers joints dans le forum : ce matin ils étaient à 1 affichage, et toujours à 1 après mes téléchargements.
Ca n'a pas l'air de fonctionner correctement, leur système de compteur d'affichage, même après un rafraîchissement de la page.
A plus
Marc