Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro

  • Initiateur de la discussion Initiateur de la discussion AlexAGEMS
  • 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 !

AlexAGEMS

XLDnaute Nouveau
Bonjour,

je rencontre un problème avec ma macro.
Je souhaite ouvrir un fichier de donnée, en copier le contenu, coller l'ensemble dans un onglet nommé "BASE RELANCE", et enfin fermer le fichier de données.

La macro ci dessous fonctionne jusqu'à l'ouverture de mon fichier de données mais ensuite, rien ne se passe.
Etant novice en codage, je sollicite vos lumières pour me sortir du noir !!

Merci à toutes et tous !
Alexandre

Macro :
Sub Macro2()
'
' Macro2 Macro
' Importe la BASE RELANCE
'
' Touche de raccourci du clavier: Ctrl+Shift+B
'



Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, classeur As String
Dim DernLigne As Long, DernColonne As Integer

'Ouvre le fichier voulu
Application.ScreenUpdating = False
Set wkA = ThisWorkbook 'ton dossier ouvert ou se trouve les données
chemin = wkA.Sheets("Mode d'Emploi").Cells(11, 4) ' la partie fixe
classeur = wkA.Sheets("Mode d'Emploi").Cells(11, 5) ' pour récupérer le nom du classeur
Workbooks.Open chemin
Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
'Copie le contenu du fichier ouvert
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1), Cells(DernLigne, DernColonne)).Select
Selection.Copy
'Colle le contenu du fichier ouvert dans l'onglet BASE RELANCE de mon fichier
wkA.Activate
Sheets("BASE RELANCE").Range("A2").PasteSpecial Paste:=xlPasteValues
wkB.Close True 'ferme le classeur ouvert par la macro
Application.ScreenUpdating = True



End Sub
 
Bonjour,
À première lecture, on dirait que wkB prend le même classeur que wkA.
Il faut virer le screenupdating et lancer le débogueur étape par étape pour trouver ce qui cloche.
Un fichier serait le bienvenu au lieu du code posé en vrac comme ça.
A +
 
Bonjour,
À première lecture, on dirait que wkB prend le même classeur que wkA.
Il faut virer le screenupdating et lancer le débogueur étape par étape pour trouver ce qui cloche.
Un fichier serait le bienvenu au lieu du code posé en vrac comme ça.
A +
Bonjour,

Je vous joins le fichier pour que ce soit plus parlant.
Merci pour votre expertise !

Alexandre
 

Pièces jointes

- 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

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
76
Réponses
2
Affichages
299
Réponses
9
Affichages
383
Retour