Explorateur Windows et recopie d'un fichier

Question

J'ai une problématique sur laquelle je galère mais je pense que vous pouvez m'aider. J'ai un fichier Excel de base (A), j'aimerai créer un bouton dessus (jusqu’à là je sais faire :)). Quand on clique sur ce bouton, j'aimerai que ça ouvre l'explorateur Windows pour aller sélectionner un autre fichier Excel (B). En sélectionnant le fichier B, j'aimerais que les données qui s'y trouvent se copient automatiquement sur le fichier A. Exemple, la cellule A3 du fichier B se copie sur la cellule D4 du fichier A. Est-ce que vous pouvez m'aider sur ce coup ? Merci à vous ...

X Cellus · Answer

En l'absence de fichier posté je te présente un bout de code qui te permettra selon ton exemple la copie de la cellule A3 du dernier fichier ouvert en D4 du 1ier fichier. La macro est affectée au bouton du fichier 1. Sub CopData() fichier = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*") if fichier &lt;&gt; False then Workbooks.Open fichier Else Exit sub Windows(1).ActiveSheet.Range("A3").Copy Windows(2).ActiveSheet.Range("D4") End Sub Note que Windows(1) représente la dernière fenêtre ouverte. Donc le 2ième fichier. Bons tests, bonne continuation...

X Cellus · Answer

Les cellules fusionnées sont bien pratiques pour la présentation des données mais très pénibles en VBA. Surtout si elles sont nombreuses. Dans le cas ou elles sont minimes, il est possible par VBA de dé-fusionner ces cellules avant toute opération puis de les re-fusionner après l'opération de copie par exemple. Au prix d'un alourdissement du code. Mais je préfère faire autrement. Je laisse aux cellules fusionnées le soin de la présentation des données. Par contre elles se réfèrent à des cellules intermédiaires (pouvant être masquées) pour obtenir leurs données. Ainsi dans ton exemple ta cellule fusionnée C14/D14 obtiendra sa valeur ou son texte (par = case X) d'une cellule non fusionnée hors tableau. Exemple Z14 (ou autre) qui va gérer la donnée. Tu peux le faire pour toutes tes cellules fusionnées en utilisant d'autres cellules intermédiaires. En résumé c'est donc tes cellules intermédiaires qui reçoivent les données et tes cellules fusionnées qui les présentent. Donc pour ton cas Sub CopData() fichier = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*") if fichier &lt;&gt; False then Workbooks.Open fichier Else Exit sub Windows(1).ActiveSheet.Range("A8").Copy Windows(2).ActiveSheet.Range("Z14") End Sub Dans ta cellule fusionnée C14/D14 tu auras simplement =Z14. Elle reprendra la valeur copiée sans être touchée par l'utilisation directe de la macro. La colonne Z peut être masquée comme Zorro par un masquage de colonne entière ou seulement de la cellule (police blanche) si fond blanc. Bons tests, bonne continuation...

X Cellus · Answer

A nouveau,

Ton titre de sujet est plus général que ta demande réelle. Dont je te rappelle un extrait de ton premier message.

En sélectionnant le fichier B, j'aimerais que les données qui s'y trouvent se copient automatiquement sur le fichier A. Exemple, la cellule A3 du fichier B se copie sur la cellule D4 du fichier A.

Pourquoi ne pas avoir directement fait part de cellules fusionnées avec en plus une liste de validation. Ou posté un fichier, cela aurait plus simple.

D'abord, le fait de copier directement (en omettant le souci de fusion) sur une liste de validation va en fait l'écraser.

Et subsidiairement il faut que la donnée copiée soit conforme à la liste déroulante de validation. Sinon elle sera rejetée.

Donc on reste avec la cellule intermédiaire Z14 (ou autre) récupérant la donnée de l'autre fichier mais en évitant de l'insérer directement dans la cellule de la liste.

Voir code ci-dessous ajouté.

'Suite du dernier code posté. Placement sur la cellule fusionnée.
Range("C14").Select
'Ou autre cellule (Z14) intermédiaire à choisir
Lg = Len([Z14])
'Envoi à la cellule fusionnée façon saisie clavier  
For L = 1 To Lg
Lettre = Mid([Z14], L, 1)
SendKeys Lettre
Next L
SendKeys "{ENTER}"
'Effacement ensuite de la cellule intermédiaire
Range("Z14")=""
End Sub

Note que je suppose que tu récupères bien une donnée conforme à la liste de validation.

Bons tests, bonne continuation.

X Cellus · Answer

Etant sur une feuille Excel et non un USF. Il n'y a pas besoin de passer par un Private Sub et un bouton Activex (CommandButton). Insères juste le code dans une macro Sub d'un module. Macro ci-dessous réduite que que tu auras affectée à un simple bouton. Sub CopData() 'Choix du fichier fichier = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*") If fichier &lt;&gt; False Then Workbooks.Open fichier Else Exit Sub 'Copie des Données sur "classeur client" puis fermeture du "classeur fournisseur" RG = "B2B3B4B5B6Z2Z3Z4Z5Z6" For N = 1 To 9 Step 2 Rg1 = Mid(RG, N, 2): Rg2 = Mid(RG, N + 10, 2) Windows(1).ActiveSheet.Range(Rg1).Copy Windows(2).ActiveSheet.Range(Rg2) Next N Workbooks(2).Close 'Replacement des Données sur les cellules fusionnées des listes de validation RG = "B8 E8 B12G8 B15Z2 Z3 Z4 Z5 Z6 " For M = 1 To 13 Step 3 Rg1 = RTrim(Mid(RG, M, 3)): Rg2 = RTrim(Mid(RG, M + 15, 3)) Range(Rg1).Select Lg = Len(Range(Rg2)) For L = 1 To Lg Lettre = Mid(Range(Rg2), L, 1) SendKeys Lettre Next L SendKeys "{Enter}" Range(Rg2) = "" Next M End Sub Dans le 2ième RG, bien garder l'espace après l'adresse des cellules ne comportant que 2 caractères. Il est possible ensuite de ne faire qu'une seule boucle. Pour l'instant c'est différencié afin que tu vois la séparation des traitements Copie puis Replacement. Vérifié sans souci avec des données conformes aux restrictions des listes de validation. Bons tests, bonne continuation...

X Cellus · Answer

A nouveau,

Faire attention quand tu supprimes ou adapte une partie du code. Le 1ier RG n'a pas d'espace.

RG = "B2B3B4B5B6Z2Z3Z4Z5Z6"

Ensuite les cellules intermédiaires vont De Z2 à Z6. Or dans ta modification, tu les supprimes!

De même pour le 2ième RG, pas d'espace si la cellule a 3 caractères comme B15.

Note que tu dois avoir seulement 2 classeurs, le premier qui comporte la macro et le second qui sera choisie et sera donc Windows(2).

A suivre...

X Cellus · Answer

Oui, cela vient de ton inattention... Je te rappelle une ligne de mon dernier message. Ainsi que plus après le code transmis. Or est ce que pour le 2ième RG ton code 'Replacement des Données sur les cellules fusionnées des listes de validation RG = "B8 E8 B12G8 B15M2M3M4M5M6" est conforme à la structure donnée? 'Replacement des Données sur les cellules fusionnées des listes de validation RG = "B8 E8 B12G8 B15Z2 Z3 Z4 Z5 Z6 " Ensuite la donnée que tu copie s'accorde bien à la liste des données de validation. Exemple: Si ta liste comprend que ces cinq données comme titi tata toto tutu tyty. Et que tu veuilles placer tonton cela ne passera pas. A suivre.....