Résultats pour "pdf"

694 résultats pour cette recherche

Bonjour à tous,

Grande débutante en VBA....: je rencontre une problématique pour réaliser un export pdf d'une feuille en boucle sur différents classeurs ouverts :

Mon code est le suivant :

Sub exportpdf()

Dim Cls As Integer

' pour passer au classeur suivant si A pas trouver

On Error Resume Next

For Cls = 1 To Windows.Application.Workbooks.Count

Nomfichier = Range("C8").Value & ".pdf"

Dossier = xxx

Chemin = Dossier & Nomfichier

Sheets("3-Fiche opération").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Next Cls

End Sub

Il exporte bien un pdf avec le bon nom dans le bon dossier mais uniquement la feuille du classeur qui contient la macro, sans passer aux classeurs suivants.

Mille remerciements à celui ou celle qui pourra m'apporter son aide.

Cordialement,

Valérie

Bonjour, étant loin d'être à l'aise avec les codes VBA. Est-il possible d'avoir un code VBA, me permettant de faire un filtre sur une sélection de cellule et en fonction du résultat du filtre faire un envoi PDF par email uniquement de cette sélection.

Dans le fichier exemple, et notamment dans l'onglet "Modele_Sem", j'aimerai sur la sélection A103:M109, faire un filtre sur la colonne H "EMMENER OU RECUPERER" et en fonction du résultat faire un envoi pdf de cette sélection avec un texte différents dans le corps du mail.

  • Si le filtre est "EMMENER", alors :
    Le titre de l'email serait "Véhicules à convoyer"
  • Le corps du mail serait "Bonjour, veuillez trouver ci-joint la liste des véhicules à emmener ce soir"
  • La pièce jointe serait le PDF de la sélection portant comme nom "Véhicules à emmener 2019-03-30" avec la date du jour à la fin.
  • Si le filtre est "RECUPERER", alors :
    Le titre de l'email serait "Véhicules récupérés"
  • Le corps du mail serait "Bonjour, veuillez trouver ci-joint la liste des véhicules qui ont été récupérés cette nuit"
  • La pièce jointe serait le PDF de la sélection portant comme nom "Véhicules récupérés 2019-03-30" avec la date du jour à la fin.

Est-ce que cela est possible, ou totalement irréalisable.

Merci de votre aide.

27exemple.xlsm (319.65 Ko)

Bonjour,

J'ai un code pour ouvrir des pdf qui fonctionne chez moi, sur mon pc, mais je dois l'adapter pour un programme dans le cadre de mon travail. Hors là, ça fonctionne plus. Normal me direz-vous, car au boulot nous n'avons pas acrobat reader d'installé mais PDF-XChange Viewer. Et c'est là que j'ai un peu de mal. Transposez mon code pour ce logiciel.

Avez vous une idée ?

Voici le code :

Private Sub CommandButton1_Click()
Dim sFichier As String, WsShell As Object
    sFichier = Me.TextBox1
    If Len(sFichier) = 0 Then Exit Sub
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub

Bonjour à tous,

Je souhaite créer une macro qui me permettent de fusionner/combiner plusieurs PDF pour n'en faire qu'un seul.

L'idée serait que si je sélectionne 2, 3, 4, X fichiers PDF, la macro les fusionnent, les combinent en un seul PDF.

Le problème étant que tout le monde n'a pas Adobe Acrobat Pro la où je travaille.

Est-il possible depuis Excel (ou ailleurs) de créer une telle macro?

Merci d'avance et bon réveillon

Stan

Bonjour, je suis novice dans les macros.

J'aimerais savoir s'il est possible de créer une macro pour convertir ce feuillet excell en PDF et de l'envoyer directement par email à une liste de destinataires.

Merci pour votre aide.

100antargaz.xlsm (451.76 Ko)

Bonjour a tous,

Je dois pouvoir enregistré un de mes fichier excel en pdf, cela fonctionne sauf que le pdf est vide. Comment faire pour que tous le contenu de mon fichier excel se trouve dans mon pdf ?

Merci d'avance

Bonjour à tous
Je cherche à pouvoir personnaliser le nom d'un fichier lors d'un envoi automatique PDF.
J'ai trouvé un code sur le web que je me suis permis de modifier, hélas sans succès...

Je souhaite pouvoir donner le nom du fichier PDF égale au texte contenu dans la cellule Sheets("BestellscheinPDF").Range("AK3").
J'espère que le bout de code ci-dessous vous permettra d'identifier ma problèmatique.

D'avance merci pour votre précieuse aide !!
Willau
_________________________________________________________________________________________________
Sub EnvoiPDF()

Dim messagerie As Object
Dim email As Object
Dim nompdf As String

On Error GoTo erreur

Sheets("BestellscheinPDF").Select

nomfichier = Sheets("BestellscheinPDF").Range("AK3")
nompdf = Environ("Temp") & "\" & ("nomfichier")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)
With email
.Subject = Sheets("Admin2").Range("G9")
.To = Sheets("Admin2").Range("G13")
.CC = Sheets("Admin2").Range("G173")
.Body = Sheets("Admin2").Range("G21")
.ReadReceiptRequested = True
.Attachments.Add nompdf & ".pdf"
.Display
End With
Set email = Nothing
Set messagerie = Nothing

Kill Environ("Temp") & "\" & ("nomfichier") & ".pdf"

Exit Sub

erreur:

MsgBox "Erreur : " & Err.Number & vbLf & Err.Description

Sheets("Formular").Select

End Sub

_________________________________________________________________________________________________

Bonjour à tous,

Je voudrais créer une macro qui permet d'imprimer plusieurs fichier PDF depuis des liens hypertextes dans mon tableau Excel en une seule manipulation.

Est-ce possible ou pas ?

Merci de vos réponses

Bonjour le forum,

Voilà j'ai un code qui fonctionne lorque le fichier est entièrement connu (nom fixe).
Mais lorsque j'essaie de déplacer un fichier dont le nom est variable, cela ne fonctionne pas :

Sub range()
Dim LHeure As String, LaDate As String

'horodatage du fichier

LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

Dim Chemin As String, NouveauChemin As String, Fichier As String
Chemin = "O:\"
NouveauChemin = "O:\110\"
Fichier = "ETAT DES PERIODES DES FRAIS PAR PERSONNE le " & LaDate & " " & LHeure & ".pdf" -> il me retrouve pas le fichier
Name Chemin & Fichier As NouveauChemin & Fichier
End Sub

Sauriez-vous pourquoi ce code me génère une erreur type 53? j'aurais bien une autre idée qui serait d'aller chercher le fichier dont le nom commence par ETAT DES PERIODES DES FRAIS PAR PERSONNE, mais je ne sais pas comment procéder.

merci ^^

Hello,

J'ai besoin d'un petit coup de main :)

Contexte:

J'ai créer un fichier qui génère des fiches produits en fonction d'une base donnée (onglet data).

Sur un autre onglet j'ai un tableau à 10 entrées où on peut mettre dix produits et à côté de chaque produit, il y un bouton pour éditer la fiche produit en pdf. Chaque fiche est sur un onglet, il y a donc 10 onglets fiches produit (fiche 1, fiche 2, fiche 3...).

Voici la macro que j'ai mise pour la première fiche:

Sub Editer()
Dim onglet As Worksheet
Dim nom_PDF As String
Dim chemin_PDF

nom_PDF1 = "Fiche produit " & Range("C10") & ".pdf"
chemin_PDF = "C:\Users"
Set onglet = Worksheets("Fiche 1")
onglet.Select

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

End Sub

Chaque fiche est construite sur le même modèle.

Problématique:

Ce que je cherche, c'est avoir dans le nom du pdf le nom du produit. Cela fonctionne quand j’exécute les macros une par une. Mais lorsque je lance la macro qui exécute les 10 macros d'affilé seul le premier PDF comprend le nom du produit. Comme si Range été ignoré pour les autres. Touts les autres PDF se nomment "fiche produit", ce qui a pour effet de rendre obsolètes les 8 dernières fiches un fois générées:

Sub Tout()

Editer
Editer2
Editer3
Editer4
Editer5
Editer6
Editer7
Editer8
Editer9
Editer10

End Sub

Savons comment faire pour que la macro tout me permette de sortir les 10 PDF avec les bonnes dénominations? J'ai déjà essayé avec Range.value ça ne fonctionne pas

Merci d'avance pour votre aide :)

Nighteclipse06

Bonjour,

Depuis le changement de mon EXCEL (2010 => 2016), la macro de mon fichier excel ne fonctionne plus.
Cette dernière avait pour but de mettre en PDF, 5 onglets de mon fichier EXCEL.

Aujourd'hui quand je l'actionne, elle m'affiche "erreur 400". Pouvez vous m'aider sur ce sujet s'il vous plaît.

Voici la Macro:

Sub Exporter_PDF() 

On Error Resume Next 
ChDir ("C:\" & Environ("username") & "\Desktop\Tableau_de_bord\") 
If Err Then MkDir ("C:\" & Environ("username") & "\Desktop\Tableau_de_bord\") 'pour le créer 
On Error GoTo 0 

Sheets(Array("8 principaux indicateurs", "Focus livs, qualite & VO", "Visuel", "8 principaux indicateurs N-1", "MARQUE")). _ 
Select 
Sheets("8 principaux indicateurs").Activate 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"C:\" & Environ("username") & "\Desktop\Tableau_de_bord\" & Worksheets("8 principaux indicateurs").Range("B8") & " " & Range("D4") & ".pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ 
False 
End Sub 

Edit modo : merci de mettre le code entre balises

Merci par avance.

Bonjour à tous,

Nous avons créer un petit simulateur sur Excel (rien de bien spécial) que nous donnons à nos commerciaux.

Nous souhaitons créer un bouton qui permettra de générer un PDF (pour Mac ou PC) ou bien deux boutons (un Mac et un PC).

Notre macro ne fonctionne pas du tout, nous aimerions :
- Enregistrer directement le PDF sur le bureau du commercial (notre code actuel donne un chemin spécifique lié à l'utilisateur qui a fait la macro..)
- Ajouter au nom du fichier : la date et l'heure (heure, minutes et secondes)

Le code actuel est le suivant :

Sub SaveMAC()
'
' SaveMAC Macro
'

'
    ChDir "/Users/julien/Desktop/"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "/Users/julien/Desktop/SIMULATEUR ECONOMIE 2020.pdf", Quality:= _
        xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub

------

Sub SavePC()
'
' SaveToPDFforPC Macro
' Sauvegarde en PDF pour PC
'

'
    ChDir "C:\Users\fabrice\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\Users\fabrice\Desktop\SIMULATEUR ECONOMIE 2020.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Merci pour votre aide.

Bonjour à tous,

je souhaites combiner du texte et une date = papa17/01/2020

ensuite je souhaites imprimer en PDF la page avec comme nom du fichier = papa17/01/2020

Voir fichier joint.

Merci pour votre aide

Bonjour à tous,

J'ai une macro qui a un moment dans ça vie me créer un pdf. Jusque là tout va bien.

Plus tard dans la vie de cette belle macro, j'éprouve le besoin d'imprimer le pdf en question (chemin et nom connu) sur une imprimante (également connue) qui n'est pas l'imprimante par défaut.

J'ai essayé plein de morceaux de code trouvé un peu partout sur le net et j'arrive à deux conclusion :

- Je n'arrive pas a sélectionner l'imprimante [c'est toujours la même imprimante, j'aimerais ne pas passer par une boite de dialogue pour selectionner l'imprimante] (Application.ActivePrinter = "HP LaserJet MFP E82540 (MAG) on Ne04:" me renvoi un message d'erreur)

- Je n'arrive pas a imprimer le pdf (je n'ai pas besoin de l'ouvrir, je voudrais pouvoir l'imprimer et que ce soit transparent pour l'utilisateur)

Merci à tous

Bonsoir Cher forum

Je voudrais depuis un classeur Fermer un fichier pdf s'il est ouvert.

Merci

Bonjour à tous , j’ai un soucis j’ai mis sur mon onglet un bouton d’enregistrement en pdf qui fonctionnait très bien et d’un coup ça ne fonctionne plus, voici mon visual basic

Et ce même code fonctionne très bien sur les autres onglets que j’ai fait ...

J’aurais besoin de votre aide ! Merci beaucoup

db8bf941 af0d 449f 9395 abc6b4458d76

Salut chers tous

Ma macro suivante exporte ma plage au format pdf en lui donnant le nom "Liste.pdf"

Quand Liste.pdf est fermé il est écrasé pas de soucis

Mais quand il est déjà ouvert j'ai une erreur.

Je voudrais insérer dans ma macro un code pour fermer Liste.pdf si ouvert avant de l’écraser. Merci

Sub export()
Dim chemin, NomPDF As String
    chemin = ThisWorkbook.Path & "\PREVUS\"
    If Dir(chemin, vbDirectory) = "" Then MkDir chemin
With ActiveSheet
    NomPDF = "Liste"
    .PageSetup.PrintArea = "$A$1:$I$50"
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = False
    .PageSetup.RightFooter = "&P de &N"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & NomPDF, Quality:=xlQualityStandard
End With
End Sub

Bonjour à tous

Mon problème est que je n'arrive pas à écrire correctement cette macro pour qu'elle imprime les feuilles désignées avec des zones d'impression différentes

j'ai bien pensé à y intégrer ceci , mais cà ne fonctionne pas :

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$27" ou Worksheets("Feuil1").PageSetup.PrintArea = "$A$1:$C$5"

mon souhait est de pouvoir imprimer en PDF les zones suivantes :

Feuil 1 = A1:M27

Feuil 2 : A5: R10

Feuil3 : A4:S20

Un grand merci pour votre aide

'Private Sub PDF_Click()

' Dim Mdp As String

' Mdp = Application.InputBox("Veuillez introduire votre mot de passe")

' If Mdp <> "13500" Then MsgBox "Accès refusé !": Exit Sub

' Application.EnableEvents = False

' Dim sRep As String

' Dim sFilename As String

'

' If Sheets("Feuil1").Range("G27") = "" Then

' If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "Excel vous informe") = vbAbort Then Exit Sub

'

' Else

' ChDir ThisWorkbook.Path

' Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

' sRep = ThisWorkbook.Path

' sFilename = ThisWorkbook.Name

' sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"

'

' ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _

' Sheets("Feuil1").Range("G27"), Quality:=xlQualityStandard, _

' IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

'

' If OutputFilename = "" Then

' MsgBox "La Création du fichier PDF est terminée."

' End If

' End If

' Application.EnableEvents = True

'End Sub

Bonsoir chers tous

je voudrais exporter ma plage A1:C10 au format PDF dans un sous dossier.

Ma macro doit:

  • Créer un Dossier "Plage"
  • Créer Un Sous dossier qui portera comme nom ma cellule E1 : (Cells(1,5).value)
  • Stocker mon Fichier PDF "TRIS" dans le Sous Dossier qui porte le nom de E1 au format " mmm yyyy".
J'ai élaboré ce qui suit mais je coince.

Merci de me guider

Sub SAVE()
Dim chemin As String
Dim fichier As String
             chemin = ThisWorkbook.Path & "\Plage\" & "\" & Cells(1, 5).Value & "\"
             If Dir(chemin, vbDirectory) = "" Then MkDir chemin
             With ActiveSheet

                .PageSetup.PrintArea = "$A$1:$C$10"
             fichier = .Range("A1")
                .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
             chemin & fichier, Quality:=xlQualityStandard, _
             IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

          End With
End Sub
2classeur1.xlsm (18.24 Ko)

Bonjour à tous

J’espère que vous allez pouvoir m'aider, ou au moin me mettre sur la bonne voie

J'ai un tableau dynamique qui se remplie avec tous les pdf d'un dossier choisis (choix entre plusieurs dossier dans un userform).

Dans ce tableau, une des colonnes ( la "E") contient le path du fichier en question.

Dans la colonne "F", j'impose ( liste déroulante) OUI / NON.

J'aimerais, avec l'aide d'un bouton sur la feuille, déplacer tous les pdf pour lesquelles il est noté OUI vers un autre dossier (imposé par le code).

Je n'arrive pas a trouver la bonne formule pour faire cela

Si quelqu'un pouvais m'aider, ou au moin m'orienter..

J’espère que j'ai été claire dans les explications lol

Merci d'avance

Fabrice

Recherches récentes

liste produit commandederlignefacturierdesactiver calcul automatique vbataux occupationconversion csv automatiqueadvancedfilterlogiciel comptable associationchoix dateparent nametransportgestion devis facturationimporter imagegantt projetsurvoler imageecrire cellrefliste deroulante dependantetableau repartition materiel gros oeuvreset plage range cells