Bonjour,
1 - Cela fait deux jours que je bloque sur l'enregistrement de ma feuille en PDF dans un dossier précis avec un nom qui correspond à des cellules.
J'ai fait une dizaine de forums essayé autant de codes mais sans succès. Je suis a chaque fois confronté à "une erreur d'impression" alors que je ne demande pas d'imprimer ou bien la ligne
ActiveSheet.ExportAsFixedFormat ... se met en jaune avec erreur 1004.
J'ai néanmoins réussi à lé faire enregistrer avec le nom voulu mais dès que j'essaye de spécifier le dossier de destination .. ca plante.
2 - Avec l'enregistrement de macro j'ai aussi automatiser l'enregistrement de ma feuille dans un autre classeur qui contiendra toutes mes factures au format xslx mais impossible de l'ajouter à la suite de l'enregistrement PDF.
3 - Dans mon classeur ou je fais mes factures, je voudrais également pouvoir ajouter ma facturer et son montant dans une feuille facturier qui fera le listing de toutes les factures de l'année. J'ai réussi mais pareil impossible de le mettre à la suite des deux premiers.
Dans l'idéal je voudrais un bouton soit multifonctions :
- enregistrement PDF
- enregistrement excel dans un autre classeur
- impression
- ajout dans mon facturier (listing de mes factures)
J'ai essayé ca pour le PDF :
Sub PDF()
Dim fichier As String, NomFichier As String
NomFichier = Range("H2").Value & " " & Range("H8").Value & " " & Format(Date, "dd mm yyyy")".pdf"
fichier = Application.GetSaveAsFilename(NomFichier)
Sheets("Passation").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
C'est la seule chose qui fonction.
Car j'ai ensuite essayé des chose comme ceci :
Dim chemin As String, NomFichier As String
NomFichier = Range("H2").Value & " " & Range("H8").Value & " " & Format(Date, "dd mm yyyy")".pdf"
chemin = "/user/monnom/desktop/"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & NomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Et la ca ne marche plus.
Je Suis sur un mac, je vous joint mon petit projet, si quelqu'un a la possibilité de me donner son avis et/ou conseils, je vous en remercie par avance