je rencontre un petit problème:
je dispose d'un fichier excel que je souhaite installer sur un réseau.
pour le cas où plusieurs utilisateurs souhaiteraient le consulter en
même temps, je souhaiterais générer des copies de ce fichier que je
placerais ensuite dans un répertoire différent du répertoire parent.
j'ai procédé par macros pour résoudre ce pb.
pour ce faire, j' ai incorporé dans mon fichier original une cellule
dont le contenu s'incrémente à chaque ouverture du fichier, ce qui a
pour effet, lors de l'ouverture de ce fichier, de créer un nouveau
fichier dont le nom s'incrémente dans le même temps. en enregistrant
les modifs de ce nouveau fichier, celui ci prend l'extension .xls et
va gentiment dans son répertoire (rep de copies).
puis, j'ai enregistré mon fichier original en tant que modèle (.xlt)
que j'ai placé dans le répertoire Templates.
seulement, c'est bien joli tout ca mais ca marche pas...
notamment, je remarque que passé la copie 1 de mon fichier originel,
j'ai l'impression que l'incrémentation ne fonctionne plus et que me je
retrouve sans arrêt avec un classeur 1...
est ce que quelqu'un a une idée?
merci d'avance à tous ceux qui se penchent sur la question.
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
William
Bonjour,
Etant donné que l'incrémentation des feuilles copiées se basent sur l'ouverture du fichier original, l'incrémentation n'ira pas au-delà de 2. En effet, la référence de base est celle du fichier original et sera donc toujours la même. exemple : Ton fichier original a comme réf "1", une ouverture de ce fichier s'appelle "2" (du fait de l'incrémentation). Tu enregistre le nouveau fichier "2" mais ton fichier original reste toujours à "1" donc la 2ème fois que tu veux un nouveau fichier, il sera toujours en "2" et ainsi de suite.
Il faut que l'incrémentation se fasse sur le fichier original.
Mais si l'incrémentation ne te sers qu'à différencier les nouveaux fichiers, je te conseille plutot d'inscrire la date et l'heure dans le nom du nouveau fichier par un bouton de commande "enregistrement". tu crée le bouton sur ta feuille et tu lui met le code suivant :
Private Sub CommandButton1_Click() 'CommandButton1_Click = le nom du bouton Dim Chemin As String Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination 'enregistre le fichier sous la date du jour mais on peut rajouter des indications 'plus précise avec & et des "" nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls" 'merci michdenis ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"Izzario" a écrit dans le message de news:
salut à tous,
je rencontre un petit problème: je dispose d'un fichier excel que je souhaite installer sur un réseau. pour le cas où plusieurs utilisateurs souhaiteraient le consulter en même temps, je souhaiterais générer des copies de ce fichier que je placerais ensuite dans un répertoire différent du répertoire parent. j'ai procédé par macros pour résoudre ce pb.
pour ce faire, j' ai incorporé dans mon fichier original une cellule dont le contenu s'incrémente à chaque ouverture du fichier, ce qui a pour effet, lors de l'ouverture de ce fichier, de créer un nouveau fichier dont le nom s'incrémente dans le même temps. en enregistrant les modifs de ce nouveau fichier, celui ci prend l'extension .xls et va gentiment dans son répertoire (rep de copies). puis, j'ai enregistré mon fichier original en tant que modèle (.xlt) que j'ai placé dans le répertoire Templates.
seulement, c'est bien joli tout ca mais ca marche pas... notamment, je remarque que passé la copie 1 de mon fichier originel, j'ai l'impression que l'incrémentation ne fonctionne plus et que me je retrouve sans arrêt avec un classeur 1...
est ce que quelqu'un a une idée? merci d'avance à tous ceux qui se penchent sur la question.
izzario
Bonjour,
Etant donné que l'incrémentation des feuilles copiées se basent sur
l'ouverture du fichier original, l'incrémentation n'ira pas au-delà de 2. En
effet, la référence de base est celle du fichier original et sera donc
toujours la même.
exemple : Ton fichier original a comme réf "1", une ouverture de ce fichier
s'appelle "2" (du fait de l'incrémentation). Tu enregistre le nouveau
fichier "2" mais ton fichier original reste toujours à "1" donc la 2ème fois
que tu veux un nouveau fichier, il sera toujours en "2" et ainsi de suite.
Il faut que l'incrémentation se fasse sur le fichier original.
Mais si l'incrémentation ne te sers qu'à différencier les nouveaux fichiers,
je te conseille plutot d'inscrire la date et l'heure dans le nom du nouveau
fichier par un bouton de commande "enregistrement". tu crée le bouton sur ta
feuille et tu lui met le code suivant :
Private Sub CommandButton1_Click()
'CommandButton1_Click = le nom du bouton
Dim Chemin As String
Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination
'enregistre le fichier sous la date du jour mais on peut rajouter des
indications
'plus précise avec & et des ""
nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls"
'merci michdenis
ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"Izzario" <julienzrb@free.fr> a écrit dans le message de news:
c6c0ba27.0408120104.6509990f@posting.google.com...
salut à tous,
je rencontre un petit problème:
je dispose d'un fichier excel que je souhaite installer sur un réseau.
pour le cas où plusieurs utilisateurs souhaiteraient le consulter en
même temps, je souhaiterais générer des copies de ce fichier que je
placerais ensuite dans un répertoire différent du répertoire parent.
j'ai procédé par macros pour résoudre ce pb.
pour ce faire, j' ai incorporé dans mon fichier original une cellule
dont le contenu s'incrémente à chaque ouverture du fichier, ce qui a
pour effet, lors de l'ouverture de ce fichier, de créer un nouveau
fichier dont le nom s'incrémente dans le même temps. en enregistrant
les modifs de ce nouveau fichier, celui ci prend l'extension .xls et
va gentiment dans son répertoire (rep de copies).
puis, j'ai enregistré mon fichier original en tant que modèle (.xlt)
que j'ai placé dans le répertoire Templates.
seulement, c'est bien joli tout ca mais ca marche pas...
notamment, je remarque que passé la copie 1 de mon fichier originel,
j'ai l'impression que l'incrémentation ne fonctionne plus et que me je
retrouve sans arrêt avec un classeur 1...
est ce que quelqu'un a une idée?
merci d'avance à tous ceux qui se penchent sur la question.
Etant donné que l'incrémentation des feuilles copiées se basent sur l'ouverture du fichier original, l'incrémentation n'ira pas au-delà de 2. En effet, la référence de base est celle du fichier original et sera donc toujours la même. exemple : Ton fichier original a comme réf "1", une ouverture de ce fichier s'appelle "2" (du fait de l'incrémentation). Tu enregistre le nouveau fichier "2" mais ton fichier original reste toujours à "1" donc la 2ème fois que tu veux un nouveau fichier, il sera toujours en "2" et ainsi de suite.
Il faut que l'incrémentation se fasse sur le fichier original.
Mais si l'incrémentation ne te sers qu'à différencier les nouveaux fichiers, je te conseille plutot d'inscrire la date et l'heure dans le nom du nouveau fichier par un bouton de commande "enregistrement". tu crée le bouton sur ta feuille et tu lui met le code suivant :
Private Sub CommandButton1_Click() 'CommandButton1_Click = le nom du bouton Dim Chemin As String Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination 'enregistre le fichier sous la date du jour mais on peut rajouter des indications 'plus précise avec & et des "" nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls" 'merci michdenis ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"Izzario" a écrit dans le message de news:
salut à tous,
je rencontre un petit problème: je dispose d'un fichier excel que je souhaite installer sur un réseau. pour le cas où plusieurs utilisateurs souhaiteraient le consulter en même temps, je souhaiterais générer des copies de ce fichier que je placerais ensuite dans un répertoire différent du répertoire parent. j'ai procédé par macros pour résoudre ce pb.
pour ce faire, j' ai incorporé dans mon fichier original une cellule dont le contenu s'incrémente à chaque ouverture du fichier, ce qui a pour effet, lors de l'ouverture de ce fichier, de créer un nouveau fichier dont le nom s'incrémente dans le même temps. en enregistrant les modifs de ce nouveau fichier, celui ci prend l'extension .xls et va gentiment dans son répertoire (rep de copies). puis, j'ai enregistré mon fichier original en tant que modèle (.xlt) que j'ai placé dans le répertoire Templates.
seulement, c'est bien joli tout ca mais ca marche pas... notamment, je remarque que passé la copie 1 de mon fichier originel, j'ai l'impression que l'incrémentation ne fonctionne plus et que me je retrouve sans arrêt avec un classeur 1...
est ce que quelqu'un a une idée? merci d'avance à tous ceux qui se penchent sur la question.
izzario
William
Re-bonjour
Attention, je ré-écris le code car il manque un quote càd ce petit signe '
Private Sub CommandButton1_Click()
'CommandButton1_Click = le nom du bouton Dim Chemin As String Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination 'enregistre le fichier sous la date du jour mais on peut rajouter des 'indications 'plus précise avec & et des "" nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls" 'merci michdenis ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le message de news: #
Bonjour,
Etant donné que l'incrémentation des feuilles copiées se basent sur l'ouverture du fichier original, l'incrémentation n'ira pas au-delà de 2. En
effet, la référence de base est celle du fichier original et sera donc toujours la même. exemple : Ton fichier original a comme réf "1", une ouverture de ce fichier
s'appelle "2" (du fait de l'incrémentation). Tu enregistre le nouveau fichier "2" mais ton fichier original reste toujours à "1" donc la 2ème fois
que tu veux un nouveau fichier, il sera toujours en "2" et ainsi de suite.
Il faut que l'incrémentation se fasse sur le fichier original.
Mais si l'incrémentation ne te sers qu'à différencier les nouveaux fichiers,
je te conseille plutot d'inscrire la date et l'heure dans le nom du nouveau
fichier par un bouton de commande "enregistrement". tu crée le bouton sur ta
feuille et tu lui met le code suivant :
Private Sub CommandButton1_Click() 'CommandButton1_Click = le nom du bouton Dim Chemin As String Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination 'enregistre le fichier sous la date du jour mais on peut rajouter des indications 'plus précise avec & et des "" nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls" 'merci michdenis ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"Izzario" a écrit dans le message de news:
salut à tous,
je rencontre un petit problème: je dispose d'un fichier excel que je souhaite installer sur un réseau. pour le cas où plusieurs utilisateurs souhaiteraient le consulter en même temps, je souhaiterais générer des copies de ce fichier que je placerais ensuite dans un répertoire différent du répertoire parent. j'ai procédé par macros pour résoudre ce pb.
pour ce faire, j' ai incorporé dans mon fichier original une cellule dont le contenu s'incrémente à chaque ouverture du fichier, ce qui a pour effet, lors de l'ouverture de ce fichier, de créer un nouveau fichier dont le nom s'incrémente dans le même temps. en enregistrant les modifs de ce nouveau fichier, celui ci prend l'extension .xls et va gentiment dans son répertoire (rep de copies). puis, j'ai enregistré mon fichier original en tant que modèle (.xlt) que j'ai placé dans le répertoire Templates.
seulement, c'est bien joli tout ca mais ca marche pas... notamment, je remarque que passé la copie 1 de mon fichier originel, j'ai l'impression que l'incrémentation ne fonctionne plus et que me je retrouve sans arrêt avec un classeur 1...
est ce que quelqu'un a une idée? merci d'avance à tous ceux qui se penchent sur la question.
izzario
Re-bonjour
Attention, je ré-écris le code car il manque un quote càd ce petit signe '
Private Sub CommandButton1_Click()
'CommandButton1_Click = le nom du bouton
Dim Chemin As String
Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination
'enregistre le fichier sous la date du jour mais on peut rajouter des
'indications
'plus précise avec & et des ""
nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls"
'merci michdenis
ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le
message de news: #BUKROFgEHA.3676@TK2MSFTNGP12.phx.gbl...
Bonjour,
Etant donné que l'incrémentation des feuilles copiées se basent sur
l'ouverture du fichier original, l'incrémentation n'ira pas au-delà de 2.
En
effet, la référence de base est celle du fichier original et sera donc
toujours la même.
exemple : Ton fichier original a comme réf "1", une ouverture de ce
fichier
s'appelle "2" (du fait de l'incrémentation). Tu enregistre le nouveau
fichier "2" mais ton fichier original reste toujours à "1" donc la 2ème
fois
que tu veux un nouveau fichier, il sera toujours en "2" et ainsi de suite.
Il faut que l'incrémentation se fasse sur le fichier original.
Mais si l'incrémentation ne te sers qu'à différencier les nouveaux
fichiers,
je te conseille plutot d'inscrire la date et l'heure dans le nom du
nouveau
fichier par un bouton de commande "enregistrement". tu crée le bouton sur
ta
feuille et tu lui met le code suivant :
Private Sub CommandButton1_Click()
'CommandButton1_Click = le nom du bouton
Dim Chemin As String
Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination
'enregistre le fichier sous la date du jour mais on peut rajouter des
indications
'plus précise avec & et des ""
nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls"
'merci michdenis
ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"Izzario" <julienzrb@free.fr> a écrit dans le message de news:
c6c0ba27.0408120104.6509990f@posting.google.com...
salut à tous,
je rencontre un petit problème:
je dispose d'un fichier excel que je souhaite installer sur un réseau.
pour le cas où plusieurs utilisateurs souhaiteraient le consulter en
même temps, je souhaiterais générer des copies de ce fichier que je
placerais ensuite dans un répertoire différent du répertoire parent.
j'ai procédé par macros pour résoudre ce pb.
pour ce faire, j' ai incorporé dans mon fichier original une cellule
dont le contenu s'incrémente à chaque ouverture du fichier, ce qui a
pour effet, lors de l'ouverture de ce fichier, de créer un nouveau
fichier dont le nom s'incrémente dans le même temps. en enregistrant
les modifs de ce nouveau fichier, celui ci prend l'extension .xls et
va gentiment dans son répertoire (rep de copies).
puis, j'ai enregistré mon fichier original en tant que modèle (.xlt)
que j'ai placé dans le répertoire Templates.
seulement, c'est bien joli tout ca mais ca marche pas...
notamment, je remarque que passé la copie 1 de mon fichier originel,
j'ai l'impression que l'incrémentation ne fonctionne plus et que me je
retrouve sans arrêt avec un classeur 1...
est ce que quelqu'un a une idée?
merci d'avance à tous ceux qui se penchent sur la question.
Attention, je ré-écris le code car il manque un quote càd ce petit signe '
Private Sub CommandButton1_Click()
'CommandButton1_Click = le nom du bouton Dim Chemin As String Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination 'enregistre le fichier sous la date du jour mais on peut rajouter des 'indications 'plus précise avec & et des "" nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls" 'merci michdenis ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le message de news: #
Bonjour,
Etant donné que l'incrémentation des feuilles copiées se basent sur l'ouverture du fichier original, l'incrémentation n'ira pas au-delà de 2. En
effet, la référence de base est celle du fichier original et sera donc toujours la même. exemple : Ton fichier original a comme réf "1", une ouverture de ce fichier
s'appelle "2" (du fait de l'incrémentation). Tu enregistre le nouveau fichier "2" mais ton fichier original reste toujours à "1" donc la 2ème fois
que tu veux un nouveau fichier, il sera toujours en "2" et ainsi de suite.
Il faut que l'incrémentation se fasse sur le fichier original.
Mais si l'incrémentation ne te sers qu'à différencier les nouveaux fichiers,
je te conseille plutot d'inscrire la date et l'heure dans le nom du nouveau
fichier par un bouton de commande "enregistrement". tu crée le bouton sur ta
feuille et tu lui met le code suivant :
Private Sub CommandButton1_Click() 'CommandButton1_Click = le nom du bouton Dim Chemin As String Chemin = "C:dossiertoto" 'inscrit ton répertoire de destination 'enregistre le fichier sous la date du jour mais on peut rajouter des indications 'plus précise avec & et des "" nom = Format(Now, "yyyy-MM-dd_hh""h""mm""m""ss""s") & ".xls" 'merci michdenis ActiveWorkbook.SaveAs Chemin & nom
End Sub
William
"Izzario" a écrit dans le message de news:
salut à tous,
je rencontre un petit problème: je dispose d'un fichier excel que je souhaite installer sur un réseau. pour le cas où plusieurs utilisateurs souhaiteraient le consulter en même temps, je souhaiterais générer des copies de ce fichier que je placerais ensuite dans un répertoire différent du répertoire parent. j'ai procédé par macros pour résoudre ce pb.
pour ce faire, j' ai incorporé dans mon fichier original une cellule dont le contenu s'incrémente à chaque ouverture du fichier, ce qui a pour effet, lors de l'ouverture de ce fichier, de créer un nouveau fichier dont le nom s'incrémente dans le même temps. en enregistrant les modifs de ce nouveau fichier, celui ci prend l'extension .xls et va gentiment dans son répertoire (rep de copies). puis, j'ai enregistré mon fichier original en tant que modèle (.xlt) que j'ai placé dans le répertoire Templates.
seulement, c'est bien joli tout ca mais ca marche pas... notamment, je remarque que passé la copie 1 de mon fichier originel, j'ai l'impression que l'incrémentation ne fonctionne plus et que me je retrouve sans arrêt avec un classeur 1...
est ce que quelqu'un a une idée? merci d'avance à tous ceux qui se penchent sur la question.
