ingenieurcesi a écrit :
avec un .txt tu peux utiliser ce code
ligne = 3
Open "C:\tonfichier.doc" For Input As 1
For k = 1 To ligne Step 1
If EOF(1) Then GoTo NoMoreValueA
Line Input #1, ref
Worksheets("a" ).Cells(1, k).FormulaR1C1 = ref
Next
NoMoreValueA:
Close 1
End Sub
par contre ca mets le contenu entier de ta ligne
donc faut utiliser Mid
tu sais que ta première ligne sera tj de la forme Titre: bbbbb donc ce que tu veux recuperer commence au 8ieme caractere --> ref=trim(mid(ref,8,100))
|
Merci mais je ne peux utiliser ce programme car les valeurs à copier peuvent être n'importe où dans le document. :(
La proposition de tegu ne marche pas. Le collage spécial ne propose pas de coller en transposé pour des valeurs venant de word.
Par contre si je pouvais copier ces valeurs dans une feuille cachée puis revenir dans ma cellule d'origine et les coller en transposé, alors cela devrait marcher :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("C10:C12" ).Select ; il faudrait qu'il copie ça dans une feuille caché
ActiveSheet.Paste
Range("C10:C12" ).Select ; il selectionne de nouvreau les valeurs
Selection.Copy ; il les copies dans sa petite mémoire
Range("A1" ).Select ; la par contre il faudrait qu'il colle les valeurs à l'endroit où j'ai double cliqué
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
.....