Discussion :

[FOB11]

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)

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)

Voici mon code pour la première colonne:

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

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!

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