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 ****) :
Le fichier source ne nomme "Mondial Relay Vtest2"
Le fichier cible se nomme BDD_MR
Merci par avance pour votre aide.
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 ****) :
Code:
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 SubLe fichier source ne nomme "Mondial Relay Vtest2"
Le fichier cible se nomme BDD_MR
Merci par avance pour votre aide.