Problème enrgistrement+imprimer sur autre pc

[millopas]

Bonjour,

Je vous expliques mon petit problème.. j'ai actuellement sur mon pc perso une facturation que j'ai élaboré avec excel.

Ayant mis une macro imprimer + enregistrement automatique en format PDF sur la lettre F: de mon disque, jusque là, pas de problème. Mais dès que je met cette facturation sur le pc du travail il me dit:

" Erreur de compilation:"
Projet ou bibliothèque introuvable!

Ensuite il m'encadre en jaune Sub imprimer et en bleu Rep =

J’informe que je n'ai pas de F: sur l'autre pc. Es-que c'est ça...??

Pourquoi? 😕

merci d'avance à vous qui surement me trouverez mon problème.

 

[fhoest]

Re : Problème enrgistrement+imprimer sur autre pc

Bonsoir,
je ne vois pas de problème,mais je n'ai pas la version du bureau ,lorsque cela se passe,appuie sur la touche F8 (pas a pas de l'exécution de la macro) comme cela tu auras la ligne exacte qui retourne l'erreur,si les versions diffèrent de chez toi a celle du boulot cela est sans doute la raison,il faut peut être modifier la syntaxe.
A bientôt.

 

[millopas]

Re : Problème enrgistrement+imprimer sur autre pc

Bonsoir fhoest,

Merci de m'avoir répondu tout d'abord.

La version du travail et de la maison étant la même.

Alors je viens d'effectuer la manip que tu me dit de faire (F8) et il me trouve l'erreur sur la Li 5, col 5

Et comment modifier la syntaxe si jamais?

 

[fhoest]

Re : Problème enrgistrement+imprimer sur autre pc

Re,
es ce que c'est cette ligne:

sNom = ActiveSheet.Range("E5")

si oui met plutot:

sNom = ActiveSheet.Range("E5")[COLOR="Red"].Value[/COLOR]

si non écrit la ligne de code ou cela bugg
A+

 

[millopas]

Re : Problème enrgistrement+imprimer sur autre pc

Re,
Voici la ligne...
code:

Rep = msgbox ("voulez-vous imprimez?", etc...

C'est Rep = qui ce mais en bleu et m'ouvre la boîte de dialogue "Erreur de compilation " Projet ou bibliothèque introuvable.

A+

 

[fhoest]

Re : Problème enrgistrement+imprimer sur autre pc

avant cette ligne qui bugg,

Dim rep As String

je pense que c'est parce que la variable n'est pas déclarer.
A bientôt.

 

[millopas]

Re : Problème enrgistrement+imprimer sur autre pc

Ok c'est bon pour le code

Dim rep As String

mais maintenant il bloque à la ligne

 ActiveSheet.ExportAsFixedFormat Type:= etc..

je rajoute dim d'après toi?

 

[fhoest]

Re : Problème enrgistrement+imprimer sur autre pc

et oui,
sans doute a cause du format de la date qui est avec des "/ "
essai de modifier le format de date avec des "_" car je doute que les "/" ne soit accepter dans le nom d'un fichier

sDate = ActiveSheet.Range("A14")
    sDate = Replace(sDate, "/", "_")

voici ce que tu dois inscrire après la ligne sdate=activesheet...
A+

 

[millopas]

Re : Problème enrgistrement+imprimer sur autre pc

je regarde tout ça demain, trop fatigué 😱

En tout cas un grand merci pour ton aide.

Bonne nuit

 

[millopas]

Re : Problème enrgistrement en pdf +imprimer sur autre pc

Bonjour,

Je reviens vers vous pour trouvé une solution à mon prôblème de sauvegarde en pdf et impression sur mon autre ordinateur.

je viens de changé par ceci

Dim rep As String

Mais j'ai toujours un autre problème, il me sort ensuite Erreur d'execution "1004" je fait débogage...

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

et voilà qu'il ce fixe sur la ligne:

:=False, OpenAfterPublish:=False

Pourquoi? 😕

 

[fhoest]

Re : Problème enrgistrement+imprimer sur autre pc

Bonjour ,
dans le code es ce que tu as inclus ce que j'ai mis plus haut ("fonction replace")
car le problème pour moi vient de la .
si tu analyse bien tu verra que le nom pdf contient la date dans un format "/" il te faut alors remplacer par "_" la fonction replace le fait.
A bientôt

 

[millopas]

Re : Problème enrgistrement+imprimer sur autre pc

Salut fhoest,

Je crois bien que hier soir j'étais trop fatigué, car j'avais essayé ton code mais rien ne ce passais...

Et je viens à l'instant de le remettre comme tu as dit. Et comme par "hasard" Ca marche nickel! 😀

Je te remnercie infiniment pour avoir passé ton temps sur mon problème.

Bon we à toi, et merci à ce forum.🙂

 

[millopas]

Re : Problème enrgistrement+imprimer sur autre pc

Encore moi 😉

Je voulais juste mettre le code en ligne pour quelqu'un d'autre qui serai intéressé par une sauvegarde en pdf et l'imprimer sur la même macro!

Le voici:

Sub imprimer()
'
' imprimer Macro

Dim Rep
Rep = MsgBox("Voulez-vous imprimez ?", vbYesNo + vbQuestion, "imprimer + sauvegarder")
    If Rep = vbYes Then
        'Range("A1:G43").Select
        Dim sDate As String, sNum As String
Dim sNom As String, sNomFichierPDF As String
    sNum = ActiveSheet.Range("B11")
    sDate = ActiveSheet.Range("A14")
    sDate = Replace(sDate, "/", "_")
    sNom = ActiveSheet.Range("E5")

    sNomFichierPDF = sNum & "_" & sDate & "_" & sNom & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=True, OpenAfterPublish:=True
        
    Range("G1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=2
    
End If

End Sub