XL 2019 bouton supplémentaire

[velpa]

Bonjour a toutes et tous,
j'ai actuellement un programme avec macro qui me permet de creer plusieurs documents sur les feuille 1, feuille 2...etc.
Je souhaite intégrer un bouton "enregistrer sous pdf" et après avoir parcouru le forum, je dois dire que je nage un peu...
Il y a déjà un bouton qui me permet d'imprimer la feuille 1 par exemple et je me disais que je pouvais partir de la, mais ce fut un échec.
Alors je me tourne vers vous pour m'aider.

Au cas ou voici le code pour imprimer :
Private Sub CommandButton5_Click()
Dim j As Integer
For j = 0 To listclient.ListCount - 1
If listclient.Selected(j) = True Then
fact = Val((listclient.List(j, 1))): factt = j + 1: nfac = fact - 1
imprim
Feuil4.PrintOut From:=1, To:=retour
End If
Next
End Sub

Merci a vous.

 

[velpa]

Oups

"Erreur d’exécution 9
L'indice n’appartient pas a la sélection "

 

[velpa]

Le debogage me met la ligne
With Worksheets("Feuil4")
en surbrillance

 

[patricktoulon]

re
puré!!!
sans doute par ce que "feuil4" n'est pas le nom que tu lui a donné mais son codename
voir post#12

 

[velpa]

Correction faite maintenant c'est la ligne If Dir(Chemin, vbDirectory) <> "" Then qui bug.
J'ai un probleme de chemin puisque comme un idiot j'ai changé de PC donc chemin différent, mais ça bloque quand même.
Nom ou numéro de fichier incorrect

 

[patricktoulon]

re
corrige l'espace devant le " C:"
tu va y arriver ou on appelle moulinari

 

[velpa]

Corrigé.
Il m'a bien créé le sous dossier mais erreur d'acces chemin\fichier

J'ai envi de pleurer !!

 

[velpa]

J'ai vérifier si le dossier est protégé mais non
MkDir Chemin & sousdossier

 

[velpa]

Je sèche...
J'ai tenté différentes choses mais j'arrive au même résultat voir pire.
j'ai cru que comme le sous dossier existait maintenant, puisque qu'il a été généré, ça faisait doublon donc ça bloque.
Après avoir recréé un devis j'ai tenté a nouveau et la :

J'ai changé de chemin de sauvegarde, le sous dossier se cré mais impossible de créer un pdf
"erreur d'exécution 75"

 

[patricktoulon]

re
dis moi ce qui est ecrit dans le debug (fenetre d'execution)

Private Sub CommandButton41_Click()

Dim fichier$, Chemin$, sousdossier$, chemin_complet
With Worksheets("Feuil4")
fichier = Feuil4.Range("E4") & "_" & Feuil4.Range("F11") & ".pdf"
Chemin = "C:\Users\Admin\Documents\Sauvegarde"
sousdossier = Feuil4.Range("E4")
If Dir(Chemin, vbDirectory) <> "" Then
MkDir Chemin & sousdossier
Else
MsgBox "la racine" & vbCrLf & Chemin & vbCrLf & "n'existe pas": Exit Sub
End If

chemin_complet = Chemin & "\" & sousdossier & "\" & fichier

Debug.Print chemin_complet
'**************************************
'si tu veux plusieurs feuilles dans ton pdf
'sheets(array("toto","riri","loulou").select' ce sont leurs  noms et pas leurs codename
'****************************************
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin_complet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

End With
End Sub

 

[velpa]

Re
erreur d'exécution 9

 

[patricktoulon]

re
la je peux plus rien pour toi désolé

 

[velpa]

Merci pour ton aide tu m'a fait avancé quand même

 

[velpa]

re
la je peux plus rien pour toi désolé

ça serais pas a cause du format de la cellule F11 qui est une date "12/11/2019" qui ferais blocage a l'enregistrement PDF ?

 

[patricktoulon]

re
non au pire elle serait en numerique
non mais de toute facon tes erreurs sont complètement incohérentes je soupçonne des librairies en vrac
regarder dans les références si il y a pas un manquant par hasard la décocher si c'est le cas

hop hop hop ca depends regarde ce que ca donne dans un msgbox
sub test()
msgbox feuil4.[F11].value
end sub

si ça donne un numérique c'est bon sinon oui c'est ca

 

[patricktoulon]

re
au cas ou change la ligne pour celle ci

fichier = Feuil4.Range("E4") & "_" & Format(Feuil4.Range("F11"), "dd-mm-yyyy") & ".pdf"