recuperer données d'un classeur fermé

[youklebambou]

Bonjour à tous,
après avoir posé la question et cherché sur plusieurs forums je ne trouve pas de réponses satisfaisante à ma question...j’espère que quelqu'un pourra m'aider...
J'explique je suis sur un "classeur 1" et je cherche à recuperer des données d'un "classeur 2" mais fermé!
Connaissais vous une solution????

 

[youklebambou]

bonjour job!!! merci infiniment j'ai tout ce qu'il me faut normalement pour travailler efficacement ^^ encore désolé d'avoir abusé de ta patience et de ton temps.
pour cette nouvelle formule j'ai en gros a chaque copie 250 ligne et 10 colonnes a copier donc la ca me prend a peine 2 secondes donc ta formules est pour moi nickel
a bientôt tout le monde

 

[job75]

Re,

pour cette nouvelle formule j'ai en gros a chaque copie 250 ligne et 10 colonnes a copier donc la ca me prend a peine 2 secondes

Chez moi 0,72 seconde.

A+

 

[job75]

Re,

Utilisez plutôt cette macro, plus rapide :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim dossier$, chemin$, nomfichier$, F As Worksheet
dossier = "B" 'nom du dossier cousin, à adapter
chemin = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & dossier
nomfichier = [A1] & ".csv" 'nom du fichier csv à copier
Set F = Feuil2 'CodeName à adapter
Application.ScreenUpdating = False
On Error Resume Next 'si le fichier n'existe pas
F.Cells.ClearContents 'RAZ
With Workbooks.Open(chemin & "\" & nomfichier).Sheets(1)
  F.[A1].Resize(.UsedRange.Rows.Count) = .UsedRange.Value
  .Parent.Close
End With
F.UsedRange.TextToColumns F.[A1], xlDelimited, Semicolon:=True 'commande Convertir
F.Columns.AutoFit 'ajustement largeur
If Application.CountA(F.UsedRange) Then F.Activate 'facultatif
End Sub

La commande Convertir est maintenant appliquée à la feuille de destination.

Fichiers joints, la macro s'exécute en 0,51 seconde sur des tableaux 250 x 10.

A+

 

[youklebambou]

re bonjour j'ai essayé cette nouvelle formule mais celle ci me copie que le début de chaque ligne de mon .CSV donc pas idéal ;-) j'ai gardé la 1ere solution et je l'ai adapté elle marche très bien!
merci pour ton implication