Migration Windows7 32b vers Windows7 64b

Migration Windows7 32b vers Windows7 64b - VB/VBA/VBS - Programmation

Marsh Posté le 04-03-2015 à 11:05:03    

Bonjour,
 
Dans le cadre de mon travail, je dois migrer une application VBA Excel d'un poste Windows 7 32bits (Dell XPS) avec Office 2010 32bits à un poste Windows 7 64bits (Dell Optiplex 7010).
Ayant lu sur certains forums qu'il était dans ce cas préferable de rester sur un Office 32 bits (et ayant moi-même pu constater en premier lieu les incompatibilités avec Office 2010 64bits), j'ai installé Office 2010 32bits sur le nouveau PC.
Hors, malgré cela, la macro ne tourne pas :
- à l'ouverture du fichier, j'ai déja 2 fois la warning box "Erreur de fichier : risque de perte de données" qui s'affiche
- puis, j'ai une warning box "Erreur d'execution '1004': Erreur définie par l'application ou par l'objet"
Je clique alors sur le bouton "Débogage" et j'atteri dans le code avec la ligne "Set G = S.Shapes(I).Chart" surligné en jaune.
Voici la partie de code en question :
 

Code :
  1. Sub NouveauGraph()
  2. Dim S, W, G, I
  4.     Set S = ThisWorkbook.Sheets(SHEETINSERT)
  5.     Workbooks(WORKDATA).Sheets(SHEETINSERT).Select
  6.     Set W = Workbooks(WORKDATA).Charts.Add
  7.     W.Name = SheetGraph
  8.     W.Move before:=Workbooks(WORKDATA).Sheets(1)
  9.     W.ChartArea.Clear
  10.     W.Location Where:=xlLocationAsObject, Name:=SHEETINSERT
  11.     I = Int(Val(Replace(SheetGraph, SHEETREF, "" )))
  12.     Set G = S.Shapes(I).Chart
  13.     G.ChartArea.Left = 4#
  14.     G.ChartArea.Top = 4# + (445 * (I - 1)) + 4
  15.     G.ChartArea.Width = 720#
  16.     G.ChartArea.Height = 445#
  17.    
  18.     FormatGraph
  19.    
  20.     Exit Sub
  21.    
  22.    
  23. End Sub


N'ayant que des conaissances basiques en VBA, je ne pensais pas avoir à toucher au code pour effectuer cette migration...
Surtout que les versions d'Office utilisées sont les mêmes (Office Pro 2010 32bits).
 
Y a-t-il une option à paramétrer quelque part ?
Si non, d'où vient le problème ?
Vais-je devoir intervenir dans le code ?
 
Merci d'avance de vos réponses/conseils !!

Reply

Marsh Posté le 04-03-2015 à 11:05:03   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed