Discussion :

[jackall]

Bonjour à tous,

Voila j'ai l'intention d'ouvrir et de copier dans mon classeur excel et sur deux feuille différente deux fichiers en correspondances dans le même dossier.

J'arrive à ouvrir et à copier dans la feuille 1 le premier fichier avec le code :

Code :

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

1
2
3
4
5
6
7
8
        MsgBox "Selection du fichier" 'boite de dialogue ouvrant un fichier
        strCsv = Application.GetOpenFilename("All Files ,*.*", , "Sélectionner le fichier à ouvrir")
 
 
        Workbooks.OpenText strCsv, xlWindows, 1, xlDelimited, , , True, , , , , , , , "." '**Ouvrir fichier
 
        ActiveSheet.Cells.Copy shG.Cells(1, 1) '******************************* Copier contenu dans "feuil1"
        ActiveWorkbook.Close False '******************************************* Fermeture du fichier

Le premier fichier que j'ouvre s'appel "station1 du 29-5_1"
Le deuxième fichier que je voudrais ouvrir s'appel "station2 du 29-5_1"
J'ai réussi a mettre dans la variable strCsv le nom du 1er fichier mais je n'arrive pas à l'utilser pour trouver le 2ème.

Voila en espérant de mettre bien expliqué, je reste à votre disposition pour d'autre info si besoin.

Cordialement

[jackall]

j'ai trouver quelque chose qui fonctionne bien quand je debug, mais qui me donne une erreur.

voila le code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Récup_données()
    'declaration des variables
    Dim strCsv As String, strTemp() As String
    Dim wb As Workbook, wbTemp As Workbook, shG As Worksheet, shR As Worksheet, shTemp As Worksheet
    Dim I As Integer
    'suppression du rafraichissement d'écran
    Application.ScreenUpdating = False
 
    Set wb = ThisWorkbook
    Set shG = wb.Sheets("Feuil1")
    Set shR = wb.Sheets("Feuil2")
    'sélection du fichier premier fichier
    strCsv = Application.GetOpenFilename("All Files ,*.*", , "Sélectionner le fichier des pièces GOOD à ouvrir")
    If strCsv = "False" Then Exit Sub
        'delete des feuilles "Feuil1" et "Feuil2"
        shG.Cells.Delete
        shR.Cells.Delete
    'ouvrir fichier 1
    Workbooks.OpenText strCsv, xlWindows, 1, xlDelimited, , , True, , , , , , , , "."
    'copie du fichier 1 dans  la "Feuil1"
    ActiveSheet.Cells.Copy shG.Cells(1, 1)
    'fermeture du fichier
    ActiveWorkbook.Close False
    'recherche du nom du 2eme fichier
    strTemp = Split(strCsv, "\")
    I = UBound(strTemp)
    strTemp(I) = "station2" & Right(strTemp(I), Len(strTemp(I)) - 8)
 
    strCsv = strTemp(0)
    For j = 1 To I
        strCsv = strCsv & "\" & strTemp(j)
    Next j
 
    'ouvrir et copier fichier 2
    Workbooks.OpenText strCsv, xlWindows, 1, xlDelimited, , , True, , , , , , , , "."
    ActiveSheet.Cells.Copy shR.Cells(1, 1)
    ActiveWorkbook.Close False
 
    Application.ScreenUpdating = True
 
End Sub

et voila l'erreur que sa me retourne :

Erreur d'exécution '1004'
'station2 du 29-5_1.xls' introuvable. Vérifiez l'orthographe du nom du
classeur et la validité de l'emplacement.

Si vous essayez 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é.

voila j'ai vérifier, le nom de ficher est bon, le chemin est bon aussi et il n'a pas été renommé, déplacé ou supprimé ... je ne comprend pas l'erreur
quelq'un aurait une solution ?

Cordialement

[aalex_38]

Je ne sais pas sur quelle ligne le code plante en tout cas il me semble que pour ouvrir un fichier excel ce n'est pas :

Code :

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

Workbooks.OpenText

qu'il faut utiliser mais plutôt :

Code :

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

1
2
Dim CL1 As Workbook
 Set CL1 = Workbooks.Open(Filename:="D:\...\.....xls")

[jackall]

Arf dans ma précipitation j'ai oublié de dire ou sa planté,

l'erreur arrive à la ligne :

Code :

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

1
2
   'ouvrir et copier fichier 2
    Workbooks.OpenText strCsv, xlWindows, 1, xlDelimited, , , True, , , , , , , , "."

je vais néanmois regarder ce que tu me dit, mais pour ouvrir le premier fichier

Code :

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

Workbooks.OpenText

fonctionne bien

Cordialement

[aalex_38]

Le code que tu as repris est sans doute utilisé pour ouvrir des fichiers au format csv

Ok je te laisse regarder.

[jackall]

bon aprés test acharné , toujour le même résultat
voila ce que j'ai écrit, je me suis peu être tromper dans ma synthaxe :

Code :

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

1
2
Dim CL1 As Workbook
Set CL1 = WorkBooks.Open(Filename = strCsv)

J'ai placé CL1 au tout début ou je déclare mes autres variable


il me donne la même erreur sauf qu'il me dit cette fois :

'Faux.xls' introuvable

ce que je ne comprend pas, il devrait me prendre plutôt le chemin qu'il a calculer au dessu dans la variable strCsv

Je ne suis pas loin de la solution mais je ne la vois toujours pas ...

Cordialement