Problème de code

[PierYves]

bonjour,
j'essaye de comprendre et de résoudre mon problème de code depuis hier soir mais j'ai tjrs le même message d'erreur "erreur d'exécution '438': Propriété non gérée par cet objet". j'ai pourtant essayer de comprendre au mieux les autres infos du forum sur ce sujet mais la je bloque complètement.
mon code est le suivant :

Private Sub CommandButton2_Click()

Workbooks.Open Filename:="O:\Utilisateur\Stagiaire\pierre-yves ROUQUIE\PFE\PRODUIT PFE\copie de matériels usuels des investissements"

  
    Dim objWbk As Workbook
    Dim objSht1 As Worksheet, objSht2 As Worksheet, objSht3 As Worksheet
    Dim objShtA As Worksheet, objShtB As Worksheet, objShtC As Worksheet
 
        Set objShtA = ThisWorkbook.Worksheets("Coffragevoile")
        Set objShtB = ThisWorkbook.Worksheets("Coffragepoutre")
        Set objShtC = ThisWorkbook.Worksheets("Etaiement")
        objShtA.Range("A4:F65536").Clear
        objShtB.Range("A4:F65536").Clear
        objShtC.Range("A4:F65536").Clear
   
    
        Set objWbk = Application.Workbooks("copie de matériels usuels des investissements.xls")
               
        Set objSht2 = objWbk.Worksheets("COFFRAGE poteau poutre tradi")
         With objWbk
         objSht2.Range("A4:F10000").Copy
         Workbooks("Tableau investissement VBA essai 6").Sheets("Coffragepoutre").Range ("A4:F10000")
                           
         End With
          
         
        
objWbk.Close
Unload Me

End Sub

Merci d'avance de votre aide.

 

[kjin]

Re : Problème de code

Bonjour,
Avec un code mis entre balises

 (# dans le menu), cela aiderait à y voir les erreurs éventuelles...
A+
kjin

 

[PierYves]

Re : Problème de code

dsl je savais comment faire. merci !

 

[kjin]

Re : Problème de code

Bonjour,
Peut-être comme ceci, à condition que les classeurs concernés soient bien ouverts

Private Sub CommandButton2_Click()
Dim objWbk As Workbook, objSht2 As Worksheet

Set objWbk = Workbooks.Open("O:\Utilisateur\Stagiaire\pierre-yves ROUQUIE\PFE\PRODUIT PFE\copie de matériels usuels des investissements[B][COLOR="Blue"].xls[/COLOR][/B]")
Set objSht2 = objWbk.Worksheets("COFFRAGE poteau poutre tradi")
With objSht2
    .Range("A4:F10000").Copy [B][COLOR="Blue"]_[/COLOR][/B]
    Workbooks("Tableau investissement VBA essai 6").Sheets("Coffragepoutre").Range("A4:F10000")
End With
objWbk.Close [B][COLOR="Blue"]False[/COLOR][/B]
Unload Me

End Sub

A+
kjin

 

[PierYves]

Re : Problème de code

Ca marche !
Merci beaucoup, c'est trop bien ! ça m'aide vraiment pq la j'étais complètement perdu.
Merci encore