Résultats de la recherche

  1. Horusbk

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

    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 :)
  2. Horusbk

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

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

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

    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...
  4. Horusbk

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

    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
  5. Horusbk

    XL 2016 Supprimer un fichier d'une bibliothèque SharePoint depuis Excel

    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...
  6. Horusbk

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

    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
  7. Horusbk

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

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

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

    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
  9. Horusbk

    XL 2016 Export plusieurs feuilles dans un nouveau classeur

    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...
  10. Horusbk

    XL 2019 Ajouter du texte formaté à une cellule non vide

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

    XL 2019 Ajouter du texte formaté à une cellule non vide

    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...
  12. Horusbk

    XL 2019 Ajouter du texte formaté à une cellule non vide

    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 " &...
  13. Horusbk

    Gérer les doublons d'une Listbox par ajout Textbox

    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...
  14. Horusbk

    Gérer les doublons d'une Listbox par ajout Textbox

    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...
  15. Horusbk

    Problème de rotation d'une image avec VBA

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

    Problème de rotation d'une image avec VBA

    Merci de vos réponses :) Dranred, une fois l'animation arrivant à son terme, est-ce possible que l'image ne se remette pas dans sa position d'origine ?
  17. Horusbk

    Problème de rotation d'une image avec VBA

    Re sylvanu, Dranreb, Merci pour vos réponses. Je vais garder sous le coup ta proposition de statusbar, sylvanu. Elle va m'être utile pour une autre fonction. Merci pour cette optimisation Dranreb ! Ça fonctionne très bien sur 2010 et même, j'ai testé sous 2016 et 365 et rien à signaler...
  18. Horusbk

    Problème de rotation d'une image avec VBA

    Bonjour sylvanu, J'ai modifié mon code par celui que tu m'as transmis mais de mon côté, l'image ne tourne plus du tout. Est-ce que ça fait la même chose de ton côté ? J'avais également vu qu'on pouvait directement ajouté un Gif dans Excel avec Microsoft Web Browser mais ça ne fonctionne plus...
  19. Horusbk

    Problème de rotation d'une image avec VBA

    Bonjour à tous :) et bonne année 2020 ! J'ai suivi cette vidéo Comment animer des Formes sur Excel (sur Youtube) car je souhaite que mes utilisateurs aient un retour visuel lorsqu'ils partagent des données à d'autres utilisateurs sur notre fichier partagé. Sur un fichier partagé, c'est en...
  20. Horusbk

    Copier/Coller VBA sans mise en forme

    Bonjour à tous les deux, Un petit oubli... qui avait son intérêt mais à présent ce n'est plus le cas. :rolleyes: Du coup en simplifiant le code de Robert j'obtient ce que j'espérais : Feuil4.Range("A5:I20").Copy Feuil3.Range("X" & Feuil3.Range("X" & Feuil3.Rows.Count).End(xlUp).Row +...