Discussion :

[ExcelLiod]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

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

Cordialement,

PGZ

[ExcelLiod]

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

[SCryptCypher]

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

[ExcelLiod]

Bonjour,

Voir dans la FAQ

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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