Résultats de la recherche

  1. S

    Copier Coller un fichier avec changement de nom

    Bonjour, Je dispose de deux colonnes dans mon fichier excel, K et L, K contient l'ancien chemin de mon fichier et L le nouveau chemin de mon fichier je souhaiterais que pour chaque ligne, la commande FileCopy se lance avec comme variables, la valeur des deux cellules. je n'ai pas de message...
  2. S

    XL 2016 Probleme Boucle VBA

    Merci tu m'as bien aiguillé il suffisait que je sorte de la boucle les lignes de copie de la formule Private Sub CommandButton2_Click() Worksheets("BL_EPURE").Range("A:S").Clear Sheets("BL").Columns("A:S").Copy Sheets("BL_EPURE").Columns(1) 'Efface la seconde ligne à la 1000 ème With...
  3. S

    XL 2016 Probleme Boucle VBA

    Bonjour j'ai un petit soucis dans le feuille Variables j'ai un bouton "Épuration et Distribution" lorsque je clique dessus il y a plusieurs action, l'un est de copier les lignes de BL_EPURE dans deux autres feuilles IMPORT_LIGNE et IMPORT_TMP mais voila dans BL_EPURE j'ai Deux Lignes et dans...
  4. S

    XL 2016 incompatibilité de type

    Bonjour Merci a tous voici la solution Worksheets("SERIEM").Range("G2:G" & Lg).Copy Worksheets("PA").Range("A2") Worksheets("SERIEM").Range("S2:S" & Lg) = Worksheets("SERIEM").Range("S2:S" & Lg).Value Worksheets("SERIEM").Range("S2:S" & Lg).Copy Worksheets("PA").Range("B2") If...
  5. S

    XL 2016 incompatibilité de type

    Bonjour Si, Cela me fait la même erreur, Merci
  6. S

    XL 2016 incompatibilité de type

    Voici le fichier Merci
  7. S

    XL 2016 incompatibilité de type

    Voici le Code du bouton Private Sub CommandButton4_Click() Application.ScreenUpdating = False Dim Lg2 As Integer Worksheets("DIFFERENCE_PA").Range("A:B").Clear For Lg2 = Sheets("SERIEM").UsedRange.Rows.Count To 2 Step -1 Worksheets("SERIEM").Range("S" & Lg2).Value =...
  8. S

    XL 2016 incompatibilité de type

    Bonjour, en Integer en effet mais la Lg2 ne sert il pas qu'a trouver le numéro de la ligne ? Merci
  9. S

    XL 2016 incompatibilité de type

    Bonjour je ne comprend pas pourquoi j'ai cette erreur If Sheets("DIFFERENCE_PA").Range("B" & Lg2) = "*" _ Then Sheets("DIFFERENCE_PA").Rows(Lg2).Delete Merci
  10. S

    XL 2016 Petit Bug Copier Coller D'une Feuille à L'autre Avec Condition

    Ok trouvé Merci j'ai du rajouter Worksheets("BL_EPURE").Activate avant Worksheets("BL_EPURE").Range("A1").Select
  11. S

    XL 2016 Petit Bug Copier Coller D'une Feuille à L'autre Avec Condition

    Bonjour, je ne comprend pas l'erreur que Excel me retourne, voici ma macro Private Sub CommandButton2_Click() Dim plage As Range, cel As Range Application.ScreenUpdating = False valcherch = Worksheets("Variables").Range("B4").Value With Worksheets("BL") derlig =...
  12. S

    XL 2016 Erreur VBA Suppresion des onglets

    Parfait cela fonctionne, merci a tous Private Sub CommandButton4_Click() Dim Sh As Worksheet Application.DisplayAlerts = False For Each Sh In ThisWorkbook.Worksheets Sh.Visible = xlSheetVisible If Sh.CodeName <> "Feuil1" And Sh.CodeName <> "Feuil2" And Sh.CodeName <> "Feuil3" Then...
  13. S

    XL 2016 Erreur VBA Suppresion des onglets

    Bonsoir merci eric pour ta réponse, en effet tu a du remarquer que pour chaque feuille il existait une seconde feuille mr_ cela est généré automatiquement par mon logiciel de reporting, mais tu viens de me donner une idée j'ai oublié de dire de ne pas supprimer le mr_ de la feuill2 peut etre...
  14. S

    XL 2016 Erreur VBA Suppresion des onglets

    Toujours cette erreur est il possible qu'une option du fichier interdise la fonction delete?
  15. S

    XL 2016 Erreur VBA Suppresion des onglets

    Je vais retester cela ce soir, merci encore à vous deux, je vous fais un retour dès que possible
  16. S

    XL 2016 Erreur VBA Suppresion des onglets

    Euh Non Supprimer tous les onglet a part les onglets ayant pour CodeName Feuil1 et Feuil2 ^^
  17. S

    XL 2016 Erreur VBA Suppresion des onglets

    J'ai du modifié ton code déclaré ws et aussi supprimer le select car j'avais une erreur sur Fin, je vous colle le code et j'ai une erreur automation Private Sub CommandButton4_Click() ' objectif = supprimer les onglets hors Feuil1 et Feuil2 Dim i As Integer Dim ws As Worksheet For Each ws In...
  18. S

    XL 2016 Erreur VBA Suppresion des onglets

    en effet il m'a viré egalement ma feuil1 et ma feuil2
  19. S

    XL 2016 Erreur VBA Suppresion des onglets

    Bonjour, je n'arrive pas a faire fonctionner mon code, j'ai une erreur La methode Delete de la Classe Worksheet à echouée l'erreur s'affiche sur Sheets(i).Delete Voici le code Private Sub CommandButton4_Click() Dim s As Worksheet, t As String Dim i As Long, K As Long K =...
  20. S

    Macro Envoyer chaque feuille par email

    On Error Resume Next Application.DisplayAlerts = False est deja présent dans mon script Private Sub CommandButton2_Click() Dim Chemin As String, Fichier As String, Corps As String, Nom As String Dim OlApp As Object, Wsh As Worksheet, cel As Range, Rep_Xl, EnvoisA, OlMail Chemin =...
Haut Bas