Bonjour
j'ai la structure suivante:
D:/Budgets/Budget04/Budgets/ budget_mercredi_04.xls
D:/Budgets/Budget04/Données/Balances_Prev_04.xls
J'ai une macro qui me permet de transférer des données de la feuille DepRec
du classeur budget_mercredi_04 dans la feuille Bal du classeur
Balance_Prev_04
La macro fonctionne relativement bien sauf à la fin:
au début de la macro :
'chemin du classeur de destination
ChDir "D:\Budgets\Budget_04\Données"
Workbooks.Open
Filename:="D:\Budgets\Budget_04\Données\Balances_Prev_04.xls" _
, UpdateLinks:=3
Set Balance = Sheets("Bal")
ce code fonctionne
Mais à la fin de la macro:
Windows("Budget_Mercredi_04.xls").Activate
Worksheets("DepRec").Cells(Ligne, 19).Select
'passer à la ligne suivante
ActiveCell.Offset(1, 0).Select
Next Ligne
Application.Calculation = xlAutomatic
Workbooks("Balances_Prev_04.xls").Activate
Workbooks("Balances_Prev_04.xls").Save
End Sub
Cela ne fonctionne plus au niveau de Workbooks( Balances_Prev_04.xls).
Activate
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonjour,
Mais à la fin de la macro: Windows("Budget_Mercredi_04.xls").Activate
Cette ligne cherche à activer la fenêtre dont le nom est entre guillemets. Cela suppose que le classeur soit préalablement ouvert et que le nom soit bien orthographié.
@+ FxM
Bonjour,
Mais à la fin de la macro:
Windows("Budget_Mercredi_04.xls").Activate
Cette ligne cherche à activer la fenêtre dont le nom est entre
guillemets. Cela suppose que le classeur soit préalablement ouvert et
que le nom soit bien orthographié.
Mais à la fin de la macro: Windows("Budget_Mercredi_04.xls").Activate
Cette ligne cherche à activer la fenêtre dont le nom est entre guillemets. Cela suppose que le classeur soit préalablement ouvert et que le nom soit bien orthographié.
