Astuces Excel
  1. Astuces Excel
  3. Erreur de compilation Excel: Impossible d'affecter à la propriété en lecture seule
Intereting Posts
Le moyen le plus rapide de parcourir 50k lignes de file Excel dans OpenPYXL Excel obtient max entre deux cellules (NOT RANGE) Connectez-vous à SQL Compact Edition avec Macro Trouver une valeur dans un tableau avec varible suppression des plages nommées dans VSTO Modifiez la couleur de remplissage d'une cellule en fonction d'une sélection d'une list déroulante dans une cellule adjacente Formule Array Excel, utiliser les informations d'un résultat IF comme critère dans une autre IF? Excel Spreadsheet pour suivre et créer des jointures Erreur lors de la search de la correspondance exacte Afficher les lignes mises à jour lorsque datatables sont actualisées dans une feuille de calcul Excel Base de données et connection Android et stockage de la database sur le mobile Automatisez l'ajout de données de tableau croisé dynamic mises à jour quotidiennement à une nouvelle cellule dans une table ASP.NET – datatable to excel – modifier le format de la date Excel pour additionner la valeur des duplicates tout en conservant son text en double Excel data validatoin and filtering

Erreur de compilation Excel: Impossible d'affecter à la propriété en lecture seule

Je reçois une erreur dans Excel concernant l'affectation à une propriété en lecture seule avec le code suivant: 

1 Sub GetSheets() 2 Path = "C:WHERE MY DOCUMENTS ARE KEPT" 3 Filename = Dir(Path & "*.CSV") 4 Do While Filename <> "" 5 Workbooks.Open Filename:=Path & Filename, ReadOnly:=True 6 For Each Sheet In ActiveWorkbook.Sheets 7 Sheet.Copy After:=ThisWorkbook.Sheets(1) 8 Next Sheet 9 Workbooks(Filename).Close 10 Filename = Dir() 11 Loop 12 End Sub

Je suppose que vous avez le code affiché dans le module ThisWorkbook ?

ThisWorkbook représente le classur lui-même, qui possède une propriété de ThisWorkbook embeddede (en lecture seule).

Renommez le Path vers (par exemple) myPath et vous devriez être OK. 

 Sub GetSheets() 'best to use a Constant here... Const THE_PATH As Ssortingng = "C:\WHERE\MY DOCUMENTS\ARE KEPT\" Dim Filename as Ssortingng, wb As Workbook, Sheet As Worksheet Filename = Dir(THE_PATH & "*.CSV") Do While Filename <> "" Set wb = Workbooks.Open(Filename:=THE_PATH & Filename, ReadOnly:=True) For Each Sheet In wb.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet wb.Close Filename = Dir() Loop End Sub