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

Rechercher des sujets similaires à "probleme code fichier partager"