Discussion :

[abdelkarim_1987]

Bonjour voila j'essayes d'importer tous les données de ma feuille qui se trouves dans le classeur Absences.xls (y a une seule feuille) dans le classeur actif dans la feuille Absences.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub importation_absences()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
titre = "C:\Users\AA0B554N\Desktop\Actes_TST_BT\Absences.xls"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) ' jouvre le classeur (titre)
wk1.Sheets("Absences") = wbk2.Sheets(1)
wbk2.Close
End Sub

j'ai une erreru objet requis au niveau de la ligne

Code :

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

wk1.Sheets("Absences") = wbk2.Sheets(1)

[Marc-L]

Bonjour,

message normal car cette ligne ne veut rien dire !

Réfléchir donc à ce qu'elle est censée faire puis la corriger certainement en ajoutant des objets manquants …

[abdelkarim_1987]

J'ai réussi à le faire mais juste comment tester que un fichier existe dans un répertoire

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub test()
If Fichier_Exist(Fichier) = True Then
'ton code
End If
End Sub
 
'Vérifie l'existance d'un fichier
Public Function Fichier_Exist(Fichier)
Dim Fso 
Set Fso = CreateObject("Scripting.FileSystemObject")
Fichier_Exist = Fso.FileExists(Fichier)
Set Fso = Nothing
End Function

[Marc-L]

Bonjour,

sinon en une seule instruction via la fonction Dir …