XL 2013 Help VBA

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

SHERIDANA

XLDnaute Nouveau
Bonjour

Je viens de recuperer un fichier avec une macro mais elle bug et je ne comprends rien au macros help me please !!!
ci-dessous la ou ca bug (en gras)



Traitement Feuille SORTIES :
Sheets("SORTIES").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil2").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil2").Name = "SORTIES"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="benenoharet10", Scenarios:=True

' Retour sur fichier de base
Windows(NomFichierXls).Activate

merci de votre aide

Sheridana
 
Trier par date Trier par votes
voila le code complet




Sub Automatisation()
'
' Macro1 Macro
' Macro enregistrée le 14/09/2010
'
' Nommer les données de bases :
MonChemin = ActiveWorkbook.Path
NomFichierXls = ActiveWorkbook.Name
NomFichier = Left(NomFichierXls, Len(NomFichierXls) - 4)

' Selectionner Bassin :
Sheets("Base Travail").Select
Range("A2").Select

' Si cellule ="" (vide) alors arrêt de la Macro
Do Until ActiveCell = ""
cellule = ActiveCell.Address
Bassin = ActiveCell.Value



' Traitement Feuille ENTREES :
Sheets("ENTREES").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur nouvelle feuille
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil1").Name = "ENTREES"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="sheridana", Scenarios:=True

' Enregistrement fichier généré (même chemin)
ActiveWorkbook.SaveAs Filename:=MonChemin & "\" & NomFichier & " " & Bassin & ".xls"

' Retour sur fichier de base
Windows(NomFichierXls).Activate



' Traitement Feuille SORTIES :
Sheets("SORTIES").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil2").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil2").Name = "SORTIES"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="sheridana", Scenarios:=True

' Retour sur fichier de base
Windows(NomFichierXls).Activate




' Traitement Feuille AVENANTS :
Sheets("AVENANTS").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil3").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil3").Name = "AVENANTS"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="sheridana", Scenarios:=True

Sheets.Add
Sheets("Feuil4").Select
Sheets("Feuil4").Move After:=Sheets(4)

' Retour sur fichier de base
Windows(NomFichierXls).Activate




' Traitement Feuille PER PROB :
Sheets("PER PROB").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil4").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil4").Name = "PER PROB"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="sheridana", Scenarios:=True

Sheets.Add
Sheets("Feuil5").Select
Sheets("Feuil5").Move After:=Sheets(5)

' Retour sur fichier de base
Windows(NomFichierXls).Activate




' Traitement Feuille CDD :
Sheets("CDD").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil5").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil5").Name = "CDD"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="sheridana", Scenarios:=True

Sheets.Add
Sheets("Feuil6").Select
Sheets("Feuil6").Move After:=Sheets(6)

' Retour sur fichier de base
Windows(NomFichierXls).Activate




' Traitement Feuille MISSION - AVT TEMP :
Sheets("MISSION - AVT TEMP").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil6").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil6").Name = "MISSION - AVT TEMP"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="sheridana", Scenarios:=True

Sheets.Add
Sheets("Feuil7").Select
Sheets("Feuil7").Move After:=Sheets(7)

' Retour sur fichier de base
Windows(NomFichierXls).Activate




' Traitement Feuille CHEQUE :
Sheets("CHEQUE").Select

' Filtre sur Bassin :
Selection.AutoFilter Field:=5, Criteria1:=Bassin, Operator:=xlAnd

' Copie données visible uniquement sur feuille existante
Range("A1:M1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows(NomFichier & " " & Bassin & ".xls").Activate
Sheets("Feuil7").Select
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
Sheets("Feuil7").Name = "CHEQUE"

' Protection feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Password:="sheridana", Scenarios:=True


' Enregistrement fichier généré (même chemin) écrasement du fichier crée juste avant sans message d'alerte

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=MonChemin & "\" & NomFichier & " " & Bassin & ".xls"
Application.ThisWorkbook.Saved = True

Application.DisplayAlerts = True

'ActiveWorkbook.SaveAs Filename:=MonChemin & "\" & NomFichier & " " & Bassin & ".xls"

'Fermeture du fichier créer
ActiveWindow.Close
Sheets("Base Travail").Select
Range(cellule).Select

' Descendre d'une case vers le bas et de 0 vers la droite pour gestion Bassin suivant
ActiveCell.Offset(1, 0).Select

Loop

' Enlever le filtre sur chaque onglet :
Sheets("ENTREES").Select
Selection.AutoFilter Field:=5
Range("A1").Select
Sheets("SORTIES").Select
Selection.AutoFilter Field:=5
Range("A1").Select
Sheets("AVENANTS").Select
Selection.AutoFilter Field:=5
Range("A1").Select
Sheets("PER PROB").Select
Selection.AutoFilter Field:=5
Range("A1").Select
Sheets("CDD").Select
Selection.AutoFilter Field:=5
Sheets("MISSION - AVT TEMP").Select
Selection.AutoFilter Field:=5
Range("A1").Select
Sheets("CHEQUE").Select
Selection.AutoFilter Field:=5
Range("A1").Select
Sheets("Base Travail").Select
Range("A2").Select

MsgBox ("La Génération est Terminée")

End Sub
 
Vote positif 0 Vote négatif
je pense que quand il créee le classeur la feuille 2 n'existe pas du coup il bloque car la premiere est bien crée mais il bloque à la création de du traitement de la feuilles SORTIES.
Du coup quand je regarde le fichier generer il y a bien l'onglet entre mais c'est tout
 
Vote positif 0 Vote négatif
du coup je ne sais pas comment lui dire de créer un autre onglet à la suite du premier créer et si c'est vraiment ca le probleme
car si je comprends bien il reprend bien le fichier créer mais le probleme arrive juste après ( Windows(nomfichier & " " & Bassin & ".xls").Activate)
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
693
Phil69970
Phil69970
treza88
  • Question Question
XL 2021 Problème ouverture fichier sur feuille protégée
Réponses
6
Affichages
754
treza88
treza88
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
530
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
732
dadu35
D
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
mouchtre
Usine à gaz
  • Résolu(e)
XL 2021 touches Ctrl+R pour revenir
Réponses
4
Affichages
553
TooFatBoy
TooFatBoy
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
710
Cheyenne_2021
C
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
752
M@xu3L
M
Usine à gaz
  • Question Question
XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()
3 4 5
Réponses
62
Affichages
3 K
Usine à gaz
Usine à gaz
PatFr38
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
PatFr38
lestoiles1
  • Question Question
XL 2013 Fonction vba copie coller
Réponses
1
Affichages
1 K
job75
job75
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
ERIC S
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
644
un internaute
U
P
  • Question Question
XL 2016 Découpage Fichier Excel en plusieurs Fichiers selon une clé - VBA
Réponses
1
Affichages
2 K
fanch55
fanch55
O
  • Question Question
XL 2019 protection de feuille par macro
Réponses
3
Affichages
725
Deadpool_CC
Deadpool_CC
M
  • Question Question
Microsoft 365 Ajout d'une image VBA
Réponses
6
Affichages
685
sylvanu
sylvanu
Usine à gaz
  • Résolu(e)
Microsoft 365 Macro modification que je ne sais pas faire
5 6 7
Réponses
98
Affichages
7 K
TooFatBoy
TooFatBoy
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
Retour