Bonjour,
Voici mon problème, j'ai un classeur qui après validation , sauvegarde une copie dans un répertoire sous le nom de la cellule A1 (tjrs le même) et ensuite envoie un copie de la cellule A1 dans un autre classeur ( appellé planning qui centralise tous les noms .
Mon problème est que j'aimerais bien que ce nom dans le classeur planning soit en fait des liens hypertextes vers le classeur sauvegardé ( donc chaque nom dans le planning à son classeur de sauvegarde)
Pouvez-vous m'aider... je ne sais pas ou insérer , ni comment, la fonction Hyperlinks
Merci
Voici les deux codes :
'Nom à donner au nouveau classeur
Nom = Sheets("Commande").Range("G6").Value
'ThisWorkbook.Path permet de recuperer le chemin du classeur actif
Fichier = Nom & Format(Date, "yyyy-mm-dd") & "_" & ".xls"
'Enregistrement au format normal du classeur
Chemin = "H:\Gestion de production\Commande Archivage\"
ActiveWorkbook.SaveAs Chemin & Fichier
'
'mod i,j,k,y,z
y = Sheets("Feuil1").Range("b1").Value
k = Sheets("Feuil1").Range("c1").Value
i = Range("A1").Value
If i = "Janvier" Then
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Planning.xlsx", UpdateLinks:=0
Sheets("Janvier").Select
End If
Range("a1").Select
j = 1
For j = 1 To 31
If j = y Then
ActiveCell.Offset(0, 1).Select
j = 32
Else: ActiveCell.Offset(1, 0).Select
End If
Next j
Z = 1
For Z = 1 To 7
If ActiveCell.Value = "" Then
ActiveCell.Value = k
Z = 8
Else: ActiveCell.Offset(0, 1).Select
End If
Next Z
Windows("Planning.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Voici mon problème, j'ai un classeur qui après validation , sauvegarde une copie dans un répertoire sous le nom de la cellule A1 (tjrs le même) et ensuite envoie un copie de la cellule A1 dans un autre classeur ( appellé planning qui centralise tous les noms .
Mon problème est que j'aimerais bien que ce nom dans le classeur planning soit en fait des liens hypertextes vers le classeur sauvegardé ( donc chaque nom dans le planning à son classeur de sauvegarde)
Pouvez-vous m'aider... je ne sais pas ou insérer , ni comment, la fonction Hyperlinks
Merci
Voici les deux codes :
- Classeur aléatoire macro de sauvegarde
'Nom à donner au nouveau classeur
Nom = Sheets("Commande").Range("G6").Value
'ThisWorkbook.Path permet de recuperer le chemin du classeur actif
Fichier = Nom & Format(Date, "yyyy-mm-dd") & "_" & ".xls"
'Enregistrement au format normal du classeur
Chemin = "H:\Gestion de production\Commande Archivage\"
ActiveWorkbook.SaveAs Chemin & Fichier
- Classeur aléatoire macro d'envoie vers planning
'
'mod i,j,k,y,z
y = Sheets("Feuil1").Range("b1").Value
k = Sheets("Feuil1").Range("c1").Value
i = Range("A1").Value
If i = "Janvier" Then
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Planning.xlsx", UpdateLinks:=0
Sheets("Janvier").Select
End If
Range("a1").Select
j = 1
For j = 1 To 31
If j = y Then
ActiveCell.Offset(0, 1).Select
j = 32
Else: ActiveCell.Offset(1, 0).Select
End If
Next j
Z = 1
For Z = 1 To 7
If ActiveCell.Value = "" Then
ActiveCell.Value = k
Z = 8
Else: ActiveCell.Offset(0, 1).Select
End If
Next Z
Windows("Planning.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub