Contenu récent par job75

Dans la feuille "Parametres", macro Worksheet_BeforeDoubleClick : - Range doit obligatoirement définir une plage dans cette feuille - or pour Range("Initialisation") le nom est défini dans un autre classeur => bug - or pour Range("User") le nom est défini dans la feuille "Log" => bug. Il...

Bonjour à tous, Ils sont masqués, probablement par une de vos nombreuses macros. Pour les afficher exécutez ce code : Sub a() Dim nom As Name For Each nom In ThisWorkbook.Names nom.Visible = True Next End Sub Je n'ai pas eu le problème de Dranreb mais la macro Workbook_Open plante sur le nom...

Bonjour le forum, Ca vient comme un cheveu sur la soupe. A+

Bonjour jerome1980, le forum, Avant de vous abandonner il faut quand même que je vous dise vos 4 vérités : - vous n'avez absolument pas compris ce qu'est une importation CSV - la plupart des messages que vous avez publiés sur ce fil n'ont aucun sens - vous ne tenez pas du tout compte des...

Essayez avec une temporisation de 3 secondes : Sub Copier() ActiveSheet.ListObjects(1).Range.Copy ThisWorkbook.FollowHyperlink "https://docs.google.com/spreadsheets/d/1FVThn8ZnIG0huueMG2Hm9pjLbuT2GZ1U/edit#gid=811679162" Application.Wait Now + 3 / 86400 'temporisation de 3 secondes...

Bonsoir Flnte, On peut exécuter : Sub Copier() ActiveSheet.ListObjects(1).Range.Copy CreateObject("WScript.Shell").SendKeys "^v" ThisWorkbook.FollowHyperlink "https://docs.google.com/spreadsheets/d/1FVThn8ZnIG0huueMG2Hm9pjLbuT2GZ1U/edit#gid=811679162" End Sub A+

Bonjour jerome1980, le forum, Pour importer votre dernier fichier CSV utilisez la méthode QueryTables : Sub IMPORTDATA() Dim fichier As Variant, F As Worksheet, lig&, n fichier = Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv", MultiSelect:=True) If Not IsArray(fichier) Then Exit Sub...

65001 c'est le code pour les fichiers CSV UTF-8, c'est toi-même qui nous l'a fait remarquer.

Bonjour, J'ai répondu à 12:25 sur ce fil : https://excel-downloads.com/threads/import-donnes-issu-de-fichier-csv.20082498/page-2#post-20645968 A+

Bonjour le forum, Il fallait le dire dès le post #25 mais puisqu'on en est là autant aller jusqu'au bout. Téléchargez les fichiers zippés joints et exécutez cette macro (qui découle de ce fil) : Sub IMPORTDATA() Dim fichier As Variant, F As Worksheet, lig&, n ChDir ThisWorkbook.Path fichier =...

J'ai joint le fichier qui manquait au post #5.

On peut se passer de la colonne auxiliaire Q en utilisant le filtre avancé : Private Sub Worksheet_Calculate() Dim F As Worksheet, dest As Range, P As Range Set F = Sheets("Supprimé") Application.ScreenUpdating = False Application.EnableEvents = False Me.AutoFilterMode = False 'neutralise le...

Bonjour sambio2, sylvanu, Voici une autre solution VBA. La colonne auxiliaire Q est utilisée avec la formule : =REPT("Obsolète";ET(P4<>"";AUJOURDHUI()>=MOIS.DECALER(P4;60))) Le tableau est filtré sur cette colonne et les lignes filtrées sont transférées en feuille "Supprimé" : Private Sub...

Bonsoir toto142, sylvanu, On ne sait pas trop ce qu'il faut chercher mais voyez le fichier joint. Valeur cherchée en E4 : =ARRONDI(MIN(C$2:C$403);3)+(LIGNE()-4)/1000 N° le plus proche en F4 (formule matricielle) : =EQUIV(MIN(ABS(C$4:C$403-E4));ABS(C$4:C$403-E4);0) A+

Bonjour, Avec une date en A1 on peut entrer en B1 : =TEXTE(A1;"aaaammjj") qui renvoie du texte. Ce texte peut être converti en nombre : =--TEXTE(A1;"aaaammjj") A+