Discussion :

[ThibaudIty]

Bonjour a tous,

J'aurais besoin de vos lumières quand a un enregistrement via MACRO en PDF.

Je m'explique :

J'ai creer un petit formulaire simple a remplir, puis grace a une macro cela enregistre en PDF directement dans un cloud.

Mon problème est que cette macro enregistre toutes les pages de ma feuille excel alors qu'il faudrait simplement en enregistrer deux

Pouvez-vous m'aider ? (J'ai déja passé quelques heures a chercher sur différents forum mais je ne réussis pas a enregistrer les pages désirées)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   'Enregistrer en PDF
    Date_F = Format(Date, "dd/mmmm/yyyy_")
    With Worksheets("Sheet1")
    fichier = "\" & "CLAIM INTER REPORT_ITY_" & .Range("C9") & Date_F & ".pdf"
    Dossier = "C:\atatataatata\Availability Team\06-Warranty\Warranty Report"
    Chemin = Dossier & fichier
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Et par la suite, avant la fin de la macro (Juste apres l'enregistrement en PDF), est-il possible de faire ouvrir un autre fichier excel depuis un cloud en ajoutant une MSG BOX ?


PS : Pour info, je suis débutant en macro excel.

Cordialement,
Thibaud

[kiki29]

Salut, peut-être via cette Liste des contributions et téléchargements qui permet de naviguer dans le bazar, trouveras-tu une solution.

Notamment ici et là

[ThibaudIty]

Super,

Je vais regarder tout cela

Merci

[halaster08]

Mon problème est que cette macro enregistre toutes les pages de ma feuille excel alors qu'il faudrait simplement en enregistrer deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   'Enregistrer en PDF
    Date_F = Format(Date, "dd/mmmm/yyyy_")
    With Worksheets("Sheet1")
    fichier = "\" & "CLAIM INTER REPORT_ITY_" & .Range("C9") & Date_F & ".pdf"
    Dossier = "C:\atatataatata\Availability Team\06-Warranty\Warranty Report"
    Chemin = Dossier & fichier
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Bonjour,
Il te suffit de copier les feuilles en questions dans un nouveau classeur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
   'Enregistrer en PDF
    Date_F = Format(Date, "dd/mmmm/yyyy_")
    With Worksheets("Sheet1")
    fichier = "\" & "CLAIM INTER REPORT_ITY_" & .Range("C9") & Date_F & ".pdf"
    Dossier = "C:\atatataatata\Availability Team\06-Warranty\Warranty Report"
    Chemin = Dossier & fichier
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy
    activeworkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Et par la suite, avant la fin de la macro (Juste apres l'enregistrement en PDF), est-il possible de faire ouvrir un autre fichier excel depuis un cloud en ajoutant une MSG BOX ?

En supposant que tu connaisse le chemin d'accès oui c'est possible
exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Select Case MsgBox("Voulez vous ouvrir le fichier suivant?", vbYesNo)
        Case vbNo
            Exit Sub
        Case vbYes
             Dossier = "C:\atatataatata\Availability Team\06-Warranty\Warranty Report"
             fichier = "\fichier2.xlsx" 
             workbooks.open Dossier & fichier
End Select

plus d'info sur les msgbox ici: https://fring.developpez.com/vba/excel/msgbox/

[kiki29]

Re, une xième version des liens donnés plus haut, pour 3 plages nommées Plage_01,Plage_03 et Plage_05 correspondant aux pages concernées, ici pour la feuille Feuil1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim Rg As Range
    Set Rg = Feuil1.Range("Plage_01,Plage_03,Plage_05")
    Rg.ExportAsFixedFormat Type:=xlTypePDF, _
                           Filename:=ThisWorkbook.Path & "\" & "Test.pdf", _
                           Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, _
                           IgnorePrintAreas:=False, _
                           OpenAfterPublish:=False
    Set Rg = Nothing
End Sub

[ThibaudIty]

Bonjour,

Merci a tous !

Je viens tout juste de voir vos messages, j'essaie cela au plus vite.