background preloader

Concret VBA

Facebook Twitter

Insertion automatique d'images sous excel. Merci eriiic, je progresse ... cela correspond a ce que je veux faire, mais peut on automatiser tout ca ? Voila ce que j'ai ecrit pour voir s'afficher le resultat de 3 liens : (ci dessous) - on peut certainement eviter de devoir copier coller et manuellement de modifier le champs [B2] ... [B3] .... est ce possible de realiser une boucle ? N liens correspond à n affichages au fait, cela marche avec une url !!! Sub test() fich = [B1].Value 'recup nom fichier ligne = [B1].Row 'en quelle ligne ? Fich = [B2].Value 'recup nom fichier ligne = [B2].Row 'en quelle ligne ?

Fich = [B3].Value 'recup nom fichier ligne = [B3].Row 'en quelle ligne ? End Sub. Access VBA Créér hyperliens dynamique actif. [AC-2016] Références Outlook sous access qui manque en changeant de version. XL 2007 VBA - Erreur 1004 - définition du RANGE. Pilotage de l'application Office Excel (Excel Automation) Manipuler une application Office n'est pas chose évidente pour le commun des développeurs. Or, dans nos développements, il n'est pas rare que nous ayons besoin de lire ou écrire dans un fichier Excel qui est souvent utilisé comme fournisseur de données. Nous allons voir comment référencer Excel dans son projet de développement, puis nous allons piloter Excel à l'aide de deux classes effectuant les opérations de base de lecture (reader) et d'écriture (writer). Ces classes sont adaptées des classes StreamReader et StreamWriter fournies avec le framework.NET. Enfin, nous allons voir comment découvrir et piloter l'ensemble des fonctions Excel grâce à quelques astuces.

Le code a été rédigé avec Microsoft ® Visual C# 2005 Express Edition. Afin de piloter automatiquement les différentes fonctions d'Excel, il est nécessaire de référencer les bibliothèques Office Excel dans son projet. N'oubliez pas de référencer les bibliothèques dans le fichier (avec un using en C#, ou un imports en VB). Close. Code posté sur le forum des professionnels de l'informatique. [AC-2002] [Automation] Erreur Extraction de données depuis un fichier Excel.

Visual Basic. Bouton parcourir. Pour récupérer les chemins complets des répertoires du Bureau, de Mes Documents, ou du menu Démarrer, vous pouvez utiliser la fonction SHGetSpecialFolderPath de l'API Windows : Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" _ (ByVal hwndOwner As Long, ByVal lpszPath As String, _ ByVal nFolder As Long, ByVal fCreate As Long) As Long Description des paramètres :hwndOwner : handle de la fenêtre à utiliser si une boîte de dialogue doit être affichée ;lpszPath : chaîne de caractères recevant le chemin complet du répertoire demandé ; nFolder : nombre indiquant le répertoire demandé ;fCreate : si la valeur passée à ce paramètre n'est pas nulle, le répertoire est créé, s'il n'existe pas déjà.

Sous Windows NT 4.0 et Windows 95, cette fonction n'est disponible que si Internet Explorer 4.0 ou supérieur est installé. Voyons comment l'utiliser : Avec les anciennes versions de Wshom.ocx, la classe WshShell s'appelle IWshShell_Class. Microsoft Access/Actualisation d'un sous-formulaire. FAQ MS-Access. Soit la table suivante : NumChauffeur : NuméroAuto NomChauffeur : Texte(20) PrenomChauffeur : Texte(20) PermisChauffeur : Texte(1) - Liste de choix de valeurs : A;B;C;D;E - Valeurs multiples autorisées Cet exemple permet de créer une table tbl_Détenir(NumChauffeur,Permis) dont les champs sont du même type que dans la table tbl_chauffeur.

Ce code ajoute aussi la clé primaire et la relation 1 à plusieurs entre les tables. Pour mener à bien ce projet, il faut manipuler des tables, des index, des champs et des Recordsets. La déclaration des variables est la suivante : Dim strNomChampMultiple As String, strNomClePrimaire As StringDim oDb As DAO.DatabaseDim oRstSource As DAO.Recordset, orstDestination As DAO.RecordsetDim oTbl As DAO.TableDef, oRel As DAO.RelationDim oFld As DAO.Field, oIdx As DAO.IndexSet oDb = CurrentDb strNomClePrimaire = "NumChauffeur" strNomChampMultiple = "PermisChauffeur" Pour récupérer le Recordset correspondant aux permis des chauffeurs, on utilise : Le code complet : ACCESS : Créez un formulaire d'attente pour les longs traitements. Pour continuer, nous allons créer un module de classe qui pilotera le formulaire d'avancement. Créer un module de classe nous permet ensuite de gérer le formulaire plus simplement à l'aide de méthodes et de propriétés. Pourquoi ne pas ajouter ces propriétés et méthodes directement dans le formulaire?

En créant un module de classe on les regroupe dans un objet à part. Ainsi on accède plus facilement aux méthodes et propriétés nécessaires au formulaire d'attente; elles ne sont, en effet, pas "noyées" parmi les autres propriétés et méthodes du formulaire : - Le module de classe contient les propriétés et méthodes. - Le formulaire contient uniquement les contrôles. On pourra également facilement remplacer le formulaire par un autre, la seule condition étant que ce formulaire contienne les contrôles requis. Le module de classe clProgress doit nous aider à piloter le formulaire. Les propriétés qui ne sont pas gérées par le formulaire doivent être stockées dans ce module de classe. Sélectionnez. Interaction access excel. Depuis Excel 2002, l'export en CSV via VBA prend par défaut une virgule (sauf si on le fait à la main : Fichier/Enregistrer sous/ CSV (séparateur point-virgule)).

Pour forcer Excel ou Access à utiliser un point-virgule lors de l'export d'un fichier Excel vers CSV, il faut : Vérifier dans les options régionales (panneau de configuration de Windows), onglets Nombres, si le séparateur de liste est bien un point-virgule ; Ajouter ceci dans le code : Local:=True pour forcer Excel à utiliser le séparateur configuré sur l'ordinateur utilisé. Soit : appXl.ActiveWorkbook.SaveAs Filename:= _ "D:\MonFichier.csv", FileFormat:=xlCSV, _ CreateBackup:=False, Local:=True Et là on a bien des points-virgules comme séparateurs dans le fichier CSV. Créé le 20 novembre 2005 par jbaudin Tout d'abord, vous devez ajouter la référence Microsoft Excel X.0 Object Library à votre projet. Puis dans un module : Exemple d'utilisation : Sub test() MsgBox TestExistenceFeuille("Feuil1", "D:\test.xls") End Sub Déclaration : Champs multi valués. Lorsqu'un champ accepte les valeurs multiples, sa propriété DAO AllowMultipleValues est égale à True.

Il est donc simple, à priori, de savoir si le champ est multi-valué ou non. Mais attention, si lors de la création du champ vous n'avez pas renseigné l'onglet Liste de Choix, cette propriété n'existe pas. Il faut donc s'attendre à une éventuelle erreur à intercepter. Voici un exemple de code prenant en compte cette éventualité. Sub S01_ChampIsMultiValue() On Error GoTo errDim oDb As DAO.DatabaseSet oDb = CurrentDb If oDb.TableDefs("tbl_Chauffeur").Fields("NumChauffeur").Properties("AllowMultipleValues") Then MsgBox "Valeurs multiples autorisées"Else MsgBox "Valeurs multiples interdites"End If fin: Set oDb = NothingExit Suberr: If err.Number = 3270 Then MsgBox "Valeurs multiples interdites"Else MsgBox "Erreur"End IfResume fin End Sub Soit la table suivante : Cet exemple va supprimer l'ensemble des permis du chauffeur n°2 Lien : Comment supprimer une valeur d'un champs multi-valué ?

VBA Method TransferText - SpecificationName. I have access 2003 installed and found this in the help section. It may help. I still can't find out how to create the file. An import/export specification contains information, such as file format, date order, or number formats, that Microsoft Access uses to import or export a fixed-width or delimited text file. An import/export specification is stored with the default name: Filename_ImportSpec or Filename_ExportSpec in the database that you import to or export from.

You create an import/export specification by using either the Import Text Wizard or the Export Text Wizard. Alternatively, you can use a Schema.ini file in a Microsoft Visual Basic program to provide even more control over data in the text file, such as specifying special currency formats or handling floating point data types. Jdweng. A la découverte d'Access 2007 : Les champs multi-valués. Si depuis longtemps nous étions habitués à travailler avec le moteur Jet - en effet les dernières versions d'Access n'ont pas engendré de modifications significatives - il faut se rendre à l'évidence : Access n'est plus le même.

Et pour cause, son moteur n'est plus Jet. L'apparition d'un nouveau moteur engendre donc un flot de nouveautés. Parmi elles : l'apparition de ce que l'on appelle les champs multi-valués destinés à simplifier le traitement des relations plusieurs-à-plusieurs. Mais ce qui semble apparaître comme une réelle révolution est il à la hauteur de ce que l'on est en droit d'attendre ou bien n'est-ce qu'un simple gadget ? Oui, il est possible de parler de révolution. Vous trouvez peut-être ce discours péjoratif, mais il n'en est rien. Avant Chaque occurrence du système d'information devait être traité en ligne. Aujourd'hui Le cauchemar pourrait bien se transformer en rêve exhaussé. Tout d'abord, créons notre table tbl_Eleve : Créons maintenant la table tbl_classe : IV-A. IV-B. Code vba export access vers excel. Manipulation des fichiers en VBA. VBA propose des méthodes pour travailler sur les fichiers. Ces fonctions de bases telles que Dir, Name, etc. ont un comportement proche des commandes DOS.

Malheureusement, elles sont beaucoup trop limitées et permettent, hélas, que très peu d'actions ou bien alors au prix d'un code lourd à maintenir. Afin d'étendre les possibilités en ce qui concerne la manipulation des fichiers et des répertoires, Microsoft à mis au point un ensemble d'objets regroupés au sein de la librairie Microsoft Scripting Runtime. Cet ensemble de classe hiérarchique possède une unique racine : le FileSystemObject, plus communément connu sous le nom de FSO. Bien qu'il s'agisse en fait du nom d'une classe, il n'est pas rare de voir le mot FSO désigner la technique d'accès aux fichiers dans sa globalité. La hiérarchie des objets de cette librairie peut être comparée à celle de l'explorateur Windows : des fichiers inclus dans des dossiers qui eux-mêmes sont inclus dans des disques.

I-B-1. I-B-2. I-B-3. I-B-4. I-C-1. About Web Color Definitions - Hex/RGB/MSAccess/VBA Color Page. Alpha Sort List There are over 500 color definitions in this list. Feel free to bookmark this page. The color names with an asterisk (*) denote one of the 16 colors most widely recognized in the HTML 3.2 specification. RGB to Hex Converter Go to Hex Value Sort List Go to Grays Only List Go to Color Cubez The 216 Safe Colors HTML Tutorial Links Free Access Color ConverterAccess XP Access 2KAccess 97.

Tutoriel Access - Access Paint (c) cafeine. Cet article répond à deux questions posées sur le forum : comment dessiner dans un formulaire Access ou comment modifier une photo. MS Access n'est pas du tout destiné à révéler les futurs artistes qui sommeillent en vous, tout simplement parce qu'aucun de ses objets n'est approprié à la création graphique. Pour réaliser rapidement une application sommaire de dessin, je vous recommande fortement d'utiliser Visual Basic (et VB.net aussi) avec lesquels ils vous sera possible de réaliser en très peu de lignes de codes ce que nous parvenons à faire ici à grand peine.

Un autre choix pertinent pourrait être de réaliser un OCX dans VB, pour pouvoir l'utiliser par la suite dans MS Access. Mais, nous sommes ici pour dire que rien ne fait peur à notre SGBD favori, alors tentons l'impossible et allons exprimer notre sensibilité picturale sur nos formulaires si familiers. Qu'allons-nous réaliser ici ? Une très belle oeuvre d'un artiste ayant souhaité garder l'anonymat. Comment dessiner ? IV-A. IV-B. . . Microsoft Access Requery, Recalc, Refresh and Repaint. Access has four methods that seem to be similar and often get new VBA users confused. Here is what each of the methods does, and how they are different. Requery This is the most powerful. It goes to the database and runs the underlying query again. For example, if you had a form which was used to add people.

On that form you had a combo box that listed people. Now you open the form and you have 10 people in your table. Recalc Recalc does not get new records. Refresh Refresh is sort of like requery except that it only updates the records on the screen. I have a particular application that has a subform which is a datasheet. Repaint Finally we come to repaint.

It can be confusing and cause considerable frustration when you use a shotgun approach to the four terms. Tags: Microsoft Access Developer, Microsoft Access Development, Microsoft Access Help, Microsoft Access VBA, recalc, refresh, requery. TUTORIEL POUR REMPLIR UN TREEVIEW SOUS ACCESS (2000), Tutoriel N°341, Insérer un treeview Tout d'abord, il faut insérer ce contrôle ActiveX : menu Insertion/Contrôle Activex... et choisissez Microsoft TreeView control Le treeview se place alors sur votre formulaire Un double clic sur celui-ci vous permet d'éditer ses propriétés spécifiques. Pour éditer ses propriétés par rapport au formulaire, faites ALT + Entrée. Personnellement, j'utilise les réglages suivants qui font ressembler le treeview à l'arborescence de l'explorateur : [Image: xxx étant le N° Entite. A voir également Dans la même catégorie Communautés d'assistance et de conseils.

Publié par cs_Filou07 - Dernière mise à jour par pijaku. Manipuler les chaînes de caractères en VB6 et VBA Excel. I-A. Compter le nombre de caractères dans une chaine▲ I-B. Extraire une portion de caractères en partant de la gauche▲ Utilisez la fonction Left MsgBox Left("Developpez", 3) I-C. Utilisez la fonction Right MsgBox Right("Developpez", 3) I-D. Utilisez la fonction Mid MsgBox Mid("Vendredi", 5, 2) Si vous souhaitez récupérer toute la chaîne à partir du 5eme caractère, n'indiquez pas le dernier argument MsgBox Mid("Vendredi", 5) I-E. Utilisez la fonction InStr Remarque: cette fonction renvoie 0 si auncune occurence n'est trouvée. MsgBox InStr("Developpez", "e") les arguments de la fonction : InStr(start, string1, string2, compare) Le premier argument "start" (facultatif) permet de définir la position de départ de la recherche. MsgBox InStr(1, "Developpez", "e") un autre exemple Dim x As Integer x = InStr(1, "Developpez", "e") + 1MsgBox InStr(x, "Developpez", "e") string1 contient la chaîne de caractères qui va être contrôlée.

String2 contient la chaîne à rechercher. I-F. Utilisez la fonction StrReverse I-G. Manipulation des fichiers en VBA. Expédier des emails avec pièces jointes via Outlook - Le Grenier Access. Microsoft ActiveX Common Control MSCOMCTL.OCX Security Update Problem with Registration Affects Treeview and ListBox in Microsoft Access, Office, VB6. Les formulaires Word avec Outlook et Access. Collecte de données à l'aide de messages électroniques - Access. Synchroniser les contact outlook avec access. Comment partager vos contacts avec Outlook sans Exchange.