Contenu récent par fanch55

Bonjour à tous, Un autre moyen de récupérer des fichiers selon leur répertoire, extension et dates avec Cim_Datafile Le code est dans la feuille, zone à renseigner :

Le code fourni copie la cellule se trouvant sous le bouton "Copie_Bar"avec la cellule adjacente à droite de celle-ci . Vous voulez dire que lorsque vous cliquez sur le bouton "COPIE_BAR", vous voulez copier la cellule de la colonne B sur la même ligne que la sélection , cette dernière pouvant...

Une solution sans passer par des activex : Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next: [zoneCopy].Delete: On Error GoTo 0 Select Case True Case Target.Count > 1 Case Target = "" Case Target.Column =...

Que ce soit n'importe quelle cellule sélectionnée n'a pas de sens , mais c'est effectivement la demande initiale ....

Ci-dessous un code qui devrait répondre à votre demande si je l'ai bien interprétée : Option Explicit Private Sub COPIE_BAR_Click() Copy_Zone "Copie_Bar", [J74:J78] End Sub Private Sub CommandButton2_Click() Copy_Zone "CommandButton2", [J74:J78] End Sub Private Sub...

Salut @gbinforme, attention: Cells(ActiveCell.Row, "B") ne présume pas que ce soit la cellule associée à l'activex ...

Bonjour, pareil que @sousou Le code ne colle pas à ce que tu décris, tu veux copier où ? je présume qu'en fait Range("J74:J18").Select serait plutôt Range("J74:J78").Select ? Associer autant d'activex ne va pas forcément t'aider

Sinon, y'a un utilitaire qui fonctionne bien: https://www.pcastuces.com/logitheque/telechargement.asp?num=2041

Salut Lionel, c'est un phénomène récurent aux stockages Usb . Si tu as ouvert le matériel via l'explorateur, l'éjection se fait rarement à la première demande, il faut le faire 2 fois . Sinon, tu fermes l'explorateur et tu te sers de l'icone Usb dans la fenêtre des taches de fond . Mais...

Le problème auquel vous vous êtes heurté est du fait du nom de la colonne "%φ Conso Estimé" qui contient un caractère "spécial" (phi) Pour faire référence à celle-ci, codez Range("Tableau7[%" & ChrW(966) & " Conso Estimé]")

J'ai eu le problème avec un Office pro 2021 version 2504 . Je ne vais pas forcer une mise à jour si la nouvelle version n'est pas disponible, je suis d'accord avec toi . ;)

Salut, je n'ai plus eu ce problème depuis que j'ai installé Office Ltsc 2024 Pro Plus ( voir post #42 ) Aceexcl.dll : Pour les versions antérieures, je ne sais plus, ne les ayant plus ...

Bonjour, Insérer le code ci-contre dans un module d'outlook : Renseigner les Dossier et Modèle . Sub GetModele() Dossier = "D:\........\Documents\Courrier\" Modele = "messageamoi.oft" CreateItemFromTemplate(Dossier & Modele, _...

Salut Lionel, Patrick, Un petit défaut dans le code de Patrick, c'est qu'il n'affiche le calendrier qu'une fois sur 2. Petite proposition de correction mineure : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="" On Error Resume Next...