Probleme sur visual basic 6 excel
Résolu
faboramix
-
faboramix -
faboramix -
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
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
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
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. -
Bonjour,
Essaye en ajoutant/modifiantDim 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+
-
Bonjour et merci pour votre aide,
je viens de tester le code que tu ma transmit 'lermite222' mais lors de la sauvegard j'ai toujour le même message d'erreur... toute fois je te redonne le résultat au cas ou je me serai tromper
Private Sub CommandButton1_Click()
Dim cop As String
Dim chem As String
cop = "FDB " & Range("D7")
chem = "P:\Engineering\Support\Opérations\Inventaire-Suivi_equipement\Fiches de bien\"
ActiveWorkbook.SendMail Recipients:=Array("fabrice.gouhier@arqiva.com"), Subject:="Création/Modification Fiche de Bien " & Range("D7")
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
ActiveWorkbook.Close
End Sub
aurais tu une autre idée ???
-
-
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+ -
