Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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
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
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
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)
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
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 .
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 .
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 ?
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
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
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
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
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
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.