Importation d'excel

[Julien]

Bonjour !Est-il possible de récupérer un carnet d'adresse sous excel afin de l'importer dans Lotus Notes 5.0.4. ?Je suis pret a faire plusieurs manipulations ou enregistrements spécifiques.Je suis ouvert à toute solution.Je ne comprends pas quel masque utiliser lors de l'importation.Merci d'avance

[Bernard]

Bonjour, Importer depuis Excel fait gagner quelques etapes, par rapport à un carnet d'adresses Eudora, etc...Le principe est simple, Lotus Notes importe du WK4 (Lotus 123), que l'on obtient facilement depuis Excel.Il faut donc se créer un Excel avec des champs dans un ordre bien précis et avec un titre de colonne. (Ci-dessous les champs dans l'ordre )Une fois le tableau rempli, il reste à le sauver en wk4.Dans Lotus Notes, ouvrir le carnet d'adresses, ou la inbox, et faire Fichier, importer :-Choisir le masque Contact (sans s)-Format de colonne défini dans WKS-Calculer champs du masque à l'importationBon courageTitleFirstNameMiddleInitialLastNameSuffixCompanyNameDepartmentJobTitleOfficeStreetAddressBusinessStreet2BusinessStreet3OfficeCityOfficeStateOfficeZipOfficeCountryStreetAddressHomeStreet2HomeStreet3CityStateZipCountryOtherStreetOtherStreet2OtherStreet3OtherCityOtherStateOtherPostalCodeOtherCountryAssistantsPhoneOfficeFaxPhoneNumberOfficePhoneNumberBusinessPhone2CallbackCellPhoneNumberOfficePhoneNumberHomeFaxPhoneNumberPhoneNumberHomePhone2ISDNCellPhoneNumberOtherFaxOtherPhonePagerPrimaryPhoneRadioPhoneTTYTDDPhoneTelexAccountAnniversaryAssistantsNameBillingInformationBirthdayCategoriesChildrenDirectoryServerMailAddressMailAddressEmail2AddressEmail2DisplayNameEmail3AddressEmail3DisplayNameGenderGovernmentIDNumberHobbyInitialsInternetFreeBusyKeywordsLanguage1LocationManagersNameMileageCommentOfficeLocationOrganizationalIDNumberPOBoxPriorityPrivateProfessionReferredBySensitivitySpouseUser1User2User3User4WebSite

[Eric]

Lors de l'importation, les valeurs sont placés dans des champs qui ont comme nom la premiere ligne de ta feuille EXELEssaye de faire une imporation en donnant comme valeur de colonne le nom du champ correspondant dans le modele de Carnet d'adresse que tu veux utiliser.

[Julien]

Ca ne marche pas, ça m'affiche des lignes vides. Autant de lignes que de champs.Lorsque je decoche "Format de colonne défini par titre dans WKS", les champs apparaissent mais ils se placent comme un contact. Donc le nom devient un contact, le prenom devient un contact ...

[Stephane Maillard]

Bonjour,Voici un code qui importe des fichiers Excel, mais il faudra modifier les champs et le fichier Excel pour qu'il fonctionne.Sub Initialize Dim xlFilename As String xlFilename = "H:\Test.xls" '// This is the name of the Excel file that will be imported Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Set db = session.CurrentDatabase Set doc = New NotesDocument(db) Dim One As String Dim row As Integer Dim written As Integer '// Next we connect to Excel and open the file. Then start pulling over the records. Dim Excel As Variant Dim xlWorkbook As Variant Dim xlSheet As Variant Print "Connecting to Excel..." Set Excel = CreateObject( "Excel.Application" ) Excel.Visible = False '// Don't display the Excel window Print "Opening " & xlFilename & "..." Excel.Workbooks.Open xlFilename '// Open the Excel file Set xlWorkbook = Excel.ActiveWorkbook Set xlSheet = xlWorkbook.ActiveSheet '// Cycle through the rows of the Excel file, pulling the data over to Notes Goto Records Print "Disconnecting from Excel..." xlWorkbook.Close False '// Close the Excel file without saving (we made no changes) Excel.Quit '// Close Excel Set Excel = Nothing '// Free the memory that we'd used Print " " '// Clear the status line Records: row = 0 '// These integers intialize to zero anyway written = 0 Print "Starting import from Excel file..." Do While True Finish: With xlSheet row = row + 1 Set view = db.GetView("Main View") Set doc = db.CreateDocument '// Create a new doc doc.Form = "ImportForm1" doc.SWEPO = .Cells( row, 1 ).Value doc.SWEORDER = .Cells(row, 2 ).Value doc.SWEORDERDATE = .Cells(row, 3).Value doc.ITEMNUMBER = .Cells( row, 4 ).Value doc.ORDERSTATUS = .Cells(row, 5).Value doc.QUANTITYORDERED = .Cells( row, 6).Value doc.AMOUNTBILLED = .Cells(row, 7).Value doc.SHIPMETHOD = .Cells( row, .Value doc.SHIPDATE = .Cells(row, 9).Value doc.TRACKINGNUMBER = .Cells(row, 10).Value Call doc.Save( True, True ) '// Save the new doc written = written + 1 If written = 100 Then Print written Print written & "record stopped at..", doc.SWEPO(0), doc.SWEORDER(0),doc.SWEORDERDATE(0),doc.ITEMNUMBER(0) ans$ = Inputbox$("Do you want to continue, Y/N?") If ans$ = "Y" Or ans$ ="y" Then Goto Finish Else Goto Done End If End If' End If End With Loop ReturnDone:End Sub[%sig%]

[abcc]

La vue "Main View' correspond t'elle à la vue "people" du carnet d'adresse "Contacts"?Alain

[Stephane Maillard]

Bonjour,Le nom de la vue, masque est donné à titre indicatif, vous mettez le nom qui vous intéresse.[%sig%]