Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Chemin d'acces ouverture d'un modele

Chemin d'acces ouverture d'un modele

5 réponses
Avatar
Jerem
Bonsoir,

Je n'arrive pas a donner un chemin d'acces a mon modele pour l'ouverture et
donc la copie dans un classuer.

Le code suivant fonctionne mais le chemin est le chemin par defaut d'Excel

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


et ce code ne fonctionne pas

Dim Chemin As String
Chemin = "C:\Documents and Settings\Propriétaire\Mes documents\Dossiers
Excel\Mon Modele.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & Chemin


qui à la solution

Merci par avance
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LSteph
Bonsoir,

chdir monchemin

lSteph


"Jerem" a écrit dans le message de news:

Bonsoir,

Je n'arrive pas a donner un chemin d'acces a mon modele pour l'ouverture
et donc la copie dans un classuer.

Le code suivant fonctionne mais le chemin est le chemin par defaut d'Excel

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


et ce code ne fonctionne pas

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
ExcelMon Modele.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & Chemin


qui à la solution

Merci par avance



Avatar
Jerem
y a toujours un pb avec ce code

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
Excelfiche PU.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath
ChDir Chemin


j'ai une erreur d'execusion



"LSteph" a écrit dans le message de news:

Bonsoir,

chdir monchemin

lSteph


"Jerem" a écrit dans le message de news:

Bonsoir,

Je n'arrive pas a donner un chemin d'acces a mon modele pour l'ouverture
et donc la copie dans un classuer.

Le code suivant fonctionne mais le chemin est le chemin par defaut
d'Excel

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


et ce code ne fonctionne pas

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
ExcelMon Modele.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & Chemin


qui à la solution

Merci par avance







Avatar
LSteph
Bonjour,
Je t'indiquais (selon ce que je pensais être ton but)
Chdir qui sert à changer de répertoire, mais avant
car à la fin de ta proc il ne sert plus à grand chose.
Si tu définis chemin, pourquoi mets tu le nom de fichier
ce n'est plus un chemin c'est un appel au fichier

pour changer tel chemin:

chdir "C:Documents and SettingsPropriétaireMes documentsDossiersExcel"

ou si tu veux le chemin dédié aux modèles:

chdir application.templatespath

pour ouvrir un modèle s'il n'est pas dans le répertoire dédié aux modèles
Exemple:

workbooks.open("C:gestockarticle.XLT")

ou autre exemple

ChDir "C:gestock"
Workbooks.Open Filename:="article.XLT", UpdateLinks:=0, _
Editable:=True

En fait en lisant mieux je me rend compte que , ce n'était pas
vraisemblablement ton but.....
... plus clairement que veux tu faire ?...

lSteph


"Jerem" a écrit dans le message de news:

y a toujours un pb avec ce code

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
Excelfiche PU.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath
ChDir Chemin


j'ai une erreur d'execusion



"LSteph" a écrit dans le message de news:

Bonsoir,

chdir monchemin

lSteph


"Jerem" a écrit dans le message de news:

Bonsoir,

Je n'arrive pas a donner un chemin d'acces a mon modele pour l'ouverture
et donc la copie dans un classuer.

Le code suivant fonctionne mais le chemin est le chemin par defaut
d'Excel

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


et ce code ne fonctionne pas

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
ExcelMon Modele.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & Chemin


qui à la solution

Merci par avance











Avatar
Jerem
Bonjour,

j'ai créé un modele(.xlt) que j'ai enregistre dans le repertoire des modeles
par defaut d'Excel.
j'ai ensuite créé un classeur avec des onglet identique a mon modele.


Mon but final est d'ajouter une feuille avec un format prédéfini dans mon
classeur existant en cliquant sur un bouton.

J'arrive tres bien a cela quand mon modele est enregistrer dans le
répertoire dédié aux modèles
avec ce code

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


mais je ne souhaite pas utiliser ce repertoire dédié aux modèles mais un de
mon choix et c'est la nom pb puisque je ne trouve pas l'instruction me le
permettant.

est plus claire ??

jerem






"LSteph" a écrit dans le message de news:

Bonjour,
Je t'indiquais (selon ce que je pensais être ton but)
Chdir qui sert à changer de répertoire, mais avant
car à la fin de ta proc il ne sert plus à grand chose.
Si tu définis chemin, pourquoi mets tu le nom de fichier
ce n'est plus un chemin c'est un appel au fichier

pour changer tel chemin:

chdir "C:Documents and SettingsPropriétaireMes
documentsDossiersExcel"

ou si tu veux le chemin dédié aux modèles:

chdir application.templatespath

pour ouvrir un modèle s'il n'est pas dans le répertoire dédié aux modèles
Exemple:

workbooks.open("C:gestockarticle.XLT")

ou autre exemple

ChDir "C:gestock"
Workbooks.Open Filename:="article.XLT", UpdateLinks:=0, _
Editable:=True

En fait en lisant mieux je me rend compte que , ce n'était pas
vraisemblablement ton but.....
... plus clairement que veux tu faire ?...

lSteph


"Jerem" a écrit dans le message de news:

y a toujours un pb avec ce code

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
Excelfiche PU.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath
ChDir Chemin


j'ai une erreur d'execusion



"LSteph" a écrit dans le message de news:

Bonsoir,

chdir monchemin

lSteph


"Jerem" a écrit dans le message de news:

Bonsoir,

Je n'arrive pas a donner un chemin d'acces a mon modele pour
l'ouverture et donc la copie dans un classuer.

Le code suivant fonctionne mais le chemin est le chemin par defaut
d'Excel

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


et ce code ne fonctionne pas

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
ExcelMon Modele.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & Chemin


qui à la solution

Merci par avance















Avatar
MichDenis
Bonjour Jerem,

Pourquoi n'insères-tu pas une feuille modèle directement dans ton classeur. Tu utilises cette commande pour la rendre inaccessible
par les usagers :

Sheets("Feuille_Modèle").visible = xlveryhidden


Et pour ajouter une feuille modèle à ton projet :

Application.ScreenUpdating = False
With Sheets("Feuille_Modèle")
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Feuille_Modèle" & Sheets.Count
.Visible = xlVeryHidden
End With



Salutations!





"Jerem" a écrit dans le message de news:
Bonjour,

j'ai créé un modele(.xlt) que j'ai enregistre dans le repertoire des modeles
par defaut d'Excel.
j'ai ensuite créé un classeur avec des onglet identique a mon modele.


Mon but final est d'ajouter une feuille avec un format prédéfini dans mon
classeur existant en cliquant sur un bouton.

J'arrive tres bien a cela quand mon modele est enregistrer dans le
répertoire dédié aux modèles
avec ce code

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


mais je ne souhaite pas utiliser ce repertoire dédié aux modèles mais un de
mon choix et c'est la nom pb puisque je ne trouve pas l'instruction me le
permettant.

est plus claire ??

jerem






"LSteph" a écrit dans le message de news:

Bonjour,
Je t'indiquais (selon ce que je pensais être ton but)
Chdir qui sert à changer de répertoire, mais avant
car à la fin de ta proc il ne sert plus à grand chose.
Si tu définis chemin, pourquoi mets tu le nom de fichier
ce n'est plus un chemin c'est un appel au fichier

pour changer tel chemin:

chdir "C:Documents and SettingsPropriétaireMes
documentsDossiersExcel"

ou si tu veux le chemin dédié aux modèles:

chdir application.templatespath

pour ouvrir un modèle s'il n'est pas dans le répertoire dédié aux modèles
Exemple:

workbooks.open("C:gestockarticle.XLT")

ou autre exemple

ChDir "C:gestock"
Workbooks.Open Filename:="article.XLT", UpdateLinks:=0, _
Editable:=True

En fait en lisant mieux je me rend compte que , ce n'était pas
vraisemblablement ton but.....
... plus clairement que veux tu faire ?...

lSteph


"Jerem" a écrit dans le message de news:

y a toujours un pb avec ce code

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
Excelfiche PU.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath
ChDir Chemin


j'ai une erreur d'execusion



"LSteph" a écrit dans le message de news:

Bonsoir,

chdir monchemin

lSteph


"Jerem" a écrit dans le message de news:

Bonsoir,

Je n'arrive pas a donner un chemin d'acces a mon modele pour
l'ouverture et donc la copie dans un classuer.

Le code suivant fonctionne mais le chemin est le chemin par defaut
d'Excel

Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & "Mon Modele.xlt"


et ce code ne fonctionne pas

Dim Chemin As String
Chemin = "C:Documents and SettingsPropriétaireMes documentsDossiers
ExcelMon Modele.xlt"
Sheets.Add after:=Sheets(Sheets.Count), _
Type:=Application.TemplatesPath & Chemin


qui à la solution

Merci par avance