VBA Excel - copie cellules vers autre fichier

Question

Bonjour,  

Je cherche à copier les données d'un formulaire sur plusieurs fichiers: 
- un fichier Excel où se trouve le formulaire (çà marche) 
- un autre fichier Excel (là çà ne marche pas mais je ne vois pas de message d'erreur) 

Voici les lignes de code: 

Private Sub Validation_Click() 
  
Dim Position As Integer 

'Détermine l'index de la première ligne vide 
Position = Worksheets("Fichier concaténé").Range("A999").End(xlUp).Row + 1 

' Intègre les valeurs entrées dans le User Form sur la première ligne vide 
Worksheets("Fichier concaténé").Range("A" & Position).Value = MasterData.SupplierName.Value 

If MasterData.SupplierName.Value = "" Then 
MsgBox ("Please enter a supplier name") 

Else 
Worksheets("Fichier concaténé").Range("B" & Position).Value = MasterData.ContractNumber.Value 
Worksheets("Fichier concaténé").Range("C" & Position).Value = MasterData.InternalClient.Value 
Worksheets("Fichier concaténé").Range("D" & Position).Value = MasterData.InternalClientBU.Value 
Worksheets("Fichier concaténé").Range("F" & Position).Value = MasterData.ContractAdministrator.Value 
Worksheets("Fichier concaténé").Range("G" & Position).Value = MasterData.ContractAdministratorBU.Value 
Worksheets("Fichier concaténé").Range("I" & Position).Value = MasterData.AP.Value 

Unload Me 


End If 

'c'est cette partie qui ne fonctionne pas  
Dim wb As Workbook 
Set wb = GetObject("C:\...toto.xlsx") 
wb.Activate 

Dim Position2 As Integer 


'Détermine l'index de la première ligne vide 
Position2 = wb.Worksheets("Circuits").Range("A999").End(xlUp).Row + 1 

' Intègre les valeurs entrées dans le User Form sur la première ligne vide 
wb.Worksheets("Circuits").Range("A" & Position2).Value = MasterData.SupplierName.Value 

If MasterData.SupplierName.Value = "" Then 
MsgBox ("Please enter a supplier name") 

Else 
wb.Worksheets("Circuits").Range("C" & Position2).Value = MasterData.ContractNumber.Value 
wb.Worksheets("Circuits").Range("H" & Position2).Value = MasterData.InternalClient.Value 
wb.Worksheets("Circuits").Range("I" & Position2).Value = MasterData.InternalClientBU.Value 
wb.Worksheets("Circuits").Range("F" & Position2).Value = MasterData.ContractAdministrator.Value 
wb.Worksheets("Circuits").Range("G" & Position2).Value = MasterData.ContractAdministratorBU.Value 
wb.Worksheets("Circuits").Range("J" & Position2).Value = MasterData.AP.Value 

Unload Me 


End If 

ActiveWindow.Close Savechanges:=False 

End Sub 

Si vous avez des idées, des conseils, je suis preneuse! Merci beaucoup!!!

lermite222 · Answer

Bonjour,  
Set wb = GetObject("C:\...toto.xlsx")  ??  
Essaye plutôt  
Set wb = WorkBooks.Open("C:\...toto.xlsx")  
Et je supose que tu est dans un Userform ? si oui,  
Supprime le premier Unlod.Me  
Et le 2èm tu le déplace juste avant le End Sub 
A+  
PS: Une fois que tu met Unload.Me la suite de la procédure ne se fait pas.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.

lermite222 · Answer

Re,
Un peu en aveugle..
Essaye ça
Private Sub Validation_Click()
Dim LigneVide As Long
Dim wb As Workbook

    If SupplierName.Value = "" Then
        MsgBox ("Please enter a supplier name")
        Exit Sub
    End If
    With Worksheets("Fichier concaténé")
    
        'Détermine l'index de la première ligne vide
        LigneVide = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    ' Intègre les valeurs entrées dans le User Form sur la première ligne vide
        .Range("A" & LigneVide).Value = SupplierName.Value
        .Range("B" & LigneVide).Value = ContractNumber.Value
        .Range("C" & LigneVide).Value = InternalClient.Value
        .Range("D" & LigneVide).Value = InternalClientBU.Value
        .Range("F" & LigneVide).Value = ContractAdministrator.Value
        .Range("G" & LigneVide).Value = ContractAdministratorBU.Value
        .Range("I" & LigneVide).Value = MasterData.AP.Value
    End With
    
    'c'est cette partie qui ne fonctionne pas
    Set wb = Workbooks.Open("C:\...toto.xlsx")
    With wb.Worksheets("Circuits")

        'Détermine l'index de la première ligne vide
        LigneVide = .Cells(Rows.Count, 1).End(xlUp).Row + 1

        ' Intègre les valeurs entrées dans le User Form sur la première ligne vide
        .Range("A" & LigneVide).Value = SupplierName.Value
        .Range("C" & LigneVide).Value = ContractNumber.Value
        .Range("H" & LigneVide).Value = InternalClient.Value
        .Range("I" & LigneVide).Value = InternalClientBU.Value
        .Range("F" & LigneVide).Value = ContractAdministrator.Value
        .Range("G" & LigneVide).Value = ContractAdministratorBU.Value
        .Range("J" & LigneVide).Value = AP.Value
        .Save
        .Close
    End With
    Unload Me

End Sub
 A+

VBA Excel - copie cellules vers autre fichier

2 réponses

Discussions similaires

Newsletters