greenfire15
XLDnaute Nouveau
Bonjour,
J'ai besoin d'un peu d'aide pour résoudre une "erreur d'exécution 424" sur VBA.
Voici ci-dessous le code (en rouge la ligne qui poserai problème) :
Option Explicit
Sub Importer()
Dim i As Long
Dim sDossier As String, sFichier As String, sFeuille As String, ShDatas As Variant
Application.ScreenUpdating = False
ShDatas.Range("D13:E65536").Clear
sDossier = ThisWorkbook.Path & "\"
sFeuille = "Cover page CAA"
For i = 1 To 4
With ShDatas
sFichier = .Cells(1, i)
.Cells(2, i) = ExtraireValeur(sDossier, sFichier, sFeuille, "F9")
.Cells(2, i) = CDate(Cells(2, i))
End With
Next i
Application.ScreenUpdating = True
End Sub
Merci d'avance de votre aide.
Cordailement,
J'ai besoin d'un peu d'aide pour résoudre une "erreur d'exécution 424" sur VBA.
Voici ci-dessous le code (en rouge la ligne qui poserai problème) :
Option Explicit
Sub Importer()
Dim i As Long
Dim sDossier As String, sFichier As String, sFeuille As String, ShDatas As Variant
Application.ScreenUpdating = False
ShDatas.Range("D13:E65536").Clear
sDossier = ThisWorkbook.Path & "\"
sFeuille = "Cover page CAA"
For i = 1 To 4
With ShDatas
sFichier = .Cells(1, i)
.Cells(2, i) = ExtraireValeur(sDossier, sFichier, sFeuille, "F9")
.Cells(2, i) = CDate(Cells(2, i))
End With
Next i
Application.ScreenUpdating = True
End Sub
Merci d'avance de votre aide.
Cordailement,
