Bonjour à tous,
 
Tout d'abord je remercie tout le monde pour le temps que vous allez consacrer à mon topic.  
Je suis nouveau sur le forum et pas du tout expert en VBA, lors de l'exécution de ma macro ci-dessous, je rencontre une erreur d'exécution de type 1004 et je ne comprends pas d'où cela vient. J'ai autrefois utilisé ce bout de code pour des actions similaires et je n'ai jamais rencontré ce problème.
Quelqu'un saurait il m'aider ?
 
Sub ExtractFaits()
 
Dim Flash1
Dim nomfichier As String
Dim SplitChemin() As String
 
 
Application.ScreenUpdating = False
 
 
'Evite les bugs d'affichage
Application.ScreenUpdating = False
 
'Demande à l'utilisateur d'ouvrir son flash report pour compléter le tableau
Flash1 = Application.GetOpenFilename("Fichiers .XLS (*.xls),*.xls, Fichiers .XLSX(*.xlsx),*.xlsx,Fichiers .XLSM (*.xlsm),*.xlsm" )
If Flash1 = False Then Exit Sub
 
'Ouverture du fichier sélectionné
Workbooks.Open Flash1
ReadOnly = True
Windows(ActiveWorkbook.Name).Visible = True
 
'Permet de découper les chemins en fonction des \ pour pouvoir obtenir le nom du fichier
SplitChemin = Split(Flash1, "\", -1, vbTextCompare)
nomfichier = SplitChemin(UBound(SplitChemin))
 
'Copie l'intitulé du projet du fichier Flash1
Worksheets("FLASHREPORT" ).Activate
Worksheets("FLASHREPORT" ).Range("E1" ).Select
Selection.Copy
 
 
'Colle l'intitulé du projet au bon emplacement
Windows("Extract flash hebdo.xls" ).Activate
Worksheets("Faits" ).Activate
Range("A7" ).Select
With ActiveSheet
   Selection.PasteSpecial Paste:=xlPasteValues
End With
 
'Ferme le fichier Flash1
Application.DisplayAlerts = False
Workbooks(nomfichier).Close
 
Application.ScreenUpdating = True
 
 
End Sub
 
 
 
Par avance merci de votre aide.
 
Amicalement,
 
Miguel
 

Bonjour,
Code testé sur mon PC : pas d'erreur!???
Remarque : un close sans un save? A moins que tu aies un Private Sub Workbook_BeforeClose(Cancel As Boolean)....
Peux tu joindre tes fichiers???

 
Bonjour Nyati1969,
 
Tout d'abord merci d'avoir pris le temps de regarder mon problème et désolé de ma réponse tardive, je n'avais pas accès à internet ces derniers jours.
Je ne rencontre plus mon problème, en fait, ce que j'ai fais c'est qu'à chaque fois que je faisais appel à un nouveau fichier excel et donc une nouvelle feuille, j'activais et le nouveau fichier excel et la nouvelle feuille. Du coup plus aucun problème et un code qui tourne normalement.
 
Merci encore.
 
Cordialement,
 
Miguel