Bonjour à tous,
Je suis débutante en VBA donc soyez indulgents
Je souhaite recopier des données planning sous Excel vers un planning MSP. Je dois apparemment copier colonne par colonne car sinon ça plante. J'ai 4600 lignes dans mon planning.
A partir de la ligne 3, de B à Z
Il faut copier toutes les colonnes sauf "prédécesseurs" et "successeurs" dans un premier temps.
Ensuite copier les 2 colonnes manquantes L et M afin que les dates prennent les bonnes valeurs.
J'ai créé un module avec toutes mes déclarations: (petit extrait dessous)
Voici mon code pour la première colonne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Public SH1 As Worksheet 'SC_Planning_Essais Public Const NOM_F_SC_PLANNING_ESSAIS As String = "SC_Planning_Essais" Set SH1 = Sheets(NOM_F_SC_PLANNING_ESSAIS)
Mais ça me met variable non définie, sauf que je ne vois pas où .... je ne suis pas sur de m'y être bien pris alors si vous voyiez une meilleure méthode je suis preneuse!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub Planning_MSP() ''''''''''''''''''''''''''''''''''''''''''''''' ''' COPIER PLANNING EXCEL VERS PLANNING MSP ''' ''''''''''''''''''''''''''''''''''''''''''''''' Dim SH1 As Worksheet Dim oPath As String 'COLONNE APPLICATION SH1.Select Range("B3").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ActiveDocument.FollowHyperlink Address:=oPath & _ "D:\Users\st03147\Desktop\Planning Essais\SC - Planning Essais.mpp", NewWindow:=True Windows("SC-Planning Essais.mpp").Activate SelectTaskField Row:=0, Column:="Texte5" EditPaste ' ..... et ainsi de suite pour toutes les colonnes End Sub
Pour info la feuille Excel que je veux copier porte le même nom que mon planning MSP.
Un grand merci d'avance pour ceux qui se jetteront à l'eau!!
FOB
Partager