Bonjour,
J'ai déjà recherché des informations sur des méthodes utilisant les activex..mais je n'en veux pas. Voilà mon problème.
J'ai une listebox qui me liste les fichiers contenus dans un répertoire
quand je clique sur le bouton "ouvrir" ça ouvre la selection faite dans la listebox.
Maintenant, j'aimerais modifier cette macro pour que en cliquand dessus, l'action ne soit plus l'ouverture ... mais de coller une information de ce classeur "fermé" sur le classeur actuel.
voilà une macro...mais elle ne fonctionne pas ... il doit y avoir un grain de sable en quelque part..
Private Sub CommandButton1_Click()
On Error Resume Next
If UserForm1.ComboBox1.ListIndex = -1 Then MsgBox ("Sélectionner un fichier") Else _
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Sheets("reprise").Select 'selectionne la feuille du classeur ouvert où je veux que les information soient collées
Range(a1).Select
Application.ScreenUpdating = False
Direction = Dir((ActiveSheet.Range("c:/prog.imp/reprise/")) & (ComboBox1.List(ComboBox1.ListIndex))) 'adapter chemin
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop
If nbFichiers > 0 Then
For X = 1 To nbFichiers
Cells(X, 1) = Tableau(X)
If Tableau(X) <> ThisWorkbook.Name Then
Y = Y + 1
With ActiveSheet.Cells(Y, 2)
.Formula = "='" & Range("c:/").Value & "\[" & Tableau(X) & "]situation personnelle" & "'!" & "e4"
End With
End If
Next X
End If
Application.ScreenUpdating = True
End
End Sub
----------
ça semble fonctionner ...mais rien ne se passe
C'est vraiement un problème "difficile"
Merci si vous arrivez à voir quelque chose .
Salutations
Dess