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

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
 

Wayki

XLDnaute Impliqué
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 +
 

AlexAGEMS

XLDnaute Nouveau
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

  • RELANCES pour essais V2.xlsm
    574.9 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
311 540
Messages
2 080 523
Membres
101 234
dernier inscrit
Layani89