Aller au contenu

ExcelLink.dvb


Messages recommandés

Posté(e)

Bonjour,

 

Qui a déja eu ce message en important depuis excel...

 

http://img512.imageshack.us/img512/6260/alerteav5.jpg

 

Une réponse furtive de Microsoft

http://support.microsoft.com/kb/468889/fr

 

Merci

 

"Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."

J-C Van Damme

Posté(e)

Salut,

Je me rappelle l'avoir eu, mais malheureusement, je ne sait plus comment j'avais résolu et d'où venait le problème. :( , j'espère que tu ne m'en voudras pas de ne pas me replonger dans ce code.

A part ça, je trouve le code un peu vieillot, par ex il ne prend en charge que 2 versions d'Excel, alors qu'il y a moyen que ça marche avec toutes les versions d'XLS......

Nous n’ héritons pas de la terre de nos ancêtres.Nous l’empruntons à nos enfants.

Posté(e)

A part ça, je trouve le code un peu vieillot, par ex il ne prend en charge que 2 versions d'Excel, alors qu'il y a moyen que ça marche avec toutes les versions d'XLS......

 

Salut je commence (quand j'ai du temps) à éssayer le VBA et pour Excel, ben j'ai tout simplement rajouté ses quelques lignes

 

'---------------------------------

' Try to find a version of Excel 11

'---------------------------------

 

' Attempt to activate an existing instance

Err.Clear

Set ExcelServer = GetObject(, "Excel.Application.11")

If Err.Number = 0 Then

ExcelVer = 11

GoTo FINISH

End If

 

' Create a new instance

Err.Clear

Set ExcelServer = CreateObject("Excel.Application.11")

If Err.Number = 0 Then

ExcelVer = 11

GoTo FINISH

End If

 

'---------------------------------

' Try to find a version of Excel 10

'---------------------------------

 

' Attempt to activate an existing instance

Err.Clear

Set ExcelServer = GetObject(, "Excel.Application.10")

If Err.Number = 0 Then

ExcelVer = 10

GoTo FINISH

End If

 

' Create a new instance

Err.Clear

Set ExcelServer = CreateObject("Excel.Application.10")

If Err.Number = 0 Then

ExcelVer = 10

GoTo FINISH

End If

 

'---------------------------------

' Try to find a version of Excel 9

'---------------------------------

 

' Attempt to activate an existing instance

Err.Clear

Set ExcelServer = GetObject(, "Excel.Application.9")

If Err.Number = 0 Then

ExcelVer = 9

GoTo FINISH

End If

 

' Create a new instance

Err.Clear

Set ExcelServer = CreateObject("Excel.Application.9")

If Err.Number = 0 Then

ExcelVer = 9

GoTo FINISH

End If

 

Et ca marche (je sais et tu as raison on peut faire plus court)

 

Sinon ma version d'AutoCAD est 2006 (idem avec 2007)

 

"Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."

J-C Van Damme

Posté(e)

Bonjour,

 

Personne n'a eu ce message comme je comprend....

 

:casstet:

"Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."

J-C Van Damme

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité