Un problème d'appel de fichier source [Résolu/Fermé]

Signaler
Messages postés
19
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
8 janvier 2020
-
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
-
Bonjour,
J'aimerai améliorer ma macro de copie de cellules d'un fichier à un autre en y incluant une boite de dialogue pour sélectionner le fichier source de copie. N'ayant pas trouvé mon bonheur dans les différentes ressources je viens questionner ce forum qui m'as déjà apporter plusieurs solutions à mes problèmes.
Voila j'aimerai au lancement de la macro qu'une boite de dialogue s'ouvre et que dedans j'y insère le nom (ou le chemin du fichier). Ce nom sera ensuite utilisé dans la macro comme "Classeur1"
Le but c'est de pouvoir utiliser cette macro pour plusieurs fichiers sans à chaque fois avoir à retourner dans le code pour changer le nom du fichier source.

Voici un bout de ma macro
Sub Macro4()
'
' Macro4 Macro
'

'
Windows("Classeur1").Activate
Sheets("Macro").Select
Range("B2").Select
Selection.Copy
Windows("Classeur2").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

D'avance merci.

1 réponse

Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 61497 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
8 janvier 2020

Merci d'avoir encore pris le temps de me répondre
Alors grosso modo,
J'ai un fichier destination et un fichier source (les deux sont différents) qui ont rigoureusement la forme (dans le fichier destination la case B1 correspond toujours a une nombre de patates par exemple, même principe avec le fichier source). J'ai toujours le même fichier destinataire à remplir. Les fichiers sources ont une structure identique mais ne diffèrent que par le nom (même structure entre eux mais structure différente du fichier destination). En gros (peut etre que je fabule sur les capacité du vba) je voudrais utiliser ma macro qui me sert a copier mes cellules d'un tableau à l'autre :

Sub Macrotestafb()
'
' Macro4 Macro
'

'
Call SelectionFichier01

Windows("fichiersource.xlsx").Activate
Sheets("Macro").Select
Range("B2").Select
Selection.Copy
Windows("fichierdestination.xlsx").Activate
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

sauf que lorsque j'ai fini de remplir mon fichier destination avec un fichier source, pourvoir changer le fichier source sans devoir rentrer dans le code de la macro et changer manuellement "fichiersource.xlsx" en "fichiersource2.xlsx" (ouvrir une fenêtre pour lui indiquer le nouveau fichier source a utiliser). Pour faire simple pouvoir stocker le chemin du fichier source dans une variable que je pourrait modifier à la volée par une boite de dialogue comme ce que le lien que vous m'avez fait parvenir.

D'avance merci
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
Re,

J'ai toujours le même fichier destinataire à remplir
Le code devra etre dans le fichier destinataire.
pourvoir changer le fichier source sans devoir
Oui, et a quel moment????
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
Bonjour,
Un exemple choix fichier source et ecriture cellule fichier destination:

https://mon-partage.fr/f/1RKPE6Ul/

Pour les cellules a copier, vous verrez bien.....
Messages postés
19
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
8 janvier 2020

Bonjour,
Déjà je dois dire "chapeau" c'est ce que je voulais. Me reste plus qu'à modifier un peu la macro pour pouvoir copier coller (uniquement la valeur) pour différentes cellules du tableau source pour ensuite coller ça dans le fichier destination mais l'essentiel est largement fait. Je vous en remercie beaucoup (encore une fois)
Messages postés
15238
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
29 juin 2020
1 306
Re,

Bonne suite….