Probleme sur visual basic 6 excel Résolu/Fermé

Question

Bonjour,

Je suis comptable dans une boite de broadcast, pour mes immobilisation j'ai créé sur excel comprenant un bouton (incliant mon probleme) pour transmettre par le biai des boite mail de différent collaborateurs les fiches qui auront remplis. Mais j'ai un probleme dans ma formule visual basic :

Dim cop As String
Dim chem As String

cop = Range("T2") & Range("D7")

chem = "P:\Engineering\Support\Opérations\Inventaire-Suivi_equipement\Fiches de bien\"

ActiveWorkbook.SendMail Recipients:=Array("<ital>destinataire"), Subject:="Création/Modification Fiche de Bien " & Range("D7")

cop = Application.GetSaveAsFilename(chem & cop)

If chem <> True Then
ActiveWorkbook.SaveCopyAs chem = "P:\Engineering\Support\Opérations\Inventaire-Suivi_equipement\Fiches de bien\"
End If

ActiveWorkbook.Close
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

quand une personne execute ce code il ou elle recoit ce message d'erreur:

Erreur d'execution '13':
incompatibilité de type

et la ligne IF et en surlignée Jaune

avez vous une idée pour corriger mon probleme ???

si vous avez besoin de plus de détaille dites le moi..

Merci

gbinforme · Answer

bonjour

Tu défini ta variable : Dim chem As String

Ensuite tu testes : If chem <> True 

C'est normal que le type soit incompatible car "True" est Boolean.

Je ne vois pas bien pourquoi tu fais ce test car c'est "cop" qui est modifié mais il aurait le même souci.

lermite222 · Answer

Bonjour,
Essaye en ajoutant/modifiant
Dim Retour 
Retour = Application.GetSaveAsFilename(chem & cop) 

If not Retour Then 
    ActiveWorkbook.SaveCopyAs  "P:\Engineering\Support\Opérations\Inventaire-Suivi_equipement\Fiches de bien\" 
End If 
A+

lermite222 · Answer

J'a! confondu avec Get... et pas Get
Dim Retour as string
Retour = Application.GetSaveAsFilename(chem & cop)
If Retour <> "" Then 
ActiveWorkbook.SaveCopyAs Retour
end if
Je pense que cette fois c'est la bonne
A+

faboramix · Answer

UN GRAND MERCI !!!! c'est bon ça fonctionne !!!!! probleme résolut

Probleme sur visual basic 6 excel

4 réponses

Newsletters