Probleme Code VB 06

Question

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("destinataire"), Subject:="Création/Modification Fiche de Bien " & Range("D7") 

cop = Application.GetSaveAsFilename(chem & cop) 

If chem <> False 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

Renfield · Answer

chem = "P:\Engineering\Support\Opérations\Inventaire-Suivi_equipement\Fiches de bien" 
If chem <> False Then 

pourquoi chem vaudrait il False ?
quel test souhaites tu faire ?


faire

ActiveWorkbook.SaveCopyAs chem 

et non

ActiveWorkbook.SaveCopyAs chem = "P:\Engineering\Support\Opérations\Inventaire-Suivi_equipement\Fiches de bien"

faboramix · Answer

en faite ce n'est réellement un teste que je veut faire, mais plus une modification, je voudrais que lorsque l'interlocuteur clique sur le bouton un mail parte directement vers la messagerie de la compta (état fonctionnel a ce jour) et qu'excel d'éclanche la procédure de "enregistrer sous" dans le chemin mentionné dans "chem"...

faboramix · Answer

je viens de tester en suprimant 

ActiveWorkbook.SaveCopyAs chem = "P:\Engineering\Support\Opérations\Inventaire-Suivi_equipement\Fiches de bien" 

et en ne laissant que 
If chem <> False Then 
ActiveWorkbook.SaveCopyAs chem 

mais j'ai toujours le même probleme... si ce n'est pas correct excuse moi car je t'avoue que je débute dans VB et c'est pas encore simple pour moi... :)

en tout cas merci pour ton aide

Renfield · Answer

Dim cop As Variant
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("destinataire"), _
                        Subject:="Création/Modification Fiche de Bien " & Range("D7") 

cop = Application.GetSaveAsFilename(chem & cop) 
If cop<> False Then 
    ActiveWorkbook.SaveCopyAs cop
End If 
ActiveWorkbook.Close

Probleme Code VB 06

4 réponses

Votre réponse

Discussions similaires