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
A voir également:
- Probleme sur visual basic 6 excel
- Visual basic - Télécharger - Langages
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Comment trier par ordre alphabétique sur excel - Guide
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.
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.
faboramix
en faite je me suis trompé dans le code que j'ai mentionné sur le forum, ce n'est pas "TRUE" MAIS "FALSE" quiu est mentionné dans mon code VB mais j'ai le même message d'erreur avec les deux formule...
Bonjour,
Essaye en ajoutant/modifiant
A+
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+
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 ???
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 ???