Probleme code pour fichier partager
bonjour,
voila mon problème mon fichier fonctionne bien mais que je le partage
tout les boutons VBA fonctionne sauf celle-ci : (erreur 1004)
Private Sub CommandButton2_Click()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TPN(1 To 9) As Variant 'déclare la variable TPN (Tableau des Plages Nommées)
Dim LI As Integer 'déclare la variable LI (Ligne)
Dim I As Byte 'déclare la variable I (Incrément)
Set OS = Worksheets("BT en cours") 'définit l'onglet source OS
Set OD = Worksheets("Rapport intervention") 'définit l'onglet destination OD
TPN(1) = OD.Range("date_2").Address 'définit la variable TPN(1) (plage nommée 1)
TPN(2) = OD.Range("demandeur_2").Address 'définit la variable TPN(2) (plage nommée 2)
TPN(3) = OD.Range("réalisé_par_2").Address 'définit la variable TPN(3) (plage nommée 3)
TPN(4) = OD.Range("typinterv_2").Address 'définit la variable TPN(4) (plage nommée 4)
TPN(5) = OD.Range("priorité_2").Address 'définit la variable TPN(5) (plage nommée 5)
TPN(6) = OD.Range("equipement_2").Address 'définit la variable TPN(6) (plage nommée 6)
TPN(7) = OD.Range("sous_ensemble_2").Address 'définit la variable TPN(7) (plage nommée 7)
TPN(8) = OD.Range("bt_2").Address 'définit la variable TPN(8) (plage nommée 8)
TPN(9) = OD.Range("OBJET_2").Address 'définit la variable TPN(9) (plage nommée 9)
LI = ActiveCell.Row 'définit la ligne LI
For I = 1 To 9 'boucle sur les neufs plages nommées
OD.Range(TPN(I)).MergeArea.ClearContents 'efface le contenu de la plage nommée de la boucle
'renvoie la valeur de la cellule ligne LI colonne I de l'onglet OS dans la plage nommée de la boucle
OD.Range(TPN(I)).Value = OS.Cells(LI, I).Value
OD.Range(TPN(I)).Merge 'fusionne la plage nommée de la boucle
Next I 'prochaine plage nommée de la boucle
Sheets("Rapport intervention").Activate
End Sub
avez-vous une solution merci pour que ce code fonctionne en partage