Créer un lien dans la feuille vers le classeur sauvegarder
bonsoir a tous
je viens de faire des essais avec le code proposer icihttps://forum.excel-pratique.com/excel/creation-de-lien-hypertext-en-boucle-t73553.html?hilit=lien%20hypertexte mais ce n'est pas ce que je cherche
je voudrais que lors de l'enregistrement de la facture dans la feuille"historique factures" que le numéro devienne un lien hypertexte vers la facture en question si vous comprenez ce que je veux dire, voici le code en question
le bouton est dans la feuille "facture"
le numéro en question viens de d22 et va en colonne A .Range("a65000").End(xlUp).Row mais au fur et a mesure des créations
Sub Enregistrement_Factures()
'
' Enregistrement_Factures Macro
'
'
'Affiche une boite de dialogue afin de verifié si la facture a ete validé
'Genere une alerte quand il manque une donnée pour la validation dans ce cas la date
If Sheets("Facture").Range("M22") = "" Then
If MsgBox("Vous n'avez pas validé votre facture !", vbInformation, "Prog.iFacturier Vous Informe") = vbOK Then
End
End If
End If
'Archive les informations de la facture
'Ajoute une ligne pour un futur enregistrement
'Avez vous Valider votre facture afin de generer le numero automatique?
If MsgBox("Vous etes sur le point d'archiver les informations concernant cette facture. Avez vous Valider votre facture afin de generer le numero automatique? Souhaitez vous continuer?", vbYesNo, "Prog.iFacturier vous informe..") = vbYes Then
With Sheets("Historique factures")
.Range("A2") = Sheets("Facture").Range("D22")
.Range("B2") = Sheets("Facture").Range("D21")
.Range("C2") = Sheets("Facture").Range("L11")
.Range("D2") = Sheets("Facture").Range("L12")
.Range("E2") = Sheets("Facture").Range("J22")
.Range("F2") = Sheets("Facture").Range("M58")
.Range("G2") = Sheets("Facture").Range("M60")
.Range("H2") = Sheets("Facture").Range("M61")
.Range("I2") = Sheets("Facture").Range("M62")
.Range("J2") = Sheets("Facture").Range("M63")
.Range("K2") = Sheets("Facture").Range("P63")
.Range("L2") = Sheets("Facture").Range("M66")
.Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Facture").Select
End If
End With
If MsgBox("Etes-vous certain de vouloir généré ce PDF?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("Facture").Select
Dim nom As String
nom = Range("D22")
Chemin = "C:\Users\" & Application.UserName & "\Desktop\SAUVEGARDE FACTURE 2016"
ChDir Chemin
Chemin = Chemin & "\"
nomfic = ActiveSheet.Range("D22").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & nomfic
End If
End Sub
bonjour a tous
finalement le forum qu'il a sous ma signature a trouvé la réponse que je vous livre
Sub Enregistrement_Factures()
'
' Enregistrement_Factures Macro
'
'Affiche une boite de dialogue afin de verifié si la facture a ete validé
'Genere une alerte quand il manque une donnée pour la validation dans ce cas la date
If Sheets("Facture").Range("M22") = "" Then
If MsgBox("Vous n'avez pas validé votre facture !", vbInformation, "Prog.iFacturier Vous Informe") = vbOK Then
End
End If
End If
'Archive les informations de la facture
'Ajoute une ligne pour un futur enregistrement
'Avez vous Valider votre facture afin de generer le numero automatique?
If MsgBox("Vous etes sur le point d'archiver les informations concernant cette facture. Avez vous Valider votre facture afin de generer le numero automatique? Souhaitez vous continuer?", vbYesNo, "Prog.iFacturier vous informe..") = vbYes Then
Dim ligne As Integer
'déplacement de la ligne ci dessous déjà utiliser plus basChemin = "C:\Users\" & Application.UserName & "\Desktop\SAUVEGARDE FACTURE 2016"
'ligne = Sheets("Historique factures").Range("A65536").End(xlUp).Row + 1
'pour trouver la dernière ligne à cause de la mise en forme (couleur cellule)
ligne = Sheets("Historique factures").Columns(1).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
With Sheets("Historique factures")
.Hyperlinks.Add .Range("A" & ligne), Chemin & "\" & ActiveSheet.Range("D22").Value & ".pdf", , , Sheets("Facture").Range("D22").Value
'.Range("A2") = Sheets("Facture").Range("D22")'rendre cette ligne hypertexte au fichier qui lui correspond
'continuer à utiliser ligne pour le reste
'.Range ("B2")
.Cells(ligne, "B").Value = Sheets("Facture").Range("D21")
.Cells(ligne, "C").Value = Sheets("Facture").Range("L11") ' nom société
.Cells(ligne, "D").Value = Sheets("Facture").Range("L12") 'nom client
.Cells(ligne, "E").Value = Sheets("Facture").Range("J22") ' date
.Cells(ligne, "F").Value = Sheets("Facture").Range("M58") ' tot HT
.Cells(ligne, "G").Value = Sheets("Facture").Range("M60") 'tot tva
.Cells(ligne, "H").Value = Sheets("Facture").Range("M61") ' remise
.Cells(ligne, "I").Value = Sheets("Facture").Range("M62") ' acompte
.Cells(ligne, "J").Value = Sheets("Facture").Range("M63") 'net a payer
.Cells(ligne, "K").Value = Sheets("Facture").Range("P63") 'ht+tva
.Cells(ligne, "L").Value = Sheets("Facture").Range("M66") 'paiement
'.Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Facture").Select
End With
End If
If MsgBox("Etes-vous certain de vouloir généré ce PDF?", vbYesNo, "Demande de confirmation") = vbYes Then
Sheets("Facture").Select
Dim nom As String
nom = Range("L12")
Chemin = "C:\Users\" & Application.UserName & "\Desktop\SAUVEGARDE FACTURE 2016"
ChDir Chemin
Chemin = Chemin & "\"
nomfic = ActiveSheet.Range("D22").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & nomfic