S
saber
Guest
Bonjour,
et merci Creeps j'ai pu résoudre le premier prb de compilation, grâce a tes conseil,
et me revoila face à un second probléme, tjr du même type,
en effet:
Private Sub CopyVolumesData(wbkTarget As Workbook)
Dim pptVolume As DocumentProperty
On Error Resume Next
For Each pptVolume In Me.CustomDocumentProperties
If Left$(pptVolume.Name, Len(cstrVolumeData)) = cstrVolumeData Then
wbkTarget.CustomDocumentProperties.Add pptVolume.Name, False, pptVolume.Type, ""
wbkTarget.CustomDocumentProperties(pptVolume.Name).Value = pptVolume.Value
End If
Next
End Sub
sur cette ligne : Dim pptVolume As DocumentProperty
le compilateur me dis:
erreur de compilation!
type défini par lutilisateur non défini!
sachant ke je boss sous windows95 et excel 97
merci
saber
et merci Creeps j'ai pu résoudre le premier prb de compilation, grâce a tes conseil,
et me revoila face à un second probléme, tjr du même type,
en effet:
Private Sub CopyVolumesData(wbkTarget As Workbook)
Dim pptVolume As DocumentProperty
On Error Resume Next
For Each pptVolume In Me.CustomDocumentProperties
If Left$(pptVolume.Name, Len(cstrVolumeData)) = cstrVolumeData Then
wbkTarget.CustomDocumentProperties.Add pptVolume.Name, False, pptVolume.Type, ""
wbkTarget.CustomDocumentProperties(pptVolume.Name).Value = pptVolume.Value
End If
Next
End Sub
sur cette ligne : Dim pptVolume As DocumentProperty
le compilateur me dis:
erreur de compilation!
type défini par lutilisateur non défini!
sachant ke je boss sous windows95 et excel 97
merci
saber