Claudius91

J'ai trouvé. Il manquait les guillemets après Nov. Mis guillemets après Nov, Supprimé ceux après 30 Et tout fonctionne bien Super Merci

Ok, cela fonctionne Mais pas pour les mois de 30 jours Je remarque des guillemets après le chiffre 30. sont-ils nécessaire ? Par contre impossible de les retirer ils reviennent toujours !!

Bonjour Longaripa Problème , ne fonctionne pas, en utilisant pas à pas détaillé, la ligne " Dim jours As Long " n'est pas utilisée, de Macro2Macro, directement à Select Case ActiveSheet.Name Sub Macro2() 'Macro2Macro ' ' ' Dim jours As Long Select Case ActiveSheet.Name Case "Janv", "Mars", "Mai", "juillet", "Aout", "Oct", "Dec": jours = 31 Case "Avril", "Juin", "Sept", "Nov: jours = 30" Case "Fev": jours = 28 End Select Dim plage As Range Set plage = ActiveSheet.Range("B4:B" & (4 + jours - 1)) plage.Select End Sub

Bonsoir, Après avoir cherché sur internet une solution, je pensais avoir trouvé, mais cela ne marche pas. Mon problème. j'ai des tableaux identiques sur 12 feuilles d'excel, les onglets sont les mois de l'année : Janv, Fev, Mars,......... Je cherche une macro qui selon le mois séléctionne le nombre de cellule correspondant au nombre de jours du mois. Ci-dessous la macro, mais erreur au niveau de la deuxième ligne Sub Macro20() 'Macro20Macro Dim jours As Long Select Case ws.Name Case "Janv", "Mars", "Mai", "juillet""Aout", "Oct", "Dec": jours = 31 Case "Avril", "Juin", "Sept", "Nov: jours = 30" Case "Fev": jours = 28 End Select Dim place As Range Set Plage = ws.Range("B4:B" & (4 + jours - 1)) End Sub

Bonjour Delta Oui, j'ai un compte Microsoft. Par contre, je précise: "changer également l'adresse mail "c.a.m.....fr". lire changer également l'adresse mail en "c.a.m....fr"

Bonjour Je crois comprendre ce qui ce passe. En fait,nous avons chacun mon épouse et moi, un PC portable avec Windows 11. Comment sur chaque PC avoir un compte différent avec sa propre photo et son nom sans interférence entre les deux PC, c'est à dire, quand on "arrive" par exemple à changer la photo sur un PC, que celle-ci ne s'affiche pas également sur l'autre . Les deux PC sont des Lenovo ils sont tous les 2 avec moi comme Administrateur, et avec l'adresse mail "clo....fr" Comment faire pour changer sur le PC de madame son nom comme administrateur et changer également l'adresse mail "c.a.m.....fr". Et bien sur sans perte de dossier sur les deux PC. Merci pour vos réponses

Re, Autre chose, Ce matin, eu ouvrant mon PC, surprise, l'image de ma femme apparait sur mon écran d'accueil à la place de la mienne !!!!

Bonjour Pour la photo, pas de problème; c'est OK, mais le nom ne change pas, c'est toujours le mien.

Bonjour, je viens de voir le message, actuellement, je suis très occupé, et je ne pourrais pas faire cette opération avant lundi. Merci de patienter

Bonjour, Je voudrais changer l'administrateur du PC de ma femme, mais j'ai peur de supprimer ses fichiers et dossiers. Qu'elle est la procédure pour changer sans risque le nom et la photo de l'administrateur. Merci d'avance

Oui

Bonjour, J'ai deux PC portable et 1 imprimante (HP DeskJet 4100 All-in-One Printer series). La connexion entre PC et imprimante se fait par Wifi. j'ai réalisé un test réseau sans fil à partir de l'imprimante. Résultat du diagnostic : Aucun problème rencontré. Mon problème, je peux imprimer à partir du PC1, mais pas du PC2 : pas connecté. Par contre quand je demande avec HP Smart la configuration du réseau HP à partir du PC2, il n'y a pas de problème de connexion, les deux pages s'impriment sans problème. J'ai du mal à comprendre. Merci d'avance pour vos réponses

Bonjour, C'est bon, j'ai trouvé, merci à l'IA de Quant. Solution ci-dessous 'Macro9() 'Macro9macro Sub OuvrirDossierDepuisAutreDossier() Dim cheminDossier As String ' Spécifiez le chemin du dossier à ouvrir cheminDossier = "D:\Claude\BUDGET \BUDGET 2025-2026\Factures 2025-2026" ' Ouvre l'explorateur Windows sur le dossier spécifié Shell "explorer.exe """ & cheminDossier & """", vbNormalFocus End Sub

bonjour, J'ai une macro qui ne fonctionne pas et je ne sais pas quoi faire 'Macro9() 'Macro9macro ' Sub OuvrirDossier() Dim cheminDossier As String ' Spécifiez le chemin du dossier que vous souhaitez ouvrir cheminDossier = "D:\Claude\BUDGET\BUDGET 2025-2026\Factures 2025-2026" ' Ouvre l'explorateur de fichiers sur le dossier spécifié RunWinAction "OPEN", , "EXPLORER", "/select, """ & "D:\Claude\BUDGET\BUDGET 2025-2026\Factures 2025-2026" End Sub J'ai cette erreur là

Oui Merci