Modifs du code VBA pour macro import

Re : Modifs du code VBA pour macro import

Salut Bernard-Louis,

N'aurais-tu pas changer de fil, par hasard...?

Le peu que j'ai vu ce soir me permet de le penser....

De plus, éviter de remettre un fichier, s'il n'apporte rien de plus que les précédents (mais vu son nom, je peux le penser)... Le serveur du Forum n'est pas gratuit et tous poids superflu est une charge pour notre Webmaster, notre Ami David..

Mais, là, pas sûr, je n'ai pas encore ouvert ton fichier..

En tous les cas, ne pas changer de fil, stp...

Jean-Pierre

Re : Modifs du code VBA pour macro import

bonsoir Bernard-Louis,Jean-Pierre

emploi de activecell,tu fais un choix et c'est parti

à bientôt

Re : Modifs du code VBA pour macro import

Bonsoir,
C'est vrai, j'ai ouvert un autre fil car le titre du precedent n'etait pas assez explicite.
Je m'en excuse auprès du Webmaster.
La macro est legerement differente de la précédente.
Cordialement

Re : Modifs du code VBA pour macro import

Merci Bebere, c'est ce que je cherchais.
Une petite question, est il possible de coller l'importation sur une seule feuille excel ou en definissant une plage de cellule sur cette feuille.
Merci encore

Re : Modifs du code VBA pour macro import

Bernard tu veux dire ajouter les textes à la suite,si c'est cela c'est possible et ou tu veux dans la feuille

Re : Modifs du code VBA pour macro import

Sur la feuille, dans une plage de cellules qui va en largeur de E22 à G22 et en hauteur E55 a G55, ce qui donne une plage rectangulaire E22,G22,E55 et G55
Merci encore pour ton aide.

Re : Modifs du code VBA pour macro import

bonjour Bernard
regarde si cela te convient
à bientôt

Re : Modifs du code VBA pour macro import

Bonjour Bebere,
Je te remercie encore de te pencher sur mon probleme.
Si c'est possible il faudrait que le texte rentre uniquement sans agrandir les colonnes dans la plage de cellule E22 G22; E55 G55. Tout cela doit tenir sur 1 feuille car je dois encore rajouter des performances, des %, des graphiques et tout cela doit tenir sur 1 feuille. C'est pour cela que je limite l'importation dans la plage de cellules E22 G22; E55 G55. Si tout le texte ne rentre pas dans la plage de cellules ce n'est pas grave. Les futurs commentaires a inserer seront limites en nombre de caracteres.
Pour la selection de code, serait il possible de passer par une liste deroulante car j'ai une centaine de codes a rentrer.
Merci encore car tu m'enleves une sacree epine du pied (Meme des 2 pieds)

Re : Modifs du code VBA pour macro import

bonsoir Bernard
mets la liste ou tu la veux ou sur une autre feuille,si cette liste peut changer,dis le,je ferai un userform avec une listbox ,boutons, ajouter supprimer et si tu penses à autres choses mets le aussi
bonne soirée

Re : Modifs du code VBA pour macro import

Bonsoir Bebere,
Je te joins le fichier avec 1 feuille que j'ai rajoute pour les codes, et, les plages pour la liste deroulante ainsi que la zone ou doit etre place le texte (en jaune)
Merci encore et bonne soirée.
Bernard

Re : Modifs du code VBA pour macro import

bonsoir Bernard
une bonne et heureuse année
il y a des commentaires dans module1
à bientôt

Re : Modifs du code VBA pour macro import

Bonjour Bebere,
Je te presente mes meilleurs voeux de bonheur, de prospérité à toi et à ta famille pour cette nouvelle année qui débute.
Je te remercie pour la macro, c'est exactement ce que je cherchais à faire. Je pense que cette appli pourra servir à beaucoup de monde.
Une derniere question, L'importation dans excel commence a la cellule L14, si on veut par exemple qu'elle commence à P22, j'ai essaye en remplaçant le L14 par P22 dans le module 1, mais rien ne se passe .....Y a t-il une astuce ?
Merci encore !!
Bernard

Re : Modifs du code VBA pour macro import

bonjour Bernard
un grand merçi pour les voeux

'j'ai mis en commentaires les lignes à changer,avec P22

Sub ImporterWordVersExcel(MonDocWord As String)
'necessite d'activer la reference microsoft word 10.0 Object Library
'testé avec XP
Dim DocWord As Word.Document ', MonDocWord As String
Dim AppWord As Word.Application
With Sheets("Fiche")
If .Range("L14") <> "" Then _
.Range("L14:L" & .Range("L65536").End(xlUp).Row).ClearContents
' If .Range("P22") <> "" Then _
' .Range("P22:L" & .Range("P65536").End(xlUp).Row).ClearContents


'MonDocWord = ActiveCell.Text 'Sheets("Fiche").Range("J19")

Set AppWord = New Word.Application
AppWord.Visible = False '"E:\Mes documents\TESTS\2007-01-01\"
Set DocWord = AppWord.Documents.Open("D:\forumjan07\2007-01-01\" & MonDocWord & ".doc", ReadOnly:=True)

With AppWord
.Selection.WholeStory
.Selection.Copy
End With

.Range("L14").PasteSpecial xlPasteValues
.Range("A1").Select
AppWord.Application.Quit
Application.CutCopyMode = False
'*** si tu n'as pas besoin de cette partie tu mets une ' devant chaque ligne
Texte = .Range("L14:L" & .Range("L65536").End(xlUp).Row)
' Texte = .Range("P22😛" & .Range("P65536").End(xlUp).Row)

arr = FlagCR(Texte, 60) 'tu peux changer le chiffre
.Range("L14:L" & .Range("L65536").End(xlUp).Row).ClearContents
' .Range("P22😛" & .Range("P65536").End(xlUp).Row).ClearContents

For I = 0 To UBound(arr, 1)
.Range("L" & 14 + I).Value = arr(I)
' .Range("P" & 14 + I).Value = arr(I)
Next I
'***
End With
End Sub

à bientôt

Re : Modifs du code VBA pour macro import

ça fonctionne impeccablement bien !!!

Mille mercis Bebere et bonne journée

Cordialement