Sujet Précédent Sujet Suivant

MicroHelp VBA Excel

Fermé
Meliodas54 Messages postés 13 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 21 mars 2016 - 11 janv. 2016 à 11:13
Meliodas54 Messages postés 13 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 21 mars 2016 - 11 janv. 2016 à 15:19
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: 

' 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 t-il une fonction permettant de copier cette même cellule au même endroit mais en supprimant les ":" ?

Merci
A voir également:

1 réponse

Réponse 1 / 1
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
11 janv. 2016 à 11:45
Bonjour,

Par exemple en ajoutant : 
ws.Cells(i, 2).Value=Replace( ws.Cells(i, 2).Value,":","")


A+
0
Meliodas54 Messages postés 13 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 21 mars 2016
11 janv. 2016 à 15:19
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.
0