Aller au contenu
Communauté

Claudius91

Membres
  • Nbre de contenus

    57
  • Inscription

  • Dernière visite

Tout ce qui a été posté par Claudius91

  1. 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
  2. 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 !!
  3. 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
  4. 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
  5. 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"
  6. 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
  7. 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 !!!!
  8. Bonjour Pour la photo, pas de problème; c'est OK, mais le nom ne change pas, c'est toujours le mien.
  9. 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
  10. 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
  11. Oui
  12. 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
  13. 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
  14. 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à
  15. Oui Merci
  16. Bonjour Zelandonii Oui, effectivement je l'ai trouvé, mais suite à une course urgente à faire, je n'ai pas eu le temps de répondre à ton message. J'ai été obligé de mettre cette commande: powercfg /hibernate on Milles excuses.
  17. Bonjour, Après le passage de "PrivaZer", j'ai peut-être fait une bêtise, mais impossible de retrouver la possibilité de mettre mon PC en veille prolongée, ce que je fait tout les soirs.
  18. Bonsoir, Mon problème est résolu. j'ai pensé à la restauration, mais impossible d'y accéder de mon bureau (aucune icône d'affichée), aucun clic de la souris ne fonctionnait. J'ai donc interrogé internet qui m'a donné la solution. Ouvrir le gestionnaire des tâches; cliquer sur "Exécuter une nouvelle tâche " Dans la fenêtre qui s'ouvre taper rstrui.exe, cliquer sur OK La fenêtre de la restauration s'ouvre, il n'y a plus qu'à choisir une date avant le problème et cliquer sur ok. Et surtout attendre la fin de la restauration et le redémarrage du PC. Désolé, j'aurais pu y penser avant de poser mon problème
  19. Bonjour, J'ai utilisé Windows Repair, et j'ai eu la surprise après le redémarage de la disparition de la page d'accueil . Ecran noir, plus d'icônes. je peux avoir accès à mes dossiers en passant par le gestionnaire des taches, mais ce n'est pas pratique; A priori, je n'ai rien perdu de mes dossiers. Merci pour vos réponses
  20. OK pas de problèmes, bonne journée
  21. Rien ne se passe lors de la fermeture et de l'ouverture de l'écran , par contre je ne connais pas la procédure pour incliner l'écran. Nota: actuellement tout est clean au niveau de l'écran, des fichiers et dossiers, sur excel, firefox, foxit PDF reader ....
  22. LENOVO IdeaPad 3 15IIL05 N° de série PF2FCZ04
  23. J'ai vu votre réponse, après mon 2ème envoi. Oui le bureau aussi, mais je dois dire, que tout semble revenu normalement, je n'aperçoit plus les textures, elles se sont estompées. !!
  24. voici les photos agrandie pour mieux voir les détails
×
×
  • Créer...