XL 2019 Macro d'enregistrement

Marine_blatz · 18 Décembre 2021

Bonjour,

quelqu'un aurait t-il la gentillesse de m'aider à a faire une macro ?

j'ai un doc excel et son titre fini par R0.

je souhaite que quand j'associe un racourci clavié exemple ctrl+m et sur mon document ouvert
il se passe cette action:

exemple:

titre du doc word: "azerty-R0"
j'execute la macro pour la quelle j'ai besoin de votre aide
il génére une copie (dans le même dossier) en pdf et renomme la copie pdf en : "azerty-P" (il sup le R0 pour remplacer par P quoi...)

enregistre le word en docx, et le ferme
sans ouvrir l'appercu PDF.

Celui qui reussi à me faire ca c'est un génie voila qui fait 17h que j'essaye de reussir ma premiere ligne de code mdr

Cordialement
marina

job75 · 18 Décembre 2021

Bonjour Marine_blatz,

Nous sommes sur un forum Excel, pourquoi parler de Word ?

Voyez le fichier Excel joint et cette macro :

VB:

Sub PDF()
Dim nomfich$, n%
nomfich = ThisWorkbook.FullName
n = InStr(nomfich, "-")
nomfich = Left(nomfich, IIf(n, n - 1, Len(nomfich) - 5)) & "-P.pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, nomfich, OpenAfterPublish:=False 'True pour afficher
End Sub

A+

job75 · 18 Décembre 2021

Si l'on veut créer un PDF à partit d'un document Word il faudrait aller sur le forum "Autres applications".

Voyez quand même ici le document Word joint et la macro du bouton :

VB:

Private Sub CommandButton1_Click() 'bouton PDF
Dim nomfich$, n%, h#, w#
nomfich = Me.FullName
n = InStr(nomfich, "-")
nomfich = Left(nomfich, IIf(n, n - 1, Len(nomfich) - 5)) & "-P.pdf"
h = CommandButton1.Height
w = CommandButton1.Width
CommandButton1.Height = 0.75 'masque le bouton
CommandButton1.Width = 0.75
Me.ExportAsFixedFormat nomfich, wdExportFormatPDF
CommandButton1.Height = h 'affiche le bouton
CommandButton1.Width = w
Me.Range(1, 1).Select 'place le curseur au début
End Sub

Notez que le texte {CONTROL Forms.CommandButton.1} peut être masqué par une police blanche.

Marine_blatz · 19 Décembre 2021

job75 à dit:
Si l'on veut créer un PDF à partit d'un document Word il faudrait aller sur le forum "Autres applications".

Voyez quand même ici le document Word joint et la macro du bouton :

VB:

Private Sub CommandButton1_Click() 'bouton PDF Dim nomfich$, n%, h#, w# nomfich = Me.FullName n = InStr(nomfich, "-") nomfich = Left(nomfich, IIf(n, n - 1, Len(nomfich) - 5)) & "-P.pdf" h = CommandButton1.Height w = CommandButton1.Width CommandButton1.Height = 0.75 'masque le bouton CommandButton1.Width = 0.75 Me.ExportAsFixedFormat nomfich, wdExportFormatPDF CommandButton1.Height = h 'affiche le bouton CommandButton1.Width = w Me.Range(1, 1).Select 'place le curseur au début End Sub

Notez que le texte {CONTROL Forms.CommandButton.1} peut être masqué par une police blanche.

Utilisation incorrect du mot clé .ME ??
que faire ?

job75 · 19 Décembre 2021

Bonjour,

Marine_blatz à dit:
Utilisation incorrect du mot clé .ME ??

Me va très bien si comme dans mon fichier Word joint le code est dans ThisDocument.

Si le code est placé ailleurs il ne peut pas fonctionner.

Et pourquoi ne parlez-vous pas de mon post #2 ? C'est lui qui importe puisqu'on est sur Excel !!!

A+

Marine_blatz · 19 Décembre 2021

job75 à dit:
Bonjour,

Me va très bien si comme dans mon fichier Word joint le code est dans ThisDocument.

Si le code est placé ailleurs il ne peut pas fonctionner.

Et pourquoi ne parlez-vous pas de mon post #2 ? C'est lui qui importe puisqu'on est sur Excel !!!

A+

Bonjour Job
car celui du dessus met un message d'erreur sur "nomfich = ThisWorkbook.FullName" (erreur 424 object requis)

job75 · 19 Décembre 2021

Mais qu'est-ce que vous fabriquez ? Utilisez mon fichier, il fonctionne très bien !

Si vous ne savez pas mettre le code sur votre fichier déposez ici votre fichier.

dysorthographie · 19 Décembre 2021

Marine_blatz à dit:
Bonjour Job
car celui du dessus met un message d'erreur sur "nomfich = ThisWorkbook.FullName" (erreur 424 object requis)

Il faudrait préciser si ce sont les macros,ou les fichiers qui ne fonctionne pas?

Il est évident que ThisWorkbook.FullName ne fonctionne pas dans word mais devrait fonctionner dans le XLSM fourni !

job75 · 19 Décembre 2021

Bonjour dysort,

Oui ThisWorkbook.FullName fonctionne à 2 conditions :

- la macro est placée dans le VBA d'un fichier Excel .xlsm

- le module ThisWorkbook n'a pas été renommé avec un autre nom.

A+

XL 2019 Macro d'enregistrement

Marine_blatz

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Marine_blatz

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Marine_blatz

XLDnaute Nouveau

job75

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

job75

XLDnaute Barbatruc

Discussions similaires