Fichier multiple

[sev]

Bonjour le forum,
J'ai le projet de lier plusieurs classeurs excel entre eux via VB.
Vu que je suis loin de maintriser ce language, je passe pas mal de temps à rechercher sur le forum comment adapter mes codes, et je pense que je vais avoir besoin de vos connaissances.

1° Déjà, je ne comprend pas pourquoi

Rows("65536").End(xlUp)(2) = Rows("1").Value

ne me copie que la cellule A et pas la ligne entière ?

2° Ensuite, le code

With Application.FileDialog(msoFileDialogFolderPicker)
                .Show
                If .SelectedItems.Count = 1 Then
                    Dossier = .SelectedItems(1)

me permet de selectionner le chemin de mon dossier, mais je voudrais que ce chemin soit toujours par défaut
'D:\Projet\' comment faire ?

 

[sev]

Re : Fichier multiple

Bonjour,
J'ai réglé mon 1/ problème, mais pas encore le 2/

est possible de définir un chemin plutôt que le chemin qui s'ouvre soit le chemin du dernier dosier qui s'ouvre ??

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 1 Then
Dossier = .SelectedItems(1)