Discussion :

[Nicolas149]

Bonjour à tous et mes meilleurs voeux pour cette nouvelle année,

j'aimerais créer une macro qui me permette de copier rapidement des données d'un fichier .DAT fermé (provenant du même dossier que le fichier EXCEL) dans un fichier EXCEL ouvert. Malheureusement, le code ci-joint ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub copyfastliste()
 
ActiveSheet.Range("B3:B12").Value = "=" & ThisWorkbook.Path & "\" & "TTT liste.DAT" & "!A1:A10"
 
End Sub

Pouvez-vous m'aider ? J'ai vu des codes qui le faisait en plusieurs étapes (ouvrant le fichier .DAT, copiant des données et le refermant) sur internet mais j'aimerais ne pas avoir à ouvrir le document. Il y a aussi certainement un problème de lecture d'un fichier .DAT mais sans l'ouvrir ..

Merci d'avance pour votre aide.

Nicolas149

[Neutthsch]

Salut Nicolas,

Malheureusement tu es obligé de l'ouvrir. Cependant pourquoi cherche tu à t'y soustraite, le programme le fait en masqué de toute façon.

[Nicolas149]

Salut Neuttsch, merci de ta réponse ! Je pensais simplement que ça serait plus rapide

Je me demande donc alors si, avec les 2 fichiers ouverts, s'il est possible de copier les valeurs sans passer par des Windows().Activate ? J'ai tenté d'écrire un code mais ça "erreur 9" à la 2eme ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Workbooks.Open Filename:=ThisWorkbook.Path & "\TTT liste.DAT" _
        , Origin:=xlWindows, Delimiter:=Chr(9)
 
Workbooks("TTT initial.xls").Sheets("lancement_calcul").Range("B3:B12").Value = Workbooks("TTT liste.DAT").Sheets(1).Range("B3:B12").Copy
 
Workbooks("TTT liste.DAT").close SaveChanges:=False

Pouvez-vous m'aider ?

Merci beaucoup

Nicolas149

[joe.levrai]

Bonjour,

tu as inversé la logique du Copy

essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("TTT liste.DAT").Sheets(1).Range("B3:B12").Copy Workbooks("TTT initial.xls").Sheets("lancement_calcul").Range("B3:B12")

[Nicolas149]

Salut Joelevrai ! Merci pour ta réponse ! J'ai bien inséré ta proposition de modification de code mais j'ai une erreur qui apparaît : "Erreur d'exécution '-2147352565 (8002000b)' Dimension spécifiée non valide pour le type de graphique en cours". Les valeurs que je veux copier sont numériques et sont comprises entre 0 et 100

Une idée ?

Voici la dernière version de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Workbooks.Open Filename:=ThisWorkbook.Path & "\TTT liste.DAT" _
        , Origin:=xlWindows, Delimiter:=Chr(9)
 
Workbooks("TTT liste.DAT").Sheets(1).Range("A1:A10").Copy Workbooks("TTT initial.xls").Sheets("lancement_calcul").Range("B3:B12")
 
Workbooks("TTT liste.DAT").Close SaveChanges:=False

Nicolas149

[joe.levrai]

Euh ... graphique ?? là tu n'as pas tout dis

la copie des chiffres se réalise bien ou pas ?

ces chiffres alimentent une plage source d'un graphique ?