récupération données plusieurs fichiers

Re : récupération données plusieurs fichiers

bnjour az

Dans aucun des fichiers annexes fournis ne figure de Range("Nom")
Teste apres avoir nommé le Range (Insertion > Nom > definir) dans chacun de ces fichiers

Re : récupération données plusieurs fichiers

effectivement je test ca, merci de ta réponse

Re : récupération données plusieurs fichiers

La difficulté est que j'aimerais récupérer les données à partir de fichier exportés depuis une application (du coup sans Range défini).
Il va donc me falloir modifier ma macro, est-ce que tu aurais des idées pour ça ?

Pour info la macro a été trouvée ici (pour ceux qui chercheraient le même info)
http://www.commentcamarche.net/forum/affich-7781598-macro-pour-fusion-de-plusieurs-fichier-dans-1

Re : récupération données plusieurs fichiers

Re

il te suffit de remplacer Nom par l'adresse du range que tu veux copier sans oublier le nom de la feuille
Exemple

Re : récupération données plusieurs fichiers

Bonjour à tous,
J'ai à peu près un problème similaire:
Je souhaiterai importer dans un seul documents des données qui se trouvent dans plusieurs fichiers (dans un onglet particulier), ces onglets ayant la meme structure. Tous ces fichiers se trouvent dans le même dossier.
Dans ces onglets, je souhaiterai récuperer certaines valeurs texte et nombre (les nombres étant donnés par des formules).

quelqu'un a t-il une idée? merci par avance de vous interresser à mon cas.

Damien.

Re : récupération données plusieurs fichiers

Bon suite à une recherche dans le forum de ce site, j'ai réussi à adapter une macro (merci à celui qui l'a batie) à mes besoins:

La voici:
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
strFile = Dir(ThisWorkbook.Path & "\*.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(1).Activate
' Copier la 2me ligne dans le classeur Total
Worksheets(1).Range("C5").Copy Destination:=Workbooks(strWB).Worksheets("Feuil1").Range("A" & lgDerLig)
Worksheets(1).Range("C6").Copy Destination:=Workbooks(strWB).Worksheets("Feuil1").Range("B" & lgDerLig)
Worksheets(1).Range("C84").Copy Destination:=Workbooks(strWB).Worksheets("Feuil1").Range("C" & lgDerLig)
Worksheets(1).Range("C86").Copy Destination:=Workbooks(strWB).Worksheets("Feuil1").Range("D" & lgDerLig)

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


Mon pb: les cellules C84 et C86 sont des nombres (déterminés par des formules). Du coup, que dois-je écrire pour que ce soit un copier / coller valeur et non simplement un copier / coller. En effet, le résultat pour ces deux cellules sur mon fichier destination est #N/A.

Merci

Damslab

Re : récupération données plusieurs fichiers

#REF! (et non#N/A) : j'ai été rop vite dans la rédaction de la note