Salut à toi
Ce code devrait convenir :
Chemin = "C:Chemin"
Nom = Range("B7")
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Chemin & Nom
Source = Application.GetSaveAsFilename(Chemin)
FileCopy Source, Chemin & Nom
Workbooks.Open (Chemin & Nom)
Actualises :
Chemin = "C:Chemin"
du chemin du répertoire où doit s'effectuer le choix des modèle
Mets en B7 le nom du document Excel à enregistrer puis à réouvrir pour la
saisie
A l'exécution du code
Un lien Hypertexte sera créé en F7 avec l'adresse (Chemin) et le nom (B7)
Puis une boîte de dialogue s'ouvrira et t'invitera à sélectionner le
modèle
Puis réalisera une copie enregistré dans le même répertoire avec le nom
présent en cellule B7
Puis ouvrira ce nouveau document pour la saisie
Celà devrait faire
Dis moi !!!!!
Salut à toi
Ce code devrait convenir :
Chemin = "C:Chemin"
Nom = Range("B7")
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Chemin & Nom
Source = Application.GetSaveAsFilename(Chemin)
FileCopy Source, Chemin & Nom
Workbooks.Open (Chemin & Nom)
Actualises :
Chemin = "C:Chemin"
du chemin du répertoire où doit s'effectuer le choix des modèle
Mets en B7 le nom du document Excel à enregistrer puis à réouvrir pour la
saisie
A l'exécution du code
Un lien Hypertexte sera créé en F7 avec l'adresse (Chemin) et le nom (B7)
Puis une boîte de dialogue s'ouvrira et t'invitera à sélectionner le
modèle
Puis réalisera une copie enregistré dans le même répertoire avec le nom
présent en cellule B7
Puis ouvrira ce nouveau document pour la saisie
Celà devrait faire
Dis moi !!!!!
Salut à toi
Ce code devrait convenir :
Chemin = "C:Chemin"
Nom = Range("B7")
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Chemin & Nom
Source = Application.GetSaveAsFilename(Chemin)
FileCopy Source, Chemin & Nom
Workbooks.Open (Chemin & Nom)
Actualises :
Chemin = "C:Chemin"
du chemin du répertoire où doit s'effectuer le choix des modèle
Mets en B7 le nom du document Excel à enregistrer puis à réouvrir pour la
saisie
A l'exécution du code
Un lien Hypertexte sera créé en F7 avec l'adresse (Chemin) et le nom (B7)
Puis une boîte de dialogue s'ouvrira et t'invitera à sélectionner le
modèle
Puis réalisera une copie enregistré dans le même répertoire avec le nom
présent en cellule B7
Puis ouvrira ce nouveau document pour la saisie
Celà devrait faire
Dis moi !!!!!
Tout d'abord pour la cellule F7 qui reçoit le lien Hypertexte tu peux
modifier ces lignes ainsi :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
Pour la boîte de dialogue dans la mesure où l'on réalise une copie d'un
modèle c'est équivalent à un enregistrez sous de ce modèle dans le même
répertoire mais avec un autre nom
Pour que la copie du modèle soit enregistrée dans le même répertoire avec
un
nouveau nom pris dans la cellule B7 avec son extension il faut que cette
extension soit clairement spécifée dans cette cellule B7 en bout du nom
Sinon il faut le rajouter sur cette ligne ainsi :
Nom = Range("B7") & ".xls"
Fais déjà toutes ces adaptations et renouvelles tes essais car les
difficultés suivantes doivent vraisemblablement en découler
Tout d'abord pour la cellule F7 qui reçoit le lien Hypertexte tu peux
modifier ces lignes ainsi :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
Pour la boîte de dialogue dans la mesure où l'on réalise une copie d'un
modèle c'est équivalent à un enregistrez sous de ce modèle dans le même
répertoire mais avec un autre nom
Pour que la copie du modèle soit enregistrée dans le même répertoire avec
un
nouveau nom pris dans la cellule B7 avec son extension il faut que cette
extension soit clairement spécifée dans cette cellule B7 en bout du nom
Sinon il faut le rajouter sur cette ligne ainsi :
Nom = Range("B7") & ".xls"
Fais déjà toutes ces adaptations et renouvelles tes essais car les
difficultés suivantes doivent vraisemblablement en découler
Tout d'abord pour la cellule F7 qui reçoit le lien Hypertexte tu peux
modifier ces lignes ainsi :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
Pour la boîte de dialogue dans la mesure où l'on réalise une copie d'un
modèle c'est équivalent à un enregistrez sous de ce modèle dans le même
répertoire mais avec un autre nom
Pour que la copie du modèle soit enregistrée dans le même répertoire avec
un
nouveau nom pris dans la cellule B7 avec son extension il faut que cette
extension soit clairement spécifée dans cette cellule B7 en bout du nom
Sinon il faut le rajouter sur cette ligne ainsi :
Nom = Range("B7") & ".xls"
Fais déjà toutes ces adaptations et renouvelles tes essais car les
difficultés suivantes doivent vraisemblablement en découler
Rebonjour à toi
content que l'on avance !!!!!
Pour ce qui concerne le lien Hypertexte on ne peux pas le faire porter par
une partie de la cellule
C'est du tout ou rien
Tu peux éventuellement changer de cellule si tu souhaites garder intact la
cellule F7
Pour celà il faut adapter ces lignes :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
"Greg" wrote:
La partie Range("F7") pour une autre cellule
Le texte à faire paraitre avec la partie :
Range("F7") & " VOIR LE LIEN"
Essaies de te débrouiller ou dis moi ce que tu souhaites exactement
En ce qui concerne le fichier créé
Il est normale qu'il prenne l'heure et la date de son modèle dans la
mesure
où s'en est une copie
Par contre si tu réalises de la saisie dans ce document sa nouvelle
sauvegarde prendra la date et l'heure de l'enregistrement réalisé
Pour le nom S11 au lieu de S1 j'ai moi même réalisé des essais avec cette
appellation le document ouvert est bien S1.xls
As tu essayé de le fermer et de le réouvrir et de voir le nom qu'il a dans
l'application Excel
Soit en doublecliquant dans le répertoire soit par Fichier/Ouvrir à partir
d'excel
Dans mon code pour l'ouvrir je fais appel à lui par cette ligne :
Workbooks.Open (Chemin & Nom)
Avec Chemin le chemin de son répertoire et Nom le Nom obtenu en B7
Essaies le lien Hypertexte créé
Essaies un autre Nom
Tiens moi informé !!!!!!!
Rebonjour à toi
content que l'on avance !!!!!
Pour ce qui concerne le lien Hypertexte on ne peux pas le faire porter par
une partie de la cellule
C'est du tout ou rien
Tu peux éventuellement changer de cellule si tu souhaites garder intact la
cellule F7
Pour celà il faut adapter ces lignes :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
"Greg" wrote:
La partie Range("F7") pour une autre cellule
Le texte à faire paraitre avec la partie :
Range("F7") & " VOIR LE LIEN"
Essaies de te débrouiller ou dis moi ce que tu souhaites exactement
En ce qui concerne le fichier créé
Il est normale qu'il prenne l'heure et la date de son modèle dans la
mesure
où s'en est une copie
Par contre si tu réalises de la saisie dans ce document sa nouvelle
sauvegarde prendra la date et l'heure de l'enregistrement réalisé
Pour le nom S11 au lieu de S1 j'ai moi même réalisé des essais avec cette
appellation le document ouvert est bien S1.xls
As tu essayé de le fermer et de le réouvrir et de voir le nom qu'il a dans
l'application Excel
Soit en doublecliquant dans le répertoire soit par Fichier/Ouvrir à partir
d'excel
Dans mon code pour l'ouvrir je fais appel à lui par cette ligne :
Workbooks.Open (Chemin & Nom)
Avec Chemin le chemin de son répertoire et Nom le Nom obtenu en B7
Essaies le lien Hypertexte créé
Essaies un autre Nom
Tiens moi informé !!!!!!!
Rebonjour à toi
content que l'on avance !!!!!
Pour ce qui concerne le lien Hypertexte on ne peux pas le faire porter par
une partie de la cellule
C'est du tout ou rien
Tu peux éventuellement changer de cellule si tu souhaites garder intact la
cellule F7
Pour celà il faut adapter ces lignes :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
"Greg" wrote:
La partie Range("F7") pour une autre cellule
Le texte à faire paraitre avec la partie :
Range("F7") & " VOIR LE LIEN"
Essaies de te débrouiller ou dis moi ce que tu souhaites exactement
En ce qui concerne le fichier créé
Il est normale qu'il prenne l'heure et la date de son modèle dans la
mesure
où s'en est une copie
Par contre si tu réalises de la saisie dans ce document sa nouvelle
sauvegarde prendra la date et l'heure de l'enregistrement réalisé
Pour le nom S11 au lieu de S1 j'ai moi même réalisé des essais avec cette
appellation le document ouvert est bien S1.xls
As tu essayé de le fermer et de le réouvrir et de voir le nom qu'il a dans
l'application Excel
Soit en doublecliquant dans le répertoire soit par Fichier/Ouvrir à partir
d'excel
Dans mon code pour l'ouvrir je fais appel à lui par cette ligne :
Workbooks.Open (Chemin & Nom)
Avec Chemin le chemin de son répertoire et Nom le Nom obtenu en B7
Essaies le lien Hypertexte créé
Essaies un autre Nom
Tiens moi informé !!!!!!!
Rebonjour,
Concernant le lien, j'ai opté pour un "X" tout simple en D7. Ca fonctionne
impeccable.
Pour le reste, j'ai fait des essais dans tous les sens et ne trouvant pas
la solution, j'ai créé moi aussi des classeurs pour essayer. Pour éviter
de m'embourber dans des explications approximatives, je t'ai fait une
sorte de petit diapo sous excel (je sais, c'est pas fait pour, mais
j'étais sur que tu avais l'application...). Tu y retrouveras les étapes
dans les différentes feuilles:
http://cjoint.com/?hpqi0LM23c voici les étapes telle que moi je les vis
sur ma machine.
et voici les 2 fichiers excel qui m'ont permis de faire les essais. Tous
les 2 ont été placés sur le bureau dans un dossier appelé essai2.
La base: http://cjoint.com/?hpqlg3bhvc et le modèle:
http://cjoint.com/?hpqlTFHnkl
La seule solution que j'ai trouvée, c'est d'éventuellement appeler «
S11 », « S1 » et remplacer ainsi le « S1 » existant. Mais c'est un peu
lourd à effectuer et l'automatisation perd un peu de son charme...
J'espère que tu comprendras mon erreur. Certainement se situe t-elle dans
le code que j'ai trifouillé. Le voici au cas où:
Sub Créer_Lien()
Chemin = "C:UsersuserDesktopessai2"
Nom = Range("B7") & ".xls"
ActiveSheet.Hyperlinks.Add Anchor:=Range("D7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("D7") & "X"
Source = Application.GetSaveAsFilename(Chemin)
FileCopy Source, Chemin & Nom
Workbooks.Open (Chemin & Nom)
End Sub
à plus et encore merci pour ta patience.
Greg
"FFO" a écrit dans le message de
news:Rebonjour à toi
content que l'on avance !!!!!
Pour ce qui concerne le lien Hypertexte on ne peux pas le faire porter
par
une partie de la cellule
C'est du tout ou rien
Tu peux éventuellement changer de cellule si tu souhaites garder intact
la
cellule F7
Pour celà il faut adapter ces lignes :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
"Greg" wrote:
La partie Range("F7") pour une autre cellule
Le texte à faire paraitre avec la partie :
Range("F7") & " VOIR LE LIEN"
Essaies de te débrouiller ou dis moi ce que tu souhaites exactement
En ce qui concerne le fichier créé
Il est normale qu'il prenne l'heure et la date de son modèle dans la
mesure
où s'en est une copie
Par contre si tu réalises de la saisie dans ce document sa nouvelle
sauvegarde prendra la date et l'heure de l'enregistrement réalisé
Pour le nom S11 au lieu de S1 j'ai moi même réalisé des essais avec cette
appellation le document ouvert est bien S1.xls
As tu essayé de le fermer et de le réouvrir et de voir le nom qu'il a
dans
l'application Excel
Soit en doublecliquant dans le répertoire soit par Fichier/Ouvrir à
partir
d'excel
Dans mon code pour l'ouvrir je fais appel à lui par cette ligne :
Workbooks.Open (Chemin & Nom)
Avec Chemin le chemin de son répertoire et Nom le Nom obtenu en B7
Essaies le lien Hypertexte créé
Essaies un autre Nom
Tiens moi informé !!!!!!!
Rebonjour,
Concernant le lien, j'ai opté pour un "X" tout simple en D7. Ca fonctionne
impeccable.
Pour le reste, j'ai fait des essais dans tous les sens et ne trouvant pas
la solution, j'ai créé moi aussi des classeurs pour essayer. Pour éviter
de m'embourber dans des explications approximatives, je t'ai fait une
sorte de petit diapo sous excel (je sais, c'est pas fait pour, mais
j'étais sur que tu avais l'application...). Tu y retrouveras les étapes
dans les différentes feuilles:
http://cjoint.com/?hpqi0LM23c voici les étapes telle que moi je les vis
sur ma machine.
et voici les 2 fichiers excel qui m'ont permis de faire les essais. Tous
les 2 ont été placés sur le bureau dans un dossier appelé essai2.
La base: http://cjoint.com/?hpqlg3bhvc et le modèle:
http://cjoint.com/?hpqlTFHnkl
La seule solution que j'ai trouvée, c'est d'éventuellement appeler «
S11 », « S1 » et remplacer ainsi le « S1 » existant. Mais c'est un peu
lourd à effectuer et l'automatisation perd un peu de son charme...
J'espère que tu comprendras mon erreur. Certainement se situe t-elle dans
le code que j'ai trifouillé. Le voici au cas où:
Sub Créer_Lien()
Chemin = "C:UsersuserDesktopessai2"
Nom = Range("B7") & ".xls"
ActiveSheet.Hyperlinks.Add Anchor:=Range("D7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("D7") & "X"
Source = Application.GetSaveAsFilename(Chemin)
FileCopy Source, Chemin & Nom
Workbooks.Open (Chemin & Nom)
End Sub
à plus et encore merci pour ta patience.
Greg
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:6494918E-D40E-454D-AD04-4B7C8D16806C@microsoft.com...
Rebonjour à toi
content que l'on avance !!!!!
Pour ce qui concerne le lien Hypertexte on ne peux pas le faire porter
par
une partie de la cellule
C'est du tout ou rien
Tu peux éventuellement changer de cellule si tu souhaites garder intact
la
cellule F7
Pour celà il faut adapter ces lignes :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
"Greg" wrote:
La partie Range("F7") pour une autre cellule
Le texte à faire paraitre avec la partie :
Range("F7") & " VOIR LE LIEN"
Essaies de te débrouiller ou dis moi ce que tu souhaites exactement
En ce qui concerne le fichier créé
Il est normale qu'il prenne l'heure et la date de son modèle dans la
mesure
où s'en est une copie
Par contre si tu réalises de la saisie dans ce document sa nouvelle
sauvegarde prendra la date et l'heure de l'enregistrement réalisé
Pour le nom S11 au lieu de S1 j'ai moi même réalisé des essais avec cette
appellation le document ouvert est bien S1.xls
As tu essayé de le fermer et de le réouvrir et de voir le nom qu'il a
dans
l'application Excel
Soit en doublecliquant dans le répertoire soit par Fichier/Ouvrir à
partir
d'excel
Dans mon code pour l'ouvrir je fais appel à lui par cette ligne :
Workbooks.Open (Chemin & Nom)
Avec Chemin le chemin de son répertoire et Nom le Nom obtenu en B7
Essaies le lien Hypertexte créé
Essaies un autre Nom
Tiens moi informé !!!!!!!
Rebonjour,
Concernant le lien, j'ai opté pour un "X" tout simple en D7. Ca fonctionne
impeccable.
Pour le reste, j'ai fait des essais dans tous les sens et ne trouvant pas
la solution, j'ai créé moi aussi des classeurs pour essayer. Pour éviter
de m'embourber dans des explications approximatives, je t'ai fait une
sorte de petit diapo sous excel (je sais, c'est pas fait pour, mais
j'étais sur que tu avais l'application...). Tu y retrouveras les étapes
dans les différentes feuilles:
http://cjoint.com/?hpqi0LM23c voici les étapes telle que moi je les vis
sur ma machine.
et voici les 2 fichiers excel qui m'ont permis de faire les essais. Tous
les 2 ont été placés sur le bureau dans un dossier appelé essai2.
La base: http://cjoint.com/?hpqlg3bhvc et le modèle:
http://cjoint.com/?hpqlTFHnkl
La seule solution que j'ai trouvée, c'est d'éventuellement appeler «
S11 », « S1 » et remplacer ainsi le « S1 » existant. Mais c'est un peu
lourd à effectuer et l'automatisation perd un peu de son charme...
J'espère que tu comprendras mon erreur. Certainement se situe t-elle dans
le code que j'ai trifouillé. Le voici au cas où:
Sub Créer_Lien()
Chemin = "C:UsersuserDesktopessai2"
Nom = Range("B7") & ".xls"
ActiveSheet.Hyperlinks.Add Anchor:=Range("D7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("D7") & "X"
Source = Application.GetSaveAsFilename(Chemin)
FileCopy Source, Chemin & Nom
Workbooks.Open (Chemin & Nom)
End Sub
à plus et encore merci pour ta patience.
Greg
"FFO" a écrit dans le message de
news:Rebonjour à toi
content que l'on avance !!!!!
Pour ce qui concerne le lien Hypertexte on ne peux pas le faire porter
par
une partie de la cellule
C'est du tout ou rien
Tu peux éventuellement changer de cellule si tu souhaites garder intact
la
cellule F7
Pour celà il faut adapter ces lignes :
ActiveSheet.Hyperlinks.Add Anchor:=Range("F7"), Address:= _
Chemin & Nom, TextToDisplay:= _
Range("F7") & " VOIR LE LIEN"
"Greg" wrote:
La partie Range("F7") pour une autre cellule
Le texte à faire paraitre avec la partie :
Range("F7") & " VOIR LE LIEN"
Essaies de te débrouiller ou dis moi ce que tu souhaites exactement
En ce qui concerne le fichier créé
Il est normale qu'il prenne l'heure et la date de son modèle dans la
mesure
où s'en est une copie
Par contre si tu réalises de la saisie dans ce document sa nouvelle
sauvegarde prendra la date et l'heure de l'enregistrement réalisé
Pour le nom S11 au lieu de S1 j'ai moi même réalisé des essais avec cette
appellation le document ouvert est bien S1.xls
As tu essayé de le fermer et de le réouvrir et de voir le nom qu'il a
dans
l'application Excel
Soit en doublecliquant dans le répertoire soit par Fichier/Ouvrir à
partir
d'excel
Dans mon code pour l'ouvrir je fais appel à lui par cette ligne :
Workbooks.Open (Chemin & Nom)
Avec Chemin le chemin de son répertoire et Nom le Nom obtenu en B7
Essaies le lien Hypertexte créé
Essaies un autre Nom
Tiens moi informé !!!!!!!
Excel soit en activant le lien Hypertexte (l'ayant refermé au paravant car
ouvert par le code) quel nom porte t'il vue d'Excel
Merci de ta réponse avec les 3 manières décrites
Excel soit en activant le lien Hypertexte (l'ayant refermé au paravant car
ouvert par le code) quel nom porte t'il vue d'Excel
Merci de ta réponse avec les 3 manières décrites
Excel soit en activant le lien Hypertexte (l'ayant refermé au paravant car
ouvert par le code) quel nom porte t'il vue d'Excel
Merci de ta réponse avec les 3 manières décrites