XL 2019 Macro d'enregistrement

[Marine_blatz]

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]

Bonjour Marine_blatz,

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

Voyez le fichier Excel joint et cette macro :

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]

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 :

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]

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 :

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]

Bonjour,

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]

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]

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]

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]

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+