Dim CheminBur As String, FicImport As String
Dim sFeuil As String, sPlage As String
Dim NbLig As Long, NbCol As Long
DossierMachin = Sheets("Options").Range("L3").Value
DossierMachin= Environ("USERPROFILE") & "\Desktop\Programmes\machin\"
Fichier = Dir(DossierMachin & "\" & UCase(Sheets("Accueil").Range("G21").Value) & "*")
If Fichier = "" Then MsgBox "Votre fichier n'existe pas !!!" & Chr(13) & "Ou votre fichier ne se trouve pas dans le bon dossier 'Machin'": Sheets("Accueil").Range("G21").Select: End
sFeuil = "Feuil1": sPlage = "A1:T2800"
NbLig = Range(sPlage).Rows.Count: NbCol = Range(sPlage).Columns.Count
With Sheets("Report")
With .Range("A1").Resize(NbLig, NbCol)
.FormulaLocal = "='" & DossierMachin & "[" & Fichier & "]" & sFeuil & "'!" & sPlage
.Value = .Value
End With
End With
Verifier
ConvertiColonne2