Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Incrémentation auto d'une cellule et enregistrement dans un dossier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Manolo59330

XLDnaute Nouveau
Bonjour à toutes et à tous,

Voilà, j'ai un fichier qui comporte plusieurs macro me permettant d'ouvrir d'autres fichiers Excel. J'ai une macro un peu plus spécifique.

J'aimerais à chaque ouverture du fichier que celui indique automatiquement la date du jour dans la cellule "B1" et incrémente de 1 en 1 la colonne suivante "C1". En enregistrant ce fichier, celui-ci se sauvegarde dans un répertoire que je souhaiterais.

Voici la formule que j'ai appliqué, pour l'ouverture aucun soucis, pour le reste, j'ai cherché mais ??

Private Sub CommandButton5_Click()
Dim Chemin As String, Fichier As String
Chemin = "\\X:\Files\Users\manuel_w\Mes documents\TACHES HEDBO-DEVIS\"
Fichier = "FICHES Critères.xlsx"
Workbooks.Open Chemin & Fichier
End Sub

En pièce jointe le tableau concerné

Merci d'avance pour votre aide CDLT
 

Pièces jointes

Re : Incrémentation auto d'une cellule et enregistrement dans un dossier

Bonjour,

dans ThisWorkbook, mets le code suivant
Code:
Option Explicit

Private Sub Workbook_Open()
  Feuil1.[B1].Value = Now()
  Feuil1.[C1].Value = Feuil1.[C1].Value + 1
End Sub

en mettant le bon format à B1
 
Re : Incrémentation auto d'une cellule et enregistrement dans un dossier

Bonjour,

Merci pour le retour, après essais, cela fonctionne correctement. Le soucis c'est que je souhaite ouvrir à chaque fois le fichier vierge. J'ai par conséquent mis celui-ci en lecture seule. L'incrémentation ne fonctionne plus.

Merci pour ton aide
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…