Bonjour,
J'ai un fichier excel qui fonctionnait bien mais depuis quelques jours il y a un bug dans une macro. Elle sert à copier des informations d'un fichier à un autre (de Livre de recettes à Suivi alimentaire (menus, liste des courses, dépenses)).
Je précise que les deux fichiers se trouvent dans le même dossier.
Le bug apparaît à la ligne Windows avec une erreur '9' L'indice n'appartient pas à la sélection. Auriez-vous une idée d'où vient le problème ? J'ai cherché sur des forums mais même en changeant la formule, ça ne résout pas mon problème.
Merci d'avance,
Mfaeko.
J'ai un fichier excel qui fonctionnait bien mais depuis quelques jours il y a un bug dans une macro. Elle sert à copier des informations d'un fichier à un autre (de Livre de recettes à Suivi alimentaire (menus, liste des courses, dépenses)).
VB:
Sub MàJliste() ' MàJ des catégories
Dim wb As Workbook, LigneSuivi As Integer, LigneLivre As Integer
Application.ScreenUpdating = False
Chemin = Workbooks(ActiveWorkbook.Name).Path & "\" ' Chemin fichier courant (suivi alim.)
Set wb = Workbooks.Open(Chemin & "Livre de recettes.xlsm") ' Chemin fichier à adapter si necessaire
Windows("Suivi alimentaire (menus, liste des courses, dépenses).xlsm").Activate
Range("A2:D1000").ClearContents
Set f = Workbooks("Livre de recettes.xlsm")
' Ici un extrait des données à copier, normalement pas de problème pour ces codes
LigneSuivi = 2
LigneLivre = 3
While f.Sheets(2).Range("M" & LigneLivre) <> "" ' Dessert
Cells(LigneSuivi, 3) = f.Sheets(2).Range("M" & LigneLivre)
LigneLivre = LigneLivre + 1
LigneSuivi = LigneSuivi + 1
Wend
Range("C2:C1000").Sort Key1:=Range("C2"), Order1:=xlAscending
Workbooks("Livre de recettes.xlsm").Close
End Sub
Je précise que les deux fichiers se trouvent dans le même dossier.
Le bug apparaît à la ligne Windows avec une erreur '9' L'indice n'appartient pas à la sélection. Auriez-vous une idée d'où vient le problème ? J'ai cherché sur des forums mais même en changeant la formule, ça ne résout pas mon problème.
Merci d'avance,
Mfaeko.