Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fichier multiple

  • Initiateur de la discussion Initiateur de la discussion sev
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

sev

Guest
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
Code:
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
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 ?
 
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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
877
Réponses
5
Affichages
909
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…