copier/coller une plage variable d'un classeur à un autre

[taupivin]

Bonjour les développeurs,

Peut-être pourrez-vous m'aider sur mon problème.
Je souhaite réaliser un :
--> copier une plage de cellules (nb de colonnes fixes et nb de ligne variables) depuis un classeur "source"
Règle : si la cellule de la colonne A est NON-VIDE alors copier de Ai à Zi

--> Coller cette plage vers la première ligne vide d'un classeur "cible".

Vous trouverez mes deux classeurs en pièce jointe.

Ci-dessous le code que je n'arrive pas à faire fonctionner (entre les ****) :

Private Sub CommandButton5_Click()
 
Dim Msg, Style, Title
 
Dim MaPlage As Range
Dim DernLigne As Long

 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
 
If IsFileOpen("C:\WINXP\Profiles\25003880\Desktop\Macro MR-GLS\BDD_MR.xlsx") Then
MsgBox "Fichier ouvert par un autre utilisateur" & Chr(13) & "Merci d'essayer plus tard"
Else
Workbooks.Open "C:\WINXP\Profiles\25003880\Desktop\Macro MR-GLS\BDD_MR.xlsx"
 
Workbooks("Mondial Relay Vtest").Worksheets("essai").Visible = True

'***************************************************************************************
With Workbooks("Mondial Relay Vtest").Worksheets("essai") 'Ceci est pour le classeur 1

Set MaPlage = Workbooks("Mondial Relay Vtest").Worksheets("essai").Range("A" & DernLigne & ":Z" & DernLigne)
MaPlage.Copy

End With

ActiveSheet.Paste Destination:=Workbooks("BDD_MR").Worksheets("Database").Range("A1") 'Copie vers le classeur 2
Application.CutCopyMode = False
'***************************************************************************************

Workbooks("Mondial Relay Vtest").Worksheets("essai").Visible = False
 
End If

End Sub

Le fichier source ne nomme "Mondial Relay Vtest2"
Le fichier cible se nomme BDD_MR

Merci par avance pour votre aide.

 

[taupivin]

Re : copier/coller une plage variable d'un classeur à un autre

Bonjour,

pas d'idée ??

 

[taupivin]

Re : copier/coller une plage variable d'un classeur à un autre

Bonjour,
je "up" la discussion avant de tomber dans l'oubli 😉

 

[taupivin]

Re : copier/coller une plage variable d'un classeur à un autre

Re, j'ai trouvé pourquoi rien ne se passait avec mon code.
Après une petite modification, je n'arrive qu'a copier la première ligne.
La plage selectionnée est uniquement la première ligne ????

Private Sub CommandButton5_Click()
 
Dim Msg, Style, Title
 
Dim MaPlage As Range
Dim DernLigne As Long
Dim i As Integer
 
'************************************************************************************************
If IsFileOpen("C:\WINXP\Profiles\25003880\Desktop\Macro MR-GLS\BDD_MR.xlsx") Then
MsgBox "Fichier ouvert par un autre utilisateur" & Chr(13) & "Merci d'essayer plus tard"
Else
Workbooks.Open "C:\WINXP\Profiles\25003880\Desktop\Macro MR-GLS\BDD_MR.xlsx"
 
Workbooks("Mondial Relay Vtest").Worksheets("essai").Visible = True

'****************************************************************************************************

With Workbooks("Mondial Relay Vtest").Worksheets("essai") 'Ceci est pour le classeur 1
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set MaPlage = Workbooks("Mondial Relay Vtest").Worksheets("essai").Range("A" & DernLigne & ":F" & DernLigne)
MaPlage.Copy

End With

ActiveSheet.Paste Destination:=Workbooks("BDD_MR").Worksheets("Database").Range("A1") 'Copie vers le classeur 2
'Application.CutCopyMode = False
'***************************************************************************************************

Workbooks("Mondial Relay Vtest").Worksheets("essai").Visible = False
 
End If

End Sub

 

[taupivin]

Re : copier/coller une plage variable d'un classeur à un autre

Bonjour à tous,

je viens de modifier la ligne suivante

Set MaPlage = Workbooks("Mondial Relay Vtest").Worksheets("essai").Range("A2:F" & DernLigne)

Maintenant cela "copie-colle" la première et la 7 lignes -____-'

Bizarre !

 

[taupivin]

Re : copier/coller une plage variable d'un classeur à un autre

Je n'ai toujours pas trouver de solutions. Quelqu'un y a jeté un oeil ?