Menu

Un problème d'appel de fichier source

Messages postés
9
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
15 mai 2019
- - Dernière réponse : f894009
Messages postés
14356
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mai 2019
- 15 mai 2019 à 08:34
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.
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
14356
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mai 2019
1371
1
Merci
Bonjour,

A voir:

https://grenier.self-access.com/access/fichiers/boite-de-dialogue-fichierouvrir/

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 39326 internautes nous ont dit merci ce mois-ci

Moldude
Messages postés
9
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
15 mai 2019
-
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
f894009
Messages postés
14356
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mai 2019
1371 -
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????
f894009
Messages postés
14356
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mai 2019
1371 -
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.....
Moldude
Messages postés
9
Date d'inscription
jeudi 21 mars 2019
Statut
Membre
Dernière intervention
15 mai 2019
-
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)
f894009
Messages postés
14356
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mai 2019
1371 -
Re,

Bonne suite….
Commenter la réponse de f894009