Microsoft 365 Afficher le zéro lors d'un export de données Excel vers un fichier Word

Yoyo60 · 22 Octobre 2022

Bonjour à toute et à tous,

Une nouvelle fois je sollicite votre aide pour un petit problème que je rencontre.

J'utilise une macro qui me permet d'exporter les données des données Excel vers un fichier Word (utilisation des signets).

Mais je rencontre un problème pour la gestion du zéro (chiffres avec une décimale) ainsi que pour le zéro de début et de fin d'un N° de téléphone (ainsi que l'espacement entre les chiffres).

J'ajoute 2 fichiers à ce post (le document source Word ainsi que le document Excel contenant les données et le code utilisé).

J'ai longuement chercher un peu partout sans trouver réponse à mon problème.

Espérant votre aide, par avance merci.

yal · 22 Octobre 2022

Bonjour
En fixant le format ça devrait le faire

VB:

  worddoc.Bookmarks("SignetChiffreVirgule").Range.Text = Format(Range("D8").Value, "0.00") 'Nombre avec une décimale
  worddoc.Bookmarks("SignetTPH1").Range.Text = Format(Range("D9").Value, "0# ## ## ## ##") 'Numéro de téléphone commençant par un zéro

Yoyo60 · 22 Octobre 2022

yal à dit:

Bonjour
En fixant le format ça devrait le faire

VB:

  worddoc.Bookmarks("SignetChiffreVirgule").Range.Text = Format(Range("D8").Value, "0.00") 'Nombre avec une décimale
  worddoc.Bookmarks("SignetTPH1").Range.Text = Format(Range("D9").Value, "0# ## ## ## ##") 'Numéro de téléphone commençant par un zéro

Bonjour Yal,

En quelques mots, RAPIDE, NET et EFFICACE.

Merci pour votre aide précieuse.

job75 · 22 Octobre 2022

Bonjour Yoyo60, yal,

Les cellules sources étant formatées :

VB:

  worddoc.Bookmarks("SignetChiffreVirgule").Range.Text = Range("D8").Text
  worddoc.Bookmarks("SignetTPH1").Range.Text = Range("D9").Text

A+

yal · 22 Octobre 2022

Et pour l'enregistrement

Code:

nomFichierDOCX = "C:\Aide_Excel\" & Range("D2").Value
nomFichierPDF = "C:\Aide_Excel\" & Range("D3").Value

worddoc.SaveAs nomFichierDOCX 'Enregistre le document dans le bon dossier

worddoc.ExportAsFixedFormat OutputFileName:= _
        nomFichierPDF, ExportFormat:= _
        17, OpenAfterExport:=True, OptimizeFor:= _
        0, Range:=0, From:=1, To:=1, _
        Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=0, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

job75 · 22 Octobre 2022

Cela dit Yoyo60 quand on entre une valeur dans un signet Word celui-ci est supprimé...

Yoyo60 · 22 Octobre 2022

yal à dit:

Et pour l'enregistrement

Code:

nomFichierDOCX = "C:\Aide_Excel\" & Range("D2").Value
nomFichierPDF = "C:\Aide_Excel\" & Range("D3").Value

worddoc.SaveAs nomFichierDOCX 'Enregistre le document dans le bon dossier

worddoc.ExportAsFixedFormat OutputFileName:= _
        nomFichierPDF, ExportFormat:= _
        17, OpenAfterExport:=True, OptimizeFor:= _
        0, Range:=0, From:=1, To:=1, _
        Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=0, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

C'est excellent,

Tout fonctionne à merveille.

Merci pour votre professionnalisme

Yoyo60 · 22 Octobre 2022

job75 à dit:
Cela dit Yoyo60 quand on entre une valeur dans un signet Word celui-ci est supprimé...

Oui, je me suis fait avoir la première fois dans mes essais.

Du coup, j'ai réussi (tant bien que mal car j'ai peu d'expérience en code VBA) à n'ouvrir que le fichier sans le sauvegarder mais en faisant uniquement, fichier enregistrer sous.

Merci pour votre remarque

Yoyo60 · 22 Octobre 2022

job75 à dit:
Je suis surpris que ma remarque du post #6 ne vous intéresse pas.

Ma réponse est tardive et nos messages se croisent. Hihi

job75 · 22 Octobre 2022

Yoyo60 à dit:
Du coup, j'ai réussi (tant bien que mal car j'ai peu d'expérience en code VBA) à n'ouvrir que le fichier sans le sauvegarder mais en faisant uniquement, fichier enregistrer sous.

Effectivement c'est ce qu'il faut faire.

Microsoft 365 Afficher le zéro lors d'un export de données Excel vers un fichier Word

Yoyo60

XLDnaute Junior

Pièces jointes

yal

XLDnaute Occasionnel

Yoyo60

XLDnaute Junior

job75

XLDnaute Barbatruc

yal

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Yoyo60

XLDnaute Junior

Yoyo60

XLDnaute Junior

Yoyo60

XLDnaute Junior

job75

XLDnaute Barbatruc

Discussions similaires