Fusion de classeur excel

[wolf6541]

Bonjour,

voila j'essaye actuellement de rassembler des données provenant de plusieurs classeurs excel dans un seul fichier ( ces données étant issues de calcul )

Pour cela j'utilise la macro suivante :

Private Sub cmdRecupere_Click()
Dim intFile As Integer
Dim strWB As String
Dim strFile As String
Dim lgDerLig As Long

Application.ScreenUpdating = False
Application.EnableEvents = False

' Nom du classeur actuel
strWB = ThisWorkbook.Name

lgDerLig = 2

' Récupération du premier fichier dans le répertoire
Chemin = "V:\Stage\bilan_annuel"
strFile = Dir(Chemin & "\*.xls")

' Boucle du 1er au dernier classeur dans le répertoire
Do While strFile <> ""
' Si le classeur n'est pas le classeur de destination
If strFile <> strWB Then
' Ouvrir le fichier
Workbooks.Open ThisWorkbook.Path & strFile

' Sélectionner le 1er onglet feuille de saisie
ActiveWorkbook.Worksheets(4).Activate

' Copie des données

Workbooks(strWB).Worksheets("Feuil2").Range("A" & lgDerLig) = Worksheets("1_Descriptif réalisé").Range("C4")

Workbooks(strWB).Worksheets("Feuil2").Range("B" & lgDerLig) = Worksheets("3_Personnel").Range("H8")
Workbooks(strWB).Worksheets("Feuil2").Range("C" & lgDerLig) = Worksheets("3_Personnel").Range("H9")
Workbooks(strWB).Worksheets("Feuil2").Range("D" & lgDerLig) = Worksheets("3_Personnel").Range("H10")
Workbooks(strWB).Worksheets("Feuil1").Range("E" & lgDerLig) = Worksheets("3_Personnel").Range("H11")

Workbooks(strWB).Worksheets("Feuil2").Range("G" & lgDerLig) = Worksheets("3_Personnel").Range("H15")
Workbooks(strWB).Worksheets("Feuil2").Range("H" & lgDerLig) = Worksheets("3_Personnel").Range("H16")
Workbooks(strWB).Worksheets("Feuil2").Range("I" & lgDerLig) = Worksheets("3_Personnel").Range("H17")
Workbooks(strWB).Worksheets("Feuil2").Range("J" & lgDerLig) = Worksheets("3_Personnel").Range("H18")

Workbooks(strWB).Worksheets("Feuil1").Range("K" & lgDerLig) = Worksheets("2_Activités").Range("L17")

lgDerLig = lgDerLig + 1

' Fermeture du classeur
Workbooks(strFile).Close
End If

' Classeur suivant
strFile = Dir
Loop

MsgBox "Le traitement des fichiers est terminé.", vbInformation, "Traitement..."

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

le problème arrive quand je lance la macro et que l'erreur suivante apparait :

Erreur d'exécution '1004'
'01_EDE_09.xls introuvable ( premier fichier du dossier ), Vérifiez l'orthographe du nom du classeur et la validité de l'emplacement ( ce qui à été fait)
Si vous essayer d'ouvrir le fichier à partir de la liste des fichiers les plus récents, assurez-vous que le fichier n'a pas été renommé, déplacé ou supprimé ( pas utilisé )

Voila si vous avez des questions supplémentaires n'hésitez pas car pour le moment je suis bien embêté

Merci

 

[Hippolite]

Re : Fusion de classeur excel

Bonjour,

' Ouvrir le fichier
Workbooks.Open ThisWorkbook.Path & strFile

essaie

Workbooks.Open ThisWorkbook.Path & "\" & strFile

A+

 

[wolf6541]

Re : Fusion de classeur excel

Bonjour , merci pour ta réponse

Je me suis rendu compte que l'erreur venait du fait que mon fichier de sauvegarde n'était pas placé au bon endroit, ta modification a permis de résoudre le problème suivant :=)


Encore merci et à la prochaine