Bouton enregister ne fonctionne pas bien

[Ilino]

Bonjour forum
Je vous sollicite a m’aider pour régler cette erreur.
Voila mon souci, j’ai un petit programme non finalisé, il a fonctionné correctement sur mon PC (domicile), quand je l’ai installé sur un autre PC il se bloque ( quand je clik sur le boutton Enregistrer) il affiche l’erreur suivante :

 Erreur d’exécution ‘5’
Argument ou appel de procédure  incorrecte

MERCI PAR AVANCE

 

[JCGL]

Re : Bouton enregister ne fonctionne pas bien

Bonjour à tous,

L'impression de type PDF n'est pas disponible sous XL 2003.
Il faut passer par PDFCreator ou autres.

A + à tous

 

[Ilino]

Re : Bouton enregister ne fonctionne pas bien

Bonjour jcgl , merci pour la réponse ...
Est-ce que il y a une autre possibilité de l’imprimer en Word ( conger le code du boutton Imprimer) SI OUI COMMENT , ?
Merci

 

[JCGL]

Re : Bouton enregister ne fonctionne pas bien

Bonjour à tous,

Si tu ne souhaites pas installer PDFCreator sur tous les postes en XL 2003, utilise un format HTML :

ActiveWorkbook.SaveAs Filename:="C:\Users\JCGL\Test.mht", FileFormat:=xlWebArchive

ou

ActiveWorkbook.SaveAs Filename:="C:\Users\JCGL\Test.mhtml", FileFormat:=xlWebArchive

A + à tous

 

[Ilino]

Re : Bouton enregister ne fonctionne pas bien

Re bonjour
si tu permets j'ai pas bien compris ton code ( est ce que tu parles du boutton enregistrer ou imprimer ??)
merci

Private Sub CommandButton4_Click()

Dim ch As String, client As String
Dim Num As String, NomFichier As String

client = TextBox2.Value  '----< le nom de la feuille enregistrée >----
Num = NumOffre.Value
ch = ActiveWorkbook.Path
NomFichier = "Offre_" & client & "_" & Num

Sheets(Array("Model")).Copy '----< la feuille enregistrée >----
ActiveWorkbook.CheckCompatibility = False
ActiveSheet.name = NomFichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 ch & "\" & NomFichier & ".pdf", Quality:=xlQualityStandard, _
 IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'ActiveWorkbook.SaveAs Filename:="C:\Users\JCGL\model.mht", FileFormat:=xlWebArchive
ActiveWorkbook.Close False

MsgBox "Offre enregistrée sous nom : " & NomFichier & ".Pdf"

End Sub[\CODE]

 

[Ilino]

Re : Bouton enregister ne fonctionne pas bien

Bonsoir forum
je suis désolé pour ces rappels y a t il des suggestion pour mon pblm.?
Merci

 

[Ilino]

Re : Bouton enregister ne fonctionne pas bien

Bonsoir forum
peut on avoir votre aide ?
merci