XL 2016 VBA

soan à dit:

Bonjour guy, (salut sylvanu)

bienvenue sur le site XLD ! (bonjour à ta fille, et bonne chance pour son magasin ! )

essaye avec :

VB:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\L'Alter-Eco\bon de commande\" & [PO!C11] & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

ATTENTION : comme ton fichier a l'extension .xlsx, il ne peut PAS contenir de macros ! tu dois l'enregistrer en .xlsm pour pouvoir y mettre des macros ! pour cela, appuie sur la touche F12, et dans la fenêtre « Enregistrer sous », choisis ce Type de fichier : « Classeur Excel (prenant en charge les macros) » (« Type : » est situé en bas, juste sous « Nom de fichier : »).​

soan

Cliquez pour agrandir...

feron.guy à dit:

Bonjour à tous.
je suis pensionné.
je suis souvent sur le net pour trouver des solutions aux problèmes qui se présentent
ma fille a ouvert un petit magasin et m a demande de lui faire une base de données .
je suis les vidéos #1,#2,#3,#4,#5,#6 de tuto de rien et j avance tout doucement à mon rythme


La progression va bien mais je bloque quand je veux enregistrer le bon de commande à partir d un bouton.
j ai mis ce code correspondant au bouton qui marche mais j aimerais que le fichier CDE-00001 ai le nom de la cellule qui se trouve dans la feuille PO en c11

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\L'Alter-Eco\bon de commande\CDE-00001.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True


Je vous signale que cela fait qu' un mois que je commence avec excel 2016
j' en suis donc à mes premier pas .
Merci pour votre aide
M. Feron Guy

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Guy,
Essayez comme cela :

VB:

Sub essai()
    Chemin = "c:\L'Alter-Eco\bon de commande\" & [C11] & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Chemin, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Cliquez pour agrandir...

feron.guy à dit:

Bonjour. Cela fait plus de trois jours que je bloque sur ce problème . Je ne connais absolument pas le langage excel. Grace à toi et aussi aux autres, mon problème est résolu en 15 minutes Magnifique. Merci beaucoup

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Guy,
Essayez comme cela :

VB:

Sub essai()
    Chemin = "c:\L'Alter-Eco\bon de commande\" & [C11] & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Chemin, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Cliquez pour agrandir...

feron.guy à dit:

Bonjour. Cela fait plus de trois jours que je bloque sur ce problème . Je ne connais absolument pas le langage excel. Grace à toi et aussi aux autres, mon problème est résolu en 15 minutes Magnifique. Merci beaucoup

Cliquez pour agrandir...