éditeur VBA Excel: Réactiver une feuille ouverte au nom variable
Résolu
borgognoremy
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
borgognoremy -
borgognoremy -
A voir également:
- éditeur VBA Excel: Réactiver une feuille ouverte au nom variable
- Editeur video windows - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
Bonjour,
Pour info si d'autres ont déjà regardé voila les anomalies trouvées :
1/ le bouton n'était pas associé à la macro "Sub Nvx_class_par_affaire"
2/ des erreurs dans la macro corrigées en gras :
Sub Nvx_class_par_affaire()
'Macro créant un nouveaux classeur par projet et exécutant des tâches diverses'
Chemin = ActiveWorkbook.Path
'Formule de boucle'
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Sheets("Accueil").Select
affaire = Range("A" & L).Value
ChemFiche = Chemin & "\" & affaire & ".xls"
'Ajout d'un nouveau classeur'
Workbooks.Add
'Renomme les feuilles'
Worksheets("Feuil1").Name = "Résumé"
Worksheets("Feuil2").Name = "Dépenses"
Worksheets("Feuil3").Name = "Engagements"
'Sauvegarde du classeur à l'emplacement du fichier source'
ActiveWorkbook.SaveAs ChemFiche
'activation du fichier source et ouverture feuille Depenses_cum"
Workbooks("Exemple.xlsm").Activate
Sheets("Depenses_m").Select
'Filtre la feuille sur l'affaire'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A:$Y").AutoFilter Field:=4, Criteria1:=affaire
'Copie des données colonne A à Y'
Range("A:$Y").Copy
'Coller dans le fichier de l'affaire'
Workbooks(affaire & ".xls").Activate
Sheets("Dépenses").Select
Range("A:$Y").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'Ferme le classeur de l'affaire'
ActiveWorkbook.Close True
Next
End Sub
Voila comme cela je peux mettre en résolu.
Cordialement,
Pour info si d'autres ont déjà regardé voila les anomalies trouvées :
1/ le bouton n'était pas associé à la macro "Sub Nvx_class_par_affaire"
2/ des erreurs dans la macro corrigées en gras :
Sub Nvx_class_par_affaire()
'Macro créant un nouveaux classeur par projet et exécutant des tâches diverses'
Chemin = ActiveWorkbook.Path
'Formule de boucle'
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Sheets("Accueil").Select
affaire = Range("A" & L).Value
ChemFiche = Chemin & "\" & affaire & ".xls"
'Ajout d'un nouveau classeur'
Workbooks.Add
'Renomme les feuilles'
Worksheets("Feuil1").Name = "Résumé"
Worksheets("Feuil2").Name = "Dépenses"
Worksheets("Feuil3").Name = "Engagements"
'Sauvegarde du classeur à l'emplacement du fichier source'
ActiveWorkbook.SaveAs ChemFiche
'activation du fichier source et ouverture feuille Depenses_cum"
Workbooks("Exemple.xlsm").Activate
Sheets("Depenses_m").Select
'Filtre la feuille sur l'affaire'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A:$Y").AutoFilter Field:=4, Criteria1:=affaire
'Copie des données colonne A à Y'
Range("A:$Y").Copy
'Coller dans le fichier de l'affaire'
Workbooks(affaire & ".xls").Activate
Sheets("Dépenses").Select
Range("A:$Y").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'Ferme le classeur de l'affaire'
ActiveWorkbook.Close True
Next
End Sub
Voila comme cela je peux mettre en résolu.
Cordialement,