Contenu récent par Horusbk

Bonsoir, Effectivement, je vais voir à passer mon archive en xlsx puisque même en cas de consultation, le code VBA ne sert à rien. Merci pour ce conseil :)

Re, Alors pourquoi JM ? (Je suis curieux ;) ).

Bonjour Staple1600, c'est tout à fait cela. Dorénavant j'exporte tout puis je supprime depuis le nouveau classeur les feuilles non nécessaires. Voici la procédure qui permet d'enregistrer une copie du classeur : 'Export du classeur : On Error Resume Next MkDir chemin On Error GoTo 0 With...

Re :) J'ai résolu mon problème : je garde la solution de Staple1600 mais également j'ai une autre solution qui vient supprimer les feuilles de mon classeur que je ne souhaite pas garder lors de mon export. Merci de ton aide. Baptiste

Bonjour, Tous nos fichiers étant migrés sur le cloud, nous les ouvrons depuis des bibliothèques de documents SharePoint vers l'application de bureau. Nous avons une procédure qui permet d'archiver notre classeur Excel chaque jour. Le fichier sur lequel la procédure est lancée (en cours...

Si j'avais compris ;) Néanmoins je voulais tester. Trêve de plaisanterie, il y a une manière de le faire où je suis obligé de garder les noms personnalisés des feuilles de calculs ? Merci d'avance :) Horusbk

Re Cette fois ça ne fonctionne pas, il me met "incompatibilité de type" en pointant sur : Sheets(Array(Feuil1, Feuil2)).Copy

Bonjour Staple1600, Ça fonctionne parfaitement avec votre changement. Merci beaucoup ! Une dernière chose, est-ce possible d'appeler les feuilles de calculs par leur nom (Feuil1, Feuil2 ...) plutôt que par le nom modifiable par l'utilisateur comme je le fais actuellement ? Merci encore. Horusbk

Bonjour, J'ai ce code qui me permet d'exporter une feuille de calcul précise dans un nouveau classeur. Le problème c'est que je souhaite exporter non pas une mais deux feuilles précises de mon classeur vers ce nouveau classeur. Sub Export_feuil() Dim LeNom As String, LeRep As String...

Merci beaucoup ! C'est exactement ce dont j'avais besoin :) Baptiste

Bonjour Jacky67, Merci pour votre réponse. Une question me vient lorsque je vois votre bout de code : With .[c3].Characters(Start:=Len(.[c3]) + 1 - Len(TxT), Length:=Len(TxT)).Font Je sais qu'on peut écrire cela : Range("C" & x ) où 'x' correspond à un nombre par exemple. Dans votre code, la...

Bonjour, J'ai ce code qui permet d'ajouter un texte spécifique dans une cellule non vide. Sub ajout1() Dim TxT As String TxT = " X" ' If Right(Feuil1.Range("C3"), 1) <> "X" Then Feuil1.Range("C3").Value = Feuil1.Range("C3") & TxT Else MsgBox "Le dernier caractère est " &...

Bonjour Papyty, Merci pour ta réponse :) C'est exactement ce dont j'avais besoin. Je me permets d'ajouter un complément pour ceux tomberaient sur ce sujet: j'avais un problème après la suppression d'un item de la Listbox (par double-clique sur l'item). Lorsqu'un item était sélectionné dans...

Bonjour, J'utilise une textbox pour ajouter des données à une Listbox, voici le code que j'ai créé : Private Sub CommandButton1_Click() 'Ajouter à la listboxs Me.ListBox1.AddItem TextBox1 Me.TextBox1 = "" Me.TextBox1.SetFocus End Sub Toutefois, j'aimerais intégrer un contrôle qui...

C'est parfait ! Merci beaucoup à vous deux pour votre aide. Bonne année. Baptiste