Erreur 424 pendant exécution macro.
tehtintin
-
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
skk201 Messages postés 942 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis (très novice) en VBA et j'ai un problème lors de l'exécution de ma macro excel dont voici le code:
Option Explicit
Dim F(), Col
Dim Chemin, NomFichier, wb2, Fdép
Sub SyntheseDesOutils()
Application.ScreenUpdating = False
Application.EnableEvents = False
Set Fdép = ActiveSheet
Chemin = ThisWorkbook.Path & "\"
NomFichier = Dir(Chemin & "*.xls*") 'ouvre tous les fichiers .xls*
With Fdép
Do While Len(NomFichier) > 0
If NomFichier <> ThisWorkbook.Name Then
Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
End If
Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
.Range("B:B").Copy .Range(.Columns(Col), .Columns(Col + 1))
wb2.Close False
Loop
End With
End Sub
Apparament le code bloque au moment ou je veux fermer la feuille ouverte (ecriture en gras)
Avec vous une idée de ce à quoi c'est du ?
la boucle est reprise en grande partie d'une macro qui fonctionne parfaitement !
Je suis (très novice) en VBA et j'ai un problème lors de l'exécution de ma macro excel dont voici le code:
Option Explicit
Dim F(), Col
Dim Chemin, NomFichier, wb2, Fdép
Sub SyntheseDesOutils()
Application.ScreenUpdating = False
Application.EnableEvents = False
Set Fdép = ActiveSheet
Chemin = ThisWorkbook.Path & "\"
NomFichier = Dir(Chemin & "*.xls*") 'ouvre tous les fichiers .xls*
With Fdép
Do While Len(NomFichier) > 0
If NomFichier <> ThisWorkbook.Name Then
Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
End If
Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
.Range("B:B").Copy .Range(.Columns(Col), .Columns(Col + 1))
wb2.Close False
Loop
End With
End Sub
Apparament le code bloque au moment ou je veux fermer la feuille ouverte (ecriture en gras)
Avec vous une idée de ce à quoi c'est du ?
la boucle est reprise en grande partie d'une macro qui fonctionne parfaitement !
A voir également:
- Erreur 424 pendant exécution macro.
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Macro word - Guide
1 réponse
ça viendrai pas du fait que wb2.Close False se trouve dans le With ?
Est-ce que ça marche comme ça ?
Option Explicit
Dim F(), Col
Dim Chemin, NomFichier, wb2, Fdép
Sub SyntheseDesOutils()
Application.ScreenUpdating = False
Application.EnableEvents = False
Set Fdép = ActiveSheet
Chemin = ThisWorkbook.Path & "\"
NomFichier = Dir(Chemin & "*.xls*") 'ouvre tous les fichiers .xls*
Do While Len(NomFichier) > 0
With Fdép
If NomFichier <> ThisWorkbook.Name Then
Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
End If
Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
.Range("B:B").Copy .Range(.Columns(Col), .Columns(Col + 1))
End With
wb2.Close False
Loop
End Sub
Est-ce que ça marche comme ça ?
