Creation dossier par rapport a une valeur : cellule excel
Résolu
math74200
Messages postés
20
Statut
Membre
-
math74200 Messages postés 20 Statut Membre -
math74200 Messages postés 20 Statut Membre -
Bonjour,
Ma question est simple, il y a t-il une macro qui peut créer un dossier en fonction d'une valeur d'une cellule ?
Par exemple si je rentre la valeur 55 dans la cellule A1 un dossier 55 ce créer dans mon bureau C:\Users\math74200\Desktop ?
Et à l'inverse si je retire la valeur 55 de la case A1 mon dossier s'efface ?
Merci d'avance
Ma question est simple, il y a t-il une macro qui peut créer un dossier en fonction d'une valeur d'une cellule ?
Par exemple si je rentre la valeur 55 dans la cellule A1 un dossier 55 ce créer dans mon bureau C:\Users\math74200\Desktop ?
Et à l'inverse si je retire la valeur 55 de la case A1 mon dossier s'efface ?
Merci d'avance
A voir également:
- Creation dossier par rapport a une valeur : cellule excel
- Dossier appdata - Guide
- Creation compte gmail - Guide
- Création site web - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Dossier impossible à supprimer - Guide
23 réponses
ça marche bien avec le click super
par contre je voulais savoir avec mon bouton rajout ligne on pouvais automatiquement avoir un numéro de dossier dans la colonne lien.
par exemple je clique sur mon bouton RAJOUT LIGNE et une ligne se rajoute automatiquement en ligne 6 avec un numero 1 dans la colonne L6 lien qui sera mon dossier 1 lien hypertexte . Si je clique sur RAHOUT LIGNE encore une ligne se met en ligne 7 et un numero 2 dans la colone L7 lien qui sera mon dossier 2 lien hypertexte etcc
par contre je voulais savoir avec mon bouton rajout ligne on pouvais automatiquement avoir un numéro de dossier dans la colonne lien.
par exemple je clique sur mon bouton RAJOUT LIGNE et une ligne se rajoute automatiquement en ligne 6 avec un numero 1 dans la colonne L6 lien qui sera mon dossier 1 lien hypertexte . Si je clique sur RAHOUT LIGNE encore une ligne se met en ligne 7 et un numero 2 dans la colone L7 lien qui sera mon dossier 2 lien hypertexte etcc
Ce que tu veux faire, il n'y a que toi qui le sait. Le plus simple avec ce que l'on t'a donné , c'est de mettre une inputBox dans ton bouton avec les demandes de ligne de nom etc. Comme l'exemple de la suppression de ligne. Quand tu ne sais pas sers toi de l'enregistreur de macro.
Si tu rencontre des problème, tu reviens sur ce forum
Bon courage
Si tu rencontre des problème, tu reviens sur ce forum
Bon courage
re ,
j'ai trouvé une commande pour incrémenter dans mon bouton la valeur de ma colonne voici mon macro
Sub Macro2()
'
' Macro2 Macro
'
'
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Add Key:=Range("Tableau2[#All,[DATE]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J5000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("L6").Value = ActiveSheet.Range("L6").Value + 1
End Sub
la ligne que j'ai rajouté c'est la dernière. sauf qu'au lieu que cela m'incrémente cellule par cellule ça m'incrémente que dans la cellule L6 c'est normal?
Merci d'avance
j'ai trouvé une commande pour incrémenter dans mon bouton la valeur de ma colonne voici mon macro
Sub Macro2()
'
' Macro2 Macro
'
'
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2").Sort. _
SortFields.Add Key:=Range("Tableau2[#All,[DATE]]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuille informatisée").ListObjects("Tableau2"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("J5000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("L6").Value = ActiveSheet.Range("L6").Value + 1
End Sub
la ligne que j'ai rajouté c'est la dernière. sauf qu'au lieu que cela m'incrémente cellule par cellule ça m'incrémente que dans la cellule L6 c'est normal?
Merci d'avance