Contenu récent par Karim48

  1. K

    Microsoft 365 suppression de ligne si condition (vba)

    Bonjour, Dans le fichier ci-joint, j'aimerais supprimer toutes les lignes ne contenant pas la valeur 3 en colonne Q. J'ai bien essayer cette formule mais elle ne fonctionne pas: Sub EntireRow() Dim I As Integer For I = Range("Q" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(I, 17) = ""...
  2. K

    XL 2016 Ouverture d'un fichier .txt (avec partie variable) puis enregistrement sous .csv avec nom défini

    Bonjour, Je souhaite extraire les données d'un fichier en .txt pour les enregistrer en .csv mais je bloque sur le code. Actuellement mon code est le suivant: <Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False Workbooks("Macro VBA...
  3. K

    XL 2016 Suppression du contenu d'une cellule si une autre est remplie

    Merci beaucoup, même si j'ai pas pu la tester car quand je demande à l'executer, ça m'affiche une fenetre "Macros" avec toutes les macros actuellement actives Etant novice en VBA, je n'arrive pas à la tester. D'autant que cette feuille fait partie d'un autre code et j'aimerais l'executer hors...
  4. K

    XL 2016 Suppression du contenu d'une cellule si une autre est remplie

    Bonjour, Dans le fichier ci-joint, j'aimerais trouver une VBA qui supprime le contenu de la cellule AY si AW est pleine, et inversément. J'ai bien trouver ça: <Sub Macro1() Range("AY7").Select Selection.ClearContents End Sub> Mais je n'arrive pas à integrer une fonction à condition...
  5. K

    XL 2016 VBA afin d'utiliser un Add-in

    Il me semble que la différence entre mon souci est la solution proposée est que j'ai besoin d'envoyer des données dans SAP en utilisant l'add-in alors que le lien semble présenter l'extration de rapports de données
  6. K

    XL 2016 VBA afin d'utiliser un Add-in

    Merci. Si je me trompe pas, le bout de code qui me concerne serait celui-ci < 'Function to find the SAP bydesign Excel Add-in from Installed COM Add-ins Private Function initialize() As Boolean Dim comaddin As comaddin For Each comaddin In Application.COMAddIns If...
  7. K

    XL 2016 VBA - Extraire une feuille pour l'enregistrer en .csv (avec séparateur point virgule) puis l'enregistrer en .txt

    Merci pour cette réponse, je ne l'avais pas vue. Je ferai un test puis un retour pour vous tenir au courant. Merci encore.
  8. K

    XL 2016 VBA afin d'utiliser un Add-in

    Comment ça? J'en ai réalisé des recherches avant mon poste ;-)
  9. K

    XL 2016 VBA afin d'utiliser un Add-in

    Bonjour, Dans le fichier Excel ci-joint j'ai importé un add-in que j'aimerai automatiser par VBA: Dans l'idée, je souhaiterais via la macro appeler l'add-in, compléter le "nom d'utilisateur" ainsi que "le mot de passe", me connecter et "sauvegarder les données ans...". Le hic c'est que...
  10. K

    XL 2016 VBA - Extraire une feuille pour l'enregistrer en .csv (avec séparateur point virgule) puis l'enregistrer en .txt

    Bonjour à tous, J'ai créé le code ci-dessous qui aurait dû me permettre à partir de fichiers source de remplir le fichier cible ci-joint. [ Sub recup_donnees() Workbooks("Liste des salariés v1.xlsm").Worksheets("_DATA_MASTER_TD").Range("B6:H5000").Copy Destination:=Workbooks("Liste des...
  11. K

    Microsoft 365 Facture automatique selon VBA

    Bonjour à tous :) Voici mon problème, j'aimerais dans un premier temps incrémenter mes numéros de factures selon la formule suivante: par ex: =si(D3=D2;SI(C3=C2;SI(B3=B2;A2;A2+1);A2+1);A2+1) malheureusement, lorsque j'exécute cette formule, il m'apparait une formule erreur bien que j'ai utilisé...
  12. K

    Microsoft 365 VBA - Problèmes avec feuilles vérouillées

    C'est noté. Merci Thierry.
  13. K

    Microsoft 365 Problème pour répartir des données mensuellement

    voici le code en question: Sub Extrait2() Application.ScreenUpdating = False Application.DisplayAlerts = False Set F = Sheets("Feuil1") Set d = CreateObject("scripting.dictionary") Tbl = F.Range("b2:b" & F.[b65000].End(xlUp).Row).Value For i = 1 To UBound(Tbl) temp = Format(Tbl(i, 1), "mmmm...
  14. K

    Microsoft 365 VBA - Problèmes avec feuilles vérouillées

    Merci pour vos recommandations , j'ai réussi à sortir du problème. Concernant le verrouillage des feuilles, je sais que de simples macros sont capables d'oter les protections mais c'est surtout pour éviter à mon préleveur d'aller fouiller et modifier les macros par inadvertance. En protection...