Discussion :

[guigui1976]

Bonjour, voilà je désire faire l'importation de valeurs analytiques contenu dans un fichier log vers un fichier de traitement excel.

j'arrive bien à ouvrir le .log en excel mais je bloque sur la copie vers le fichier de destination;
Si vous avez une piste, je suis preneur.
Guigui1976

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
nom = Range("a2").Value
adresse = Range("b2").Value
Nom_Fichier = adresse & nom 'emplacemeent ou se trouve le fichier
If Nom_Fichier <> False Then ' vérification de la présence ou non d'une référence de fichier
    Workbooks.OpenText Filename:=Nom_Fichier, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
End If
 
 Windows(nom).Activate
 
    Range("A1:O1").Select
    Application.CutCopyMode = False
    Selection.CopyThisWorkbook.Activate
Range("d12").Paste
Windows(nom).Close
End Sub
[ATTACH]213847[/ATTACH]

[Menhir]

Quelques détails sur ton code :
Tes trois premières lignes pourraient se résumer en une seule.

Code :

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

Nom_Fichier = Range("b2").Value & Range("a2").Value 'emplacemeent ou se trouve le fichier

Mais je te conseille de déclarer les variables que tu utilises :

Code :

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

Dim Nom_Fichier As String

Là, je ne vois pas trop ce que tu essayes de faire :

Code :

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

If Nom_Fichier <> False Then ' vérification de la présence ou non d'une référence de fichier

Tu compares une chaine de caractères avec une valeur booléenne.
Si tu veux vérifier l'existence du fichier dont ta variable porte le nom, ce n'est pas la bonne méthode.

j'arrive bien à ouvrir le .log en excel mais je bloque sur la copie vers le fichier de destination;

Si ce que tu veux faire c'est enregistrer au format XLSX avec comme nom "log.xlsx" le fichier que tu viens d'ouvrir, alors remplace tout ce qui suit le End If par :

Code :

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

1
2
ActiveWorkbook.SaveAs(Range("b2").Value & "log.xlsx", xlOpenXMLWorkbook)
ActiveWorkbook.Close

[guigui1976]

Merci, à toi pour c'est réponse.
Bien vu pour les déclarations de variable et la compilation nom_Fichier.
La vérification est pour être sur qu'il est bien un nom de fichier dans la cellule avant d'aller + loin dans la macro.
ce que je désire c'est de copier les valeurs contenue dans le fichier vers le fichier ou est "logé" la macro, puis de refermer le fichier log pourqu'il puisse être utilisé par le matériel d'analyse.

un grand merci pour ton aide

Guigui1976