Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 copier feuille active sous format pdf dans MON classeur EXCEL actif

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'en ai une petite et je ne trouve pas Grrrr !!!
Ce que je souhaite :
Dans le classeur joint, j'ai une feuil1 que je voudrais dupliquer dans mon classeur mais en PDF.

Mes recherches n'ont pas abouti jusqu'à maintenant.
Auriez-vous le bon code ?
Un grand merci par avance,
lionel
 

Pièces jointes

  • pdf_test.xlsm
    9.9 KB · Affichages: 7

Phil69970

XLDnaute Barbatruc
Bonjour Lionel

Si j'ai tout compris mais cette phrase n'est pas très clair pour moi :

je voudrais dupliquer dans mon classeur mais en PDF.

Un PDF est un ..... PDF et un fichier excel reste un fichier ..... excel

VB:
Sub Enreg_pdf()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Mon PDF", Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, IgnorePrintAreas:=True

End Sub

Le fichier ..... PDF devrait être dans "Mes documents" (enfin les tiens )

@Phil69970
 

Pièces jointes

  • pdf_test V1.xlsm
    17.9 KB · Affichages: 1

Usine à gaz

XLDnaute Barbatruc
Bonjour Phil69970
Merci pour ce retour.
"Un PDF est un ..... PDF et un fichier excel reste un fichier ..... excel "
"Le fichier ..... PDF devrait être dans "Mes documents" (enfin les tiens )"

OUI un PDF reste un pdf mais ce que je voudrais c'est dupliquer ma feuill1 et l'enregistrer en PDF dans mon classeur (pas dans "tes" documents, ni dans les miens lol)

Ce que tu me dis ne me rassure pas .... je pense que ce n'est pas possible ... mais avec nos ténors ....
lionel
 

Efgé

XLDnaute Barbatruc
Bonjour

Un classeur est composé d'onglets.
Un dossier est rempli de fichiers.

Peux tu être clair dans tes demandes ?
Si tu veux mettre un PDF dans un classeur, même en poussant avec le pied, tu n'y arriveras pas.

il faudrait peut-être commencer à penser à ne pas faire n'importe quoi.

cordialement
 

Phil69970

XLDnaute Barbatruc
Lionel

Alors comme cela !

Edit :
Une remarque il faut que le fichier soit enregistré une 1ere fois pour qu'excel connaisse le chemin du fichier

@Phil69970
 

Pièces jointes

  • pdf_test V2.xlsm
    20.3 KB · Affichages: 3
Dernière édition:

Deadpool_CC

XLDnaute Accro
A ma connaissance tu ne peut pas insérer un fichier PDF dans un classeur Excel.
[Corrigé car il y a un moyen]

Je te conseille plutôt de chercher un code VBA pour dupliquer ta feuille et renommer la copie, puis protéger la copie en lecture seule avec un mot de passe.
 
Dernière édition:

Deadpool_CC

XLDnaute Accro
Ou alors il faut
* enregistrer ton PDF dans le même répertoire
* créer une feuille au nom de ton pdf et selectionner A1
* incorporer un objet (de type adobe acrobat pdfxml document) et selectionner le pdf
* Supprimer le fichier PDF de ton répertoire

Attention :
- Ton fichier excel va grossir à vu d'oeil
- Et voir comment cela s'incorpore si plus de 1 page ...
- possible soucis si tu double clique et que le fichier source (pdf) n'est plus dans le répertoire

ps : je fournis pas le VBA ... j'ai jamais fait les insertion d'objet en vba
 

Usine à gaz

XLDnaute Barbatruc
Bonjour Efgé
Je pensais avoir été clair et mais je ne sais pas expliquer autrement. j'en suis désolé.
Mais ma demande n'est pas possible. J'aurai tenté lol,
lionel
 

Phil69970

XLDnaute Barbatruc
Le fil

Autrement tout en image



Solution 1

Une fenêtre s'ouvre et tu vas chercher ton fichier PDF

Solution 2




Si tu comptes modifier ton PDF sur ton DD alors tu coches lier au fichier ainsi ton doc PDF qui se trouve à l’intérieur de ton fichier excel sera toujours à jour
Si tu ne modifies pas ton fichier PDF sur ton DD alors pas la peine de cocher



Et dans les 2 cas tu auras :


Un double-clic sur l'icone et ton pdf s'ouvre.

Tu peux lancer l'enregistreur de macro pour avoir ta macro mais le résultat de l'enregistreur sera lier à ta version d'acrobat donc pas sur que cela soit transposable sur un autre PC

SUR MON PC cela donne ceci mais surement pas transposable chez toi......

Code:
Sub Mon_Enreg_PDF()
    ActiveSheet.OLEObjects.Add(ClassType:="Acrobat.Document.11", Link:=False, _
        DisplayAsIcon:=True, IconFileName:= _
        """C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe""", IconIndex _
        :=0, IconLabel:="Adobe Acrobat Document").Activate
End Sub

@Phil69970
 

Discussions similaires

Réponses
9
Affichages
345
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…