Comment copier une autre feuille Excel dans mon fichier ?

bonjour,

j'ai modifié le code en ce sens :

Sub ouvrirfichierpourcopiercellules()

a = ActiveWorkbook.Name 'la variable a = nom du fichier actuel
MsgBox "Merci de choisir dans le fenêtre ci-après le fichier à exporter"

Application.Dialogs(xlDialogOpen).Show 'ouvre la boîte de dialogue ouvrir
b = ActiveWorkbook.Name ' la variable égale au nom du fichier que tu viens d'ouvrir
Cells.Copy 'copie toute la feuille

Workbooks(a).Activate 'active le classeur ou tu veux copier
Sheets("Feuille1").Select 'sélectionne la feuille 1
ActiveSheet.Paste
Workbooks(b).Close 'ferme le fichier d'ou tu as pris les cellules

End Sub

bonjour,

voici la macro

Sub ouvrirfichierpourcopiercellules()

a = ActiveWorkbook.Name 'la variable a = nom du fichier actuel

Application.Dialogs(xlDialogOpen).Show 'ouvre la boîte de dialogue ouvrir
b = ActiveWorkbook.Name ' la variable égale au nom du fichier que tu viens d'ouvrir
Sheets("export").Select 'sélectionnes la feuille export
Cells.Copy 'copie toute la feuille

Workbooks(a).Activate 'active le classeur ou tu veux copier
Sheets("Feuille1").Select 'sélectionne la feuille 1
ActiveSheet.Paste
Workbooks(b).Close 'ferme le fichier d'ou tu as pris les cellules

End Sub

Bonjour,

merci pour votre réponse qui me permet d'avancer. Mais, je vais préciser mon besoin.

En fait, j'ai un peu simplifié car j'ai plusieurs feuilles de calcul A, B, C, D,... et chaque fois les données de B sont récupérées pour les placer dans la feuille A, les données de la feuille D pour récupérer pour être placées dans la feuille C,...etc

C'est pourquoi, le fichier que je récupère ne s'appelle pas toujours "export".

J'aurais besoin que la macro m'ouvre une fenêtre de dialogue avec un texte du style "quel fichier voulez vous importer ?" et me permettant d'aller chercher dans mon arborescence le fichier qui va bien.

Une fois sélectionnée, la macro fera ensuite la recopie de l'ensemble des données de la feuille "export" dans la feuille contenant le bouton de commande.

Ainsi, je placerai un bouton de commande dans ma feuille A mais aussi dans ma feuille C.

En espérant que mes explications soient compréhensibles.

Merci d'avance !

Bonjour,

merci beaucoup pour ton dernier message. J'ai adapté de la manière suivante car j'avais un souci au niveau de la sélection :

Private Sub CommandButton1_Click()

a = ActiveWorkbook.Name 'la variable a = nom du fichier actuel
MsgBox "Merci de choisir dans le fenêtre ci-après le fichier à exporter"

Application.Dialogs(xlDialogOpen).Show 'ouvre la boîte de dialogue ouvrir
b = ActiveWorkbook.Name ' la variable égale au nom du fichier que tu viens d'ouvrir

Sheets(1).Select 'car le nom du 1er onglet n'est pas forcément Feuil1

Selection.Copy

Workbooks(a).Activate 'active le classeur ou tu veux copier

Sheets("Données brutes").Select 'sélectionne la feuille en question

ActiveSheet.Paste

Workbooks(b).Close 'ferme le fichier d'ou tu as pris les cellules

Sheets("DEPARTS").Select 'sélectionne la feuille en question

Call Transfo 'appel ma macro de transformation des données brutes

End Sub

Il me reste un dernier souci : ma macro de transformation se charge de transformer les données brutes qui sont notamment séparées par des virgules et autres tabulations avant d'en extraire les données essentielles.

Or, lorsque j'effectue avant la recopie, Excel détecte justement cela et me propose déjà une mise en forme... : "L'assistant Texte a déterminé que mes données sont de type délimitées"

Je voudrais éviter l'ouverture de cette fenêtre et laisser la macro "Transfo" faire son travail et me faire aussi gagner du temps...

Merci d'avance !

Bonjour !

Application.DisplayAlerts = False 'désactive les messages d'erreurs
ouverture du fichier
...
(ton code)
...
fermeture du fichier
Application.DisplayAlerts = True 'réactive les messages d'erreurs.

En espérant t'avoir aidé

@+

Bonjour,

merci beaucoup pour ton aide mais malheureusement, j'ai toujours le même message me demandant quelle mise en forme je souhaite...

Il s'agit de l'assistant texte qui me demande de choisir entre les virgules, points virgules,... etc pour d"limiter mes colonnes, chose que ma macro prend ensuite en compte...

Merci d'avance !