éditeur VBA Excel: Réactiver une feuille ouverte au nom variable
Résolu/Fermé
borgognoremy
Messages postés
19
Date d'inscription
vendredi 17 mai 2013
Statut
Membre
Dernière intervention
6 juin 2013
-
Modifié par borgognoremy le 30/05/2013 à 16:43
borgognoremy - 2 juin 2013 à 18:16
borgognoremy - 2 juin 2013 à 18:16
A voir également:
- éditeur VBA Excel: Réactiver une feuille ouverte au nom variable
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
borgognoremy
Messages postés
19
Date d'inscription
vendredi 17 mai 2013
Statut
Membre
Dernière intervention
6 juin 2013
31 mai 2013 à 10:17
31 mai 2013 à 10:17
A oublier... problème résolu seul.
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
Modifié par pilas31 le 31/05/2013 à 11:11
Modifié par pilas31 le 31/05/2013 à 11:11
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,
