P
PierYves
Guest
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 :
Merci d'avance de votre aide.
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 :
Code:
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 SubMerci d'avance de votre aide.
Dernière modification par un modérateur: