Programme de BON de Commande VBA au choix

[Bens7]

Bonjour a tous je suois tous nouveaux en VBA et j'ai reussi a combiner (grace au forum) plusieurs fonction
mais la je n'ai aucune idee comment faire :

BOUTON 1 : sauvegarde en excel + pdf
BOUTON 2: Imprime
Bouton 3 : Ennvoie du mail

le soucci c'est que j'arrive a faire ca que dans la Feuil : PROGRAMME
et je voudrais pouvoir selectionner quel feuil (B3) les operations plus haut seront effectue

B3= FORMULAIRE 2
BOUTON1: sauvegarde en excel + (FORMULAIRE 2)en pdf
BOUTON2: Imprime le FORMULAIRE 2
BOUTON 3: Envoie du Mail
voir fichier en pieces jointe mERCI !

 

[Papou-net]

Re : Programme de BON de Commande VBA au choix

Bonsoir Bens7,

Ci-joint une proposition pour les macros Sauvegarde et Impression!

Sub Sauvegarde()
'
'Sauvegarde PDf
Dim Fichier As String
Fichier = "C:\Documents and Settings\pc-maison\Bureau\PUB\PDF\" & [B5].Value & "" & [E26].Value
Sheets(ActiveSheet.Range("B3").Value).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
    
'Sauvegarde xlsm
Fichier = "C:\Documents and Settings\pc-maison\Bureau\PUB\WORD\" & [B5].Value & "" & [E26].Value
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=Fichier

MsgBox ("Fichier Enregistrer dans votre dossier WORD et PDF")
End Sub

Sub Impression()
'
' Impression Macro
'
Sheets(ActiveSheet.Range("B3").Value).PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
MsgBox ("Votre Fichier est Imprimer")
End Sub

Pour l'envoi par mail, je n'ai pu y regarder n'ayant pas installé Outlook sur mon poste.

Cordialement.

 

[Bens7]

Re : Programme de BON de Commande VBA au choix

parfait !!!!
MAIS SI LES FEUIL SONT MASQUER CA MARCHE PAS ON PEUT PAS FAIRE QUELQUE CHOSE ?

 

[Papou-net]

Re : Programme de BON de Commande VBA au choix

parfait !!!!
MAIS SI LES FEUIL SONT MASQUER CA MARCHE PAS ON PEUT PAS FAIRE QUELQUE CHOSE ?

RE:

Si, on peut faire quelque chose, mais ne surtout pas hurler (écriture en majuscules = crier).

Essaie plutôt comme ceci:

Sub Sauvegarde()
'
'Sauvegarde PDf
Dim Fichier As String
Application.ScreenUpdating = False
Fichier = "C:\Documents and Settings\pc-maison\Bureau\PUB\PDF\" & [B5].Value & "" & [E26].Value
With Sheets(ActiveSheet.Range("B3").Value)
  .Visible = True
  .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
  .Visible = False
End With
'Sauvegarde xlsm
Fichier = "C:\Documents and Settings\pc-maison\Bureau\PUB\WORD\" & [B5].Value & "" & [E26].Value
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=Fichier
Application.ScreenUpdating = True

MsgBox ("Fichier Enregistrer dans votre dossier WORD et PDF")
End Sub

Sub Impression()
'
' Impression Macro
'
Application.ScreenUpdating = False
Sheets(ActiveSheet.Range("B3").Value).PrintOut Copies:=1, Collate:=True, _
  IgnorePrintAreas:=False
Application.ScreenUpdating = True
MsgBox ("Votre Fichier est Imprimer")
End Sub

Cordialement.

 

[Bens7]

Re : Programme de BON de Commande VBA au choix

Ha desole j'avais pas vu les majuscules Ok je test demain Merci beacoup en tous cas !

 

[Bens7]

Re : Programme de BON de Commande VBA au choix

C'est bon ca marche !
Par contre j;ai un soucci mon bon de commande doit etre sur 15 Ordi different
je voulais savoir comment mettre au lieu de :
Fichier = "C:\Documents and Settings\pc-maison\Bureau\PUB\PDF\
Mettre tous simplement le fichier formulaire dans un dossier (ou ce trouve aussi le dossier PDF et le dossier WORD)
du genre : source\WORD ET source\PDF
comme ca j'ai juste a deplacer le fichier Exemple Sarl.xlsm dans le dossier de chaque PC:

J'ai essayer ca mais ca marche pas :
Sub Sauvegarde()
'
'Sauvegarde PDf
Dim Fichier As String
Fichier = ActiveWorkbook.Path & [B10].Value & "" & [E26].Value
Sheets(ActiveSheet.Range("A3").Value).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

'Sauvegarde xlsm
Fichier = ActiveWorkbook.Path & [B10].Value & "" & [E26].Value
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=Fichier

MsgBox ("Fichier Enregistrer dans votre dossier WORD et PDF")
End Sub

 

[Papou-net]

Re : Programme de BON de Commande VBA au choix

Bonjour Bens77,

Apparemment, il manque les séparateurs de répertoires ("\"),

Essaie comme ceci:

Sub Sauvegarde()
'
Dim Fichier As String
Fichier = ActiveWorkbook.Path & "\" & [B10].Value & "\" & [E26].Value
'Sauvegarde PDf
Sheets(ActiveSheet.Range("A3").Value).ExportAsFixe  dFormat Type:=xlTypePDF, Filename:=Fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
    
'Sauvegarde xlsm
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=Fichier

MsgBox ("Fichier Enregistrer dans votre dossier WORD et PDF")
End Sub

Cordialement.

 

[Bens7]

Re : Programme de BON de Commande VBA au choix

J'arrive pas je connais pas vraiment le VBA :
peut tu me mettre le code ?

Exemple:
le dossier ou se trouve le formulaire est :
\\Ben-pc\pc-15\PUB\Formulaire.xlsm

et les dossier :
\\Ben-pc\pc-15\PUB\PDF\
\\Ben-pc\pc-15\PUB\WORD\

Mais sur le reseau Ben-pc ya 15 Ordi juste depose le formulaire dans chaque dossier PUB et c'est bon plus besoin de mettre la source a chaque fois dans le macro :
"\\Ben-pc\pc-15\PUB\PDF\"
"\\Ben-pc\pc-15\PUB\WORD\"

Voila ca m'aiderais Grave !!!!!!!!

 

[Bens7]

Re : Programme de BON de Commande VBA au choix

Non c'est bon j'ai reussi mais je suis donc confronter a un autre probleme:

Fichier = ActiveWorkbook.Path & "\" & "WORD" & "\" & [B10].Value & "" & [E26].Value
donc ca marche mais le soucci c'est que une fois le fichier enrengistrer dans le dossier WORD le fichier a pris maintenant le Nom de : B10 est le soucci c'est qu'il se trouve dans :
\\Ben-pc\pc-15\PUB\WORD\B10.xlsm
et donc si je fais des changements sur le formulaire et que je refais Sauvegarder en PDF et bein il peut pas vu que le
ActiveWorkbook.Path est maintenant WORD

Le TOP c'est de creer une copie de ce fichier Formulaire.xlsm dans le dossier WORD et que la bas (dans le dossier WORD) si je fais des modifs il ecrase le fichier present dans la meme source

 

[Bens7]

Re : Programme de BON de Commande VBA au choix

Bon Alors j'ai mis le formulaire dans le dossier WORD (\\Ben-pc\pc-15\PUB\WORD\) est un Racourcci ou je veux donc c'est bon ca donne ca au final :

Sub Sauvegarde()
'
'Sauvegarde PDf
Dim Fichier As String
Application.ScreenUpdating = False
Fichier = ActiveWorkbook.Path & "\" & [B10].Value & "" & [E26].Value
With Sheets(ActiveSheet.Range("I1").Value)
.Visible = True
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
.Visible = True
End With
'Sauvegarde xlsm
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbookMacroEnabled, Filename:=Fichier
Application.ScreenUpdating = True

MsgBox ("Fichier Enregistrer dans votre dossier WORD et PDF")
End Sub

Mais j'arrive pas configurer pour sauvegarder dans le dossier PDF \\Ben-pc\pc-15\PUB\PDF\pas dans : ActiveWorkbook.Path
mais dans le dossier en arriere et PDF\ (genre BeforeActiveWorkbook.Path & "\" & "\" & "\"

Voila apres je te lache ! Merci au fait !!!!!!

 

[Papou-net]

Re : Programme de BON de Commande VBA au choix

RE:

Fais un essai en remplaçant ActiveWorkbook par ThisWorkbook, ce qui n'est pas tout-à-fait identique.

Sinon, peux-tu joindre le schéma de l'arborescence de tes répertoires ?

A +

Cordialement.