Discussion :

[GROBIN]

Bonjour,
Je suis sur mon ordi maison Windows7 - Excel 2010
Sur mon portable j'ai XP Excel 2003 et une macro qui fonctionne
Lorsque je lance ma macro j'ai un message d'erreur me demandant de mettre à jour les instructrions Declare. C'est ce que je pensais avoir fait en
modifiant l'API comme ci-dessous.

Private Declare Function PtrSafe GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

comme j'ai pu le lire sur un site microsoft en anglais
Je suis un peu perdu. Je joins le fichier. Merci de votre aide. RG

[kiki29]

Salut, il y a aussi ceci , n'ayant rien de similaire sous la main, je ne sais pas si cela t'aidera.

[78chris]

Bonjour

Ton message est ambigu car on ne sait sur laquelle des 2 configs tu rencontres le PB.

Sous Excel 2010 32 bits et W7 64 bits, chacune de ces 2 syntaxes fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long

[GROBIN]

Bonjour kiki29 et 78chris,
mille excuses pour mon temps de réaction.
merci kiki29 ton renvoi m'a permis de voir que mon 2ème code était mal écrit et que PtrSafe devait se trouver avant Function et non après. Cedi dit ça ne fonctionne toujours pas.

78chris,
Si j'utilise le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare  Function  GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

,
j'ai le message "le code contenu dans ce projet doit être mis à jour sur les systèmes 64 bits....."

Si j'utilise, comme tu l'as écrit, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Private Declare PtrSafe Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long

donc avec PtrSafe avant Function et non après, la macro ne se déclenche plus.

tjrs merci pour l'aide. GR

[78chris]

Bonjour

Excel est-il installé en 64 bits ou en 32 bits ?

J'ai testé avec Excel 32 bits sur W7 64 bits...

[GROBIN]

Bonjour Chris,

Le message d'erreur pouvait me le laisser penser. Mais non excel 2010 est en 32 bits.
Je suis allé aujourd'hui chez un ami dt l'ordi est sous xp et qui utilise Excel 2007. J'ai tester mes macros. Outre le fichier cité précédemment qui bogue sur

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

J'ai un autre fichier qui lui bogue sur

Set fs = Application.FileSearch

Il y a du y avoir un gd changement entre la version 2003, celle de 2007 et les suivantes. Mais comment faire l'adaptation? GR

[kiki29]

Salut, pour FileSearch c'est terminé depuis la version 2007, voir ici pour adaptation.

[GROBIN]

Bonjour Kiki29,
Ton premier message m'avait été bien utile pour comprendre ce que 78chris m'avait répondu.
Laz encore, ton message m'est précieux, j'ai téléchargé le document et modifier mon doc en conséquence.

Quant à la macro qui fonctionne pas, mille excuses à Chris car sa proposition de modif ainsi écrite:

Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

fonctionne en fait parfaitement encore fallait-il que je pense à modifier le ch d'accès pour adapter mon doc à mon ordinateur de bureau!C'est chose faite. Gd merci à vous deux. GR