Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Afectation de l'Userform besoin de votre aide

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lolo57
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lolo57

XLDnaute Occasionnel
Bonjour


Besoin d'aide pour finaliser mon fichier

en fichier joint mon fichier,je ne connais rien en matière d’affectation des macros
quelqu'un pourrais me donner un coup de pouce ?

merci
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Afectation de l'Userform besoin de votre aide

Salut lolo,

En fait dans une cellule tu clic bouton droit et ensuite lien hypertexte ;tu met ton lien dedans.
Et ensuite dans le code tu remplace C:\Users\Lolo\Desktop\Mode OP par le chemin de ton .doc (ici c'est C:\Users\Lolo\Desktop\Mode OP\ )
Pareil tu remplace le nom de ta feuille aussi (ici c'est Data mais tu change si ton lien hypertexte est ailleurs).

Ce qui donne :

Code: 
Private Sub CommandButton6_Click()
Dim Wrd As Object
Dim AppWord As Object
Chem = "C:\Users\Cerone\Documents\Mode Op\" & Sheets("Data").Range("R5") ' TonChemin = C:\Documents and Settings\... à adapter
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = False
Set AppWord = Wrd.Documents.Open(Chem)
Set Sel = Wrd.Selection
Wrd.activedocument.PrintOut
Wrd.Documents.Close SaveChanges:=wdDoNotSaveChanges
Wrd.Visible = False
Set Wrd = Nothing
End Sub

Et voila

A plus
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide


Hello

j'ai mi ton code et voila la phrase qui me mets en jaune
Set AppWord = Wrd.Documents.Open(Chem)

Pourquoi ?

Merci
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide


Hello

j'ai mi ton code et voila la phrase qui me mets en jaune

Set AppWord = Wrd.Documents.Open(Chem)

Pourquoi ?

Merci
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide

Salut,
Chez moi ça marche ,regarde si tu as bien qq chose dans ta cellule et si tu indiques bien le bon chemin ,ou change de dosiier pour essayer.
Mais bon je pense que si on continue sur cette voie ça va devenir une "usine à gaz" (tu n'aurais que qq modes OP ça irait ,mais plus d'une centaine ça va devenir ingérable)

A plus
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide

Bonjour

Au cas ou la référence idoine ne serait pas cochée dans VBE

Modifier ainsi puis de nouveau tester
Code: 
Private Sub CommandButton6_Click()
Dim Chem$
Dim Wrd 'As Object <- ici mise en commentaire avec l'ajout d'un '
Dim AppWord 'As Object <- ici mise en commentaire avec l'ajout d'un '
Chem = "C:\Users\Cerone\Documents\Mode Op\" &  Sheets("Data").Range("R5") ' TonChemin = C:\Documents and Settings\... à  adapter
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = False
Set AppWord = Wrd.Documents.Open(Chem)
Set Sel = Wrd.Selection
Wrd.activedocument.PrintOut
Wrd.Documents.Close SaveChanges:=wdDoNotSaveChanges
Wrd.Visible = False
Set Wrd = Nothing
End Sub
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide

Salut Staple,

Pour info je pense qu'il serait plus facile d'insérer une nouvelle feuille avec tous les liens hypertextes à l'intérieur j'ai déja ça au travail pour toutes les procédures SHEQ .

A plus
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide

patoq à dit:
Salut Staple,

Pour info je pense qu'il serait plus facile d'insérer une nouvelle feuille avec tous les liens hypertextes à l'intérieur j'ai déja ça au travail pour toutes les procédures SHEQ .

A plus
Cliquez pour agrandir...

Salut patoq

je pense qu'il faut faire de manière qu'il m'ouvre juste les dossier en question si sa va pas autrement
parce que la je galère et rien ne marche
pourrais tu mettre le code de manière qu'il m'ouvre juste le dossier ?

Merci @+
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide

Hello patoq

Encore merci pour ton aide

je me demandais si ont pouvais un compteur d'heures c a dire calculer le total des heures et le mettre en haut de la feuille
mais a savoir quand ont remets la feuille a zéro que le compteur excite toujours

Merci @+
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide

Re lolo,
Et voila tu as un compteur en-cours et un compteur total .
L'en-cours te note la plage d'heures que tu viens de rentrer et le total incrémente.
Bien sur la remise à zéro de ton planning initialise l'en cours ,mais pas le total (héhéhé).
A plus
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide


Hello

c vraiment splendide
encore mille merci
si tu a d'autre idée pour amélioration je suis preneur (enfin tu comprend)

Merci @+
 
Vote positif 0 Vote négatif
Re : Afectation de l'Userform besoin de votre aide

Re Lolo,

C'est a dire ?
Dans la cellule pour le total d'en cours, il n'y a pas d'additions,c'est juste une colonne temporaire en fait( ça te note juste l'opération que tu viens de faire)
A plus
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Question Question
XL 2016 liste
Réponses
10
Affichages
386
chris
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
199
sylvanu
A
  • Question Question
XL 2013 Données prévisionnelles
Réponses
12
Affichages
358
bsalv
B
B
  • Question Question
XL 2021 trouver date anniversaire dans calendrier pour recopie
Réponses
12
Affichages
352
dysorthographie
L
  • Résolu(e)
Microsoft 365 RechercheV avec une condition poids
2
Réponses
16
Affichages
429
Lina
L
F
  • Question Question
Microsoft 365 Problèmes avec UserForm
2
Réponses
18
Affichages
464
patricktoulon
D
  • Question Question
Microsoft 365 calcul d'une moyenne automatique par trimestre, semestre et annuelle
Réponses
0
Affichages
169
Daniel200666
D
C
  • Question Question
Microsoft 365 Nouveau projet
Réponses
9
Affichages
263
C'est Génial
C
W
  • Question Question
Microsoft 365 Liste de choix...
Réponses
8
Affichages
326
job75
B
  • Résolu(e)
XL 2019 Macro pour copier des cellules d'une feuille de barèmes
Réponses
6
Affichages
324
berru76
B
V
  • Résolu(e)
XL 2019 Formules de forme conditionnelle
2
Réponses
20
Affichages
315
viper68
V
  • Question Question
Microsoft 365 Affichage bulle explicative lors survol icônes
Réponses
13
Affichages
653
AIXELS
C
  • Résolu(e)
Microsoft 365 Trouver la plus grande valeur avec des cellules alphanumériques
Réponses
7
Affichages
352
danielco
D
F
  • Question Question
XL 2019 Demande aide de formule
Réponses
5
Affichages
245
Fidmo
F
  • Question Question
XL 2016 Macros verrouillées
Réponses
8
Affichages
317
zozo
A
  • Résolu(e)
Autres aide colonnes masquees (pas de mdp)
Réponses
2
Affichages
194
Audray.V
A
O
  • Question Question
XL 2021 Jalon de projet
Réponses
5
Affichages
264
olibubu16
O
J
  • Résolu(e)
XL 2019 VBA - problème call depuis module de classe
Réponses
10
Affichages
513
JohnnyBGood
J
B
  • Question Question
XL 2016 tableau suivi (planificateur)
Réponses
0
Affichages
129
berto
B
M
  • Question Question
XL 2021 Liste déroulante qui exclu les champs déjà utilisés
2
Réponses
21
Affichages
685
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…