Discussion :

[Méliodas]

Bonjour,

Je réalise actuellement une macro permettant d'extraire des informations d'un document word vers un document excel mais j'ai un micro soucis.

Voici mon code:

Code :

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

1
2
3
4
' No Commande (dans le 1er tableau, ligne 2, colonne 2)
        WDoc.Tables(1).Cell(2, 2).Range.Copy      'copie la valeur dans le presse papier
        ws.Select                                   'bascule vers Excel
        ws.Cells(i, 2).PasteSpecial (xlPasteValues) 'colle la valeur dans la cellule

Le problème est que je copie toute la cellule ce qui me donne par exemple ":938"
Y aurait-il une fonction permettant de copier cette même cellule au même endroit mais en supprimant les ":" ?

Merci

[Marc-L]

Bonjour,

parmi les fonctions manipulant les chaînes de caractères il y a par exemple Mid …



______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[Méliodas]

Merci pour votre réponse, mais je n'arrive pas à l'intégrer de façon fonctionnel à mon code....
Je pense qu'il devrait intégrer cette ligne

Code :

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

WDoc.Tables(1).Cell(2, 2).Range.Copy

Mais je n'y arrive pas sans avoir des erreurs ...

[Marc-L]

Sinon il y a aussi la fonction Replace en remplaçant le caractère ":" par rien ("") …

[Méliodas]

C'est bon ça fonctionne ! Merci du coup de main !

J'ai un autre problème qui est apparu si jamais tu sais comment le résoudre.

Quand dans mon tableau word, j'ai une chaine de caractère comme par exemple 10G8 il n'y aucun problème.
Par contre, si dans mon tableau j'ai juste un nombre, prenons 10 par exemple, l'information dans mon tableau excel est complétement incohérente.

[Marc-L]

Sans voir le code (entre balises, cf règles du forum !) ni connaître le résultat :