Problème pour basculer des données d'un fichier à un autre

Version imprimable

Bonjour à tous !

Je suis débutant en VBA excel et je suis entrain de faire une macro pour basculer des informations d'un fichier vers un autre. Sans même avoir encore fait tourner ma macro. Je pense que je vais être confronté à un sérieux problème. J'utilise la fonction VBA : Windows. ("NOM de mon fichier source.xls").Activate. Pour aller chercher les informations à transférer vers mon fichier qui s'appelle "COMPTEOLIVIER.XLS". Seulement voilà mon fichier source va constamment changer de nom...

Donc voici ma question existe-t-il une ligne de code pour définir automatiquement le nom du fichier à traiter au début? Je verrais bien une fenêtre qui s'affiche avec un InputBox avec un message genre "quel fichier voulez vous traiter?"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 'Bascule les dates et les codes compte en compta Sheets("COMPTE1").Select Range("A8").Select Range("A8:B" & Range("A65536").End(xlUp).Row).Copy Windows("COMPTOLIVIER.xls").Activate Sheets("COMPTE1").Select Range("A8").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("COMPTE1").Select 'Copie le nom, le numéro de dossier et la mesure de protection Windows("nom de mon fichier source.xls").Activate Sheets("COMPTE1").Select Range("B2:B4").Select Selection.Copy Windows("COMPTOLIVIER.xls").Activate Sheets("COMPTE1").Select Range("B2").Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False

29/12/2014, 12h08
pgz

Bonjour.

Tu peux regarder l'objet FileDialog qui permet d'ouvrir une explorateur pour désigner un fichier.

Cordialement,

PGZ
29/12/2014, 13h01
ExcelLiod

Euh oui... Merci de la réponse mais je suis vraiment très novice en VBA comment puis-je utiliser cette objet?
29/12/2014, 13h34
SCryptCypher

Citation:

Envoyé par ExcelLiod

Euh oui... Merci de la réponse mais je suis vraiment très novice en VBA comment puis-je utiliser cette objet?

Bonjour,

Voir dans la FAQ
29/12/2014, 14h09
ExcelLiod

Citation:

Envoyé par SCryptCypher

Bonjour,

Voir dans la FAQ

Après multiple relecture... Je ne crois pas que l'objet FileDialog correspond à ce que je demande...

Bonjour,
L'utilisation d'Input est tout à fait envisageable, mais je te propose ci-dessous une alternative utilisant une zone de liste dans un formulaire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ListBox1_Click()
    Dim rep As Integer
    rep = MsgBox(Me.ListBox1.Text, vbQuestion + vbYesNo, "Continuer avec ce fichier")
    If rep = vbNo Then Exit Sub
    'ICI le traitement à opérer (copie ton code actuel) en remplaçant Windows("nom de mon fichier source.xls").Activate _
par Windows(Me.ListBox1.Text).Activate

End Sub
Private Sub UserForm_Initialize()
    NomFichier = Dir("*.xls")   ' Trouve la première entrée valide
    Do While NomFichier <> ""   ' Démarre la boucle.
       ListBox1.AddItem NomFichier
       NomFichier = Dir()   ' Trouve l'entrée suivante.
    Loop
End Sub