A voir également:
- Problème macro enregistrement en PDF dans un dossier sur le bureau
- Telecharger pdf - Guide
- Réduire la taille d'un pdf - Guide
- Mettre un mot de passe sur un dossier - Guide
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Macro logiciel - Télécharger - Organisation
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
19 févr. 2019 à 11:56
19 févr. 2019 à 11:56
Bonjour,
voir ceci pour enregistrer sur le Bureau, il faudra l'adapter à un PDF:
https://forums.commentcamarche.net/forum/affich-35867658-excel-vba-enregistrer-fichier-bureau-renommer-par-rapport-a-une-cellule#1
voir ceci pour enregistrer sur le Bureau, il faudra l'adapter à un PDF:
https://forums.commentcamarche.net/forum/affich-35867658-excel-vba-enregistrer-fichier-bureau-renommer-par-rapport-a-une-cellule#1
19 févr. 2019 à 12:08
Je suis très novice en utilisation de macro, j'ai du mal à voir comment adapter cet exemple à mon fichier ?
Merci d'avance.
Modifié le 19 févr. 2019 à 12:48
Je ne vois pas le de ta boucle
Modifié le 19 févr. 2019 à 12:51
Oui cette partie est volontaire, je souhaite que la macro enregistre une fiche pour chaque ville de la région sélectionnée et la colonne K 3->17 donne la liste des villes en fonction de la région sélectionnée. En revanche, c'est la partie enregistrement qui n'est pas bonne j'ai l'impression
19 févr. 2019 à 14:34
Option Explicit Dim dossier As String Dim bureau As String Sub imprimer() Application.DisplayAlerts = False Application.ScreenUpdating = False cheminbureau dossier = bureau & "\Opération Flash\" For i = 3 To 17 If Sheets("Menu").Range("K" & i).Value Like "HF*" Then Sheets("Menu").Select Range("C6").Copy Sheets("Fiche synthèse").Select Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Menu").Select Range("K" & i).Copy Sheets("Fiche synthèse").Select Range("C4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("c4").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ dossier & Range("c4") & " - " & Range("c6") & " - " & Range("g6") & " - " & Range("g3") & "_i.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Range("c4").Select Sheets("Menu").Select Range("c6").Select End If Next i Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Private Sub cheminbureau() 'https://excel-malin.com/codes-sources-vba/trouver-chemin-de-bureau/ On Error GoTo TestErreur Dim cheminbureau As String cheminbureau = ObtenirCheminBureau() bureau = cheminbureau 'affiche le chemin vers le dossier Bureau Exit Sub TestErreur: MsgBox "Une erreur s'est produite..." End Sub Public Function ObtenirCheminBureau() As String 'par: Excel-Malin.com ( https://excel-malin.com ) On Error GoTo ObtenirCheminBureauError Dim cheminbureau As String cheminbureau = "" Dim oWSHShell As Object Set oWSHShell = CreateObject("WScript.Shell") cheminbureau = oWSHShell.SpecialFolders("Desktop") If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing ObtenirCheminBureau = cheminbureau Exit Function ObtenirCheminBureauError: If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing ObtenirCheminBureau = "" End FunctionVoilà
@+ Le Pivert
20 févr. 2019 à 15:47