AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 14:58:20
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

7 commentaire(s) de BLU sur des sources sur tout CodeS-SourceS

Le : 22/06/2008 23:00:32
Source : CODE PERMETTANT DE MANIPULER LES OBJETS EXCEL EN .NET
La sélection de plusieurs onglets devrait être du genre :
Sheets(Array("Feuille 1", "Feuille 2")).Select

Pour info, on m'a donné le lien suivant pour le support VBA et les objets Excel :

http://bvrve.club.fr/Astuces_Michel/12excelvba.html

Cela va peut être t'aider.

Cdt,
Benoit

Le : 19/02/2008 20:43:27
Source : CODE PERMETTANT DE MANIPULER LES OBJETS EXCEL EN .NET
Merci XOFA,
Effectivement la variable contenant le nom de l'onglet semblait être mal évaluée, ce qui du coups plantait le code.

Cdt,
Benoît

Le : 18/12/2007 14:30:57
Source : TRIER UN LISTVIEW PAR CLIC SUR L'ENTÊTE DE COLONNE ET COULEUR + AJUSTEMENT AUTO VB.NET
Bonjour,
Je viens de tester ce module sous VB 20005. Son intégration y ets simple et le code exmple permet une compréhension assez rapide.

Juste une chose, le tri fonctionne mais lorsque l'on change de colonne, la 1ère concerve l'icône ...
Avez vous une idée de la cause ???
Merci d'avance.
Benoit

Le : 07/11/2007 14:13:02
Source : CODE PERMETTANT DE MANIPULER LES OBJETS EXCEL EN .NET
Bonjour,

Je suis sous VB 2005 et office 2003.
Le début de code est ok mais sur la sélection d'une cellule le code bloque

        'Sélectionner une cellule
        sheet = appxls.ActiveWorkbook.Worksheets("NouveauNom")

==>
Impossible d'effectuer un cast d'un objet COM de type 'System.__ComObject' en type d'interface 'Microsoft.Office.Interop.Excel.Workbook'. Cette opération a échoué, car l'appel QueryInterface sur le composant COM pour l'interface avec l'IID '{000208DA-0000-0000-C000-000000000046}' a échoué en raison de l'erreur suivante : Cette interface n'est pas prise en charge (Exception de HRESULT : 0x80004002 (E_NOINTERFACE)).

Avez vous une idée ?

Merci d'avance.

Le : 24/10/2007 10:16:32
Source : ENVOYER MAIL AVEC SERVEUR SMTP ET CONNEXION AVEC LOGIN OU PAS ET AVEC PIECE JOINTE
Bonjour,

le serveur SMTP de ma boite n'est pas configueré avec le port 25 en standard.
J'ai essayer de modifier ton code avec :
            Dim client As Net.Mail.SmtpClient = New Net.Mail.SmtpClient(SMTPServerName)
            client.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
            client.Port = "XXX"

Mais cela ne passe pas
=> le catch me retourne délai d'attente dépassé ...
As tu une idée ?

Le : 26/05/2004 22:04:15
Source : INSTALLATIONDE PACKAGE MSI AVEC WINDOWS INSTALLER
J'avoue  ...
Au départ il s'agissait en fait d'une réponse à une question mais la date du post était de 2003 ...
Au dernier moment j'ai préféré le pousser en trucs et astuces sur le site. Je ne pensais pas vraiment attirer autant de commentaire.

Pour ceux que cela intéresse en fait un fichier MSI n'est pas autre chose qu'une base de données.
Elle stocke entre autre l'arborescence, les fichiers, les dll, la registerie, les icônes et shurtcut, les ODBC ... d'une application a installer. Avec un peu de SQL et les objets, méthodes, propriétés exportés par MSI.DLL un peu obtenir une interface comme décrit dans la capture.

Je sort juste de formation sur AdminStudio d'InstallShield (Effectivement produit payant mais dans le cadre de grande société, le setup dit classique ne suffit pas. ), je commence tout juste le soft que je montre en capture. De plus Windows Installer propose le principe du roll back pendant l'installation et surtout l'autoréparation en cas de problème.

Il reste encore beaucoup de choses a coder : seul les deux premiers onglets sont codés.

Ceux qui veulent vraiment le source n'ont qu'à me demander par mail.
J'vois pas trop l'intérêt de mettre la source pour l'instant en ligne tant qu'elle n'est pas plus avancée.

Désolé d'avoir mis l'eau à la bouche pour certain ...

Sinon la base du code est du genre
'Penser a rajouter la référence MSI.DLL dans votre projet

Global MSI_DB As WindowsInstaller.Database
Global MSI_Obj As WindowsInstaller.Installer
Global MSI_InfoFeature As WindowsInstaller.FeatureInfo
Global MSI_InfoSummary As WindowsInstaller.SummaryInfo
Global MSI_RecordSet As WindowsInstaller.Record
Global MSI_Session As WindowsInstaller.Session
Global MSI_View As WindowsInstaller.View

Global MSI_Connected As Boolean

Global Const msiOpenDatabaseModeReadOnly = 0       'Opens a database read-only, no persistent changes.
Global Const msiOpenDatabaseModeTransact = 1       'Opens a database read/write in transaction mode.
Global Const msiOpenDatabaseModeDirect = 2         'Opens a database direct read/write without transaction.
Global Const msiOpenDatabaseModeCreate = 3         'Creates a new database, transact mode read/write.
Global Const msiOpenDatabaseModeCreateDirect = 4   'Creates a new database, direct mode read/write.
Global Const msiOpenDatabaseModePatchFile = 32     'Adds this flag to indicate a patch file.


Public Function fx_MSI_Connect(ByVal sMsiFile As String)
On Error Resume Next
    Set MSI_Obj = CreateObject("WindowsInstaller.Installer")
    Set MSI_DB = MSI_Obj.OpenDatabase(sMsiFile, msiOpenDatabaseModeTransact)
  
    If Err.Number <> 0 Then
        fx_MSI_Connect = False
        MSI_Connected = False
        objMsiDB = Nothing
        MSI_DB = Nothing
    Else
        fx_MSI_Connect = True
        MSI_Connected = True
    End If
    
End Function

'N'ayant pas trouvé le moyen de mettre en relation la base MSI avec le code via un connecteur (DATA ou Remote_DATA) je stocke la liste des tables dans un tableau de string ...

Public Sub fx_LoadMSI_Tables()
On Error Resume Next
Dim i As Integer
ReDim Preserve tabMSI_Tables(0)
    Set MSI_View = MSI_DB.OpenView("SELECT * FROM _Tables")
    MSI_View.Execute
    Set MSI_RecordSet = MSI_View.Fetch
    
    Do While  Err.Number = 0
        ReDim Preserve tabMSI_Tables(i)
        tabMSI_Tables(i) = MSI_RecordSet.StringData(1)
        'Debug.Print MSI_RecordSet.StringData(1); "Status = "; MSI_RecordSet
        i = i + 1
        Set MSI_RecordSet = MSI_View.Fetch
    Loop

    If Err.Number = 91 Then Exit Sub

End Sub

Voilà pour le début ...
A+
Blu

Le : 06/03/2003 20:52:29
Source : LIRE ET ÉCRIRE DANS UN .INI (FACILE)
Essaie plutôt ce code là :
'API Lecture/Ecriture dans fichier INI
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal as_Section As String, ByVal aa_Key As Any, ByVal aa_NewValue As Any, ByVal as_IniFile As String) As Long

Public Enum IO_Ini
    IniRead = 1
    IniWrite = 2
End Enum

Public Function fx_IOFromIni(as_Section As String, as_Key As String, Optional av_WriteValue As String, Optional as_IniFile As String, Optional as_IOIni As IO_Ini) As String
    Dim ls_StringRead As String

    Select Case as_IOIni
        
        Case IniRead
            'Récupérer des variables dans un fichier INI
            ls_StringRead = String(255, Chr(0))
            fx_IOFromIni = Left(ls_StringRead, GetPrivateProfileString(as_Section, as_Key, "", ls_StringRead, Len(ls_StringRead), as_IniFile))
        
        Case IniWrite
            'Ecriture des variables dans un fichier INI
            WritePrivateProfileString as_Section, as_Key, av_WriteValue, as_IniFile
    
    End Select
    
End Function


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


HTC Touch HD
Entre 25€ et 605€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto friends
Photo femme, plage, bien être, soleil, vacances, été, détente, reposPhoto chambre pleine d'amour

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.