Sub Extract_Exif()
Dim Fichier As String
Dim clEx As clExif
Set clEx = New clExif
Fichier = "E:\Toto3.jpg"
clEx.OpenFile Fichier ' Ouvre le fichier avec gdi+
Range("A4").Value = clEx.GetExifData(TagApertureValue)
Range("B4").Value = clEx.GetExifData(TagArtist)
Range("C4").Value = clEx.GetExifData(TagBrightnessValue)
Range("D4").Value = clEx.GetExifData(TagColorSpace)
Range("E4").Value = clEx.GetExifData(TagCompression)
Range("F4").Value = clEx.GetExifData(TagContrast)
Range("G4").Value = clEx.GetExifData(TagCopyright)
Range("H4").Value = clEx.GetExifData(TagDateTimeDigitized)
Range("I4").Value = clEx.GetExifData(TagDateTimeOriginal)
Range("J4").Value = clEx.GetExifData(TagDeviceSettingDescription)
Range("K4").Value = clEx.GetExifData(TagDigitalZoomRatio)
Range("L4").Value = clEx.GetExifData(TagDocumentName)
Range("M4").Value = clEx.GetExifData(TagEquipMake)
Range("N4").Value = clEx.GetExifData(TagEquipModel)
Range("O4").Value = clEx.GetExifData(TagExifVersion)
Range("P4").Value = clEx.GetExifData(TagExposureBiasValue)
Range("Q4").Value = clEx.GetExifData(TagExposureIndex)
Range("R4").Value = clEx.GetExifData(TagExposureMode)
Range("S4").Value = clEx.GetExifData(TagExposureProgram)
Range("T4").Value = clEx.GetExifData(TagExposureTime)
Range("U4").Value = clEx.GetExifData(TagFlash)
Range("V4").Value = clEx.GetExifData(TagFlashEnergy)
Range("W4").Value = clEx.GetExifData(TagFlashpixVersion)
Range("X4").Value = clEx.GetExifData(TagFNumber)
Range("Y4").Value = clEx.GetExifData(TagFocalLength)
Range("Z4").Value = clEx.GetExifData(TagFocalLengthIn35mmFilm)
Range("AA4").Value = clEx.GetExifData(TagGainControl)
Range("AB4").Value = clEx.GetExifData(TagImageDescription)
Range("AC4").Value = clEx.GetExifData(TagImageHeight)
Range("AD4").Value = clEx.GetExifData(TagImageWidth)
Range("AE4").Value = clEx.GetExifData(TagImageUniqueID)
Range("AF4").Value = clEx.GetExifData(TagISOSpeedRatings)
Range("AG4").Value = clEx.GetExifData(TagLightSource)
Range("AH4").Value = clEx.GetExifData(TagMakerNote)
Range("AI4").Value = clEx.GetExifData(TagMaxApertureValue)
Range("AJ4").Value = clEx.GetExifData(TagMeteringMode)
Range("AK4").Value = clEx.GetExifData(TagRelatedSoundFile)
Range("AL4").Value = clEx.GetExifData(TagSaturation)
Range("AM4").Value = clEx.GetExifData(TagSceneCaptureType)
Range("AN4").Value = clEx.GetExifData(TagSensingMethod)
Range("AO4").Value = clEx.GetExifData(TagSharpness)
Range("AP4").Value = clEx.GetExifData(TagShutterSpeedValue)
Range("AQ4").Value = clEx.GetExifData(TagSoftWare)
Range("AR4").Value = clEx.GetExifData(TagSpectralSensitivity)
Range("AS4").Value = clEx.GetExifData(TagSubjectArea)
Range("AT4").Value = clEx.GetExifData(TagSubjectDistance)
Range("AU4").Value = clEx.GetExifData(TagSubjectDistanceRange)
Range("AV4").Value = clEx.GetExifData(TagSubjectLocation)
Range("AW4").Value = clEx.GetExifData(TagThumbnailData)
Range("AX4").Value = clEx.GetExifData(TagWhiteBalance)
Range("AY4").Value = clEx.GetExifData(TagXResolution)
Range("AZ4").Value = clEx.GetExifData(TagYResolution)
clEx.CloseFile
End Sub