264 résultats trouvés

par Ergotamine
10 février 2019, 08:59
Forum : Office
Sujet : Imprimer tous les fichiers d'un dossier
Réponses : 4
Vues : 1443

Re: Imprimer tous les fichiers d'un dossier

Bonjour I20100,

Merci beaucoup pour l'explication.
Une dernière question : comment le système sait interpréter "Elt" comme un fichier sachant que nous n'avons précisé que ce n'était qu'un objet de type Variant ?

Bon dimanche !
par Ergotamine
9 février 2019, 10:52
Forum : Office
Sujet : Imprimer tous les fichiers d'un dossier
Réponses : 4
Vues : 1443

Re: Imprimer tous les fichiers d'un dossier

Up ?

Désolé pour le triple post ..
par Ergotamine
25 janvier 2019, 19:10
Forum : Office
Sujet : Imprimer tous les fichiers d'un dossier
Réponses : 4
Vues : 1443

Re: Imprimer tous les fichiers d'un dossier

Bon au final j'ai trouvé en cherchant ailleurs, par contre j'aimerais beaucoup qu'on m'explique le code :mrgreen: De plus, vous sauriez si il est possible de ne pas update l'écran et que ça s’exécute en arrière plan ? Un peu comme le application.screenupdating = false .. Option Explicit Private Decl...
par Ergotamine
25 janvier 2019, 18:44
Forum : Office
Sujet : Imprimer tous les fichiers d'un dossier
Réponses : 4
Vues : 1443

Imprimer tous les fichiers d'un dossier

Bonjour, Je souhaiterais savoir s'il existe un code VBA qui, à partir d'une exécution sur un document word permettrait d'imprimer TOUS les fichiers du dossier où se trouve le document word ? A savoir que les fichiers s'y trouvant possèdent diverses extensions (.pdf, .xlsx, .docx). Je pensais passer ...
par Ergotamine
6 janvier 2019, 21:57
Forum : Excel - VBA
Sujet : VBA pour colorer cellules
Réponses : 3
Vues : 90

Re: VBA pour colorer cellules

Tout à fait je te fais ça demain si ça te va et si personne d'autre ne l'as fait avant.

Bonne soirée !
par Ergotamine
6 janvier 2019, 17:23
Forum : Excel - VBA
Sujet : Faire une sauvegarde
Réponses : 18
Vues : 124

Re: Faire une sauvegarde

Hello,

Et voilà:
Sub Save()
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & Format(Now, "hhmmssddmmmyy") & ".xlsm"
End Sub
Tu as du oublié le "\" après le chemin d'accès. Chaque niveau de répertoire doit être séparé par un "\"
par Ergotamine
6 janvier 2019, 16:53
Forum : Excel - VBA
Sujet : Dupliquer un classeur
Réponses : 20
Vues : 197

Re: Dupliquer un classeur

Re, J'ai trouvé une nouvelle fonction qui permet de ne pas fermer le classeur d'origine et de rendre le code moins lourd, je te le met ici, tu l'integreras dans ton fichier ou pas : Pour un début de semaine au lundi Sub Test() Dim i As Integer Dim DayLeft As Integer Application.DisplayAlerts = False...
par Ergotamine
6 janvier 2019, 16:48
Forum : Excel - VBA
Sujet : Faire une sauvegarde
Réponses : 18
Vues : 124

Re: Faire une sauvegarde

Et voilà :
Sub Save()
ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Pierre\sauvegarde\" & Format(Now, "hhmmssddmmm") & ".xlsm"
End Sub
PS : J'ai épuré un peu :mrgreen:
par Ergotamine
6 janvier 2019, 16:25
Forum : Excel - VBA
Sujet : Faire une sauvegarde
Réponses : 18
Vues : 124

Re: Faire une sauvegarde

Je regarde et reviens vers toi
par Ergotamine
6 janvier 2019, 16:10
Forum : Excel - VBA
Sujet : Faire une sauvegarde
Réponses : 18
Vues : 124

Re: Faire une sauvegarde

Alors on va forcer :mrgreen: Sub Save() 'Pour si tu annules, qu'il n'affiche pas le message d'erreur On Error Resume Next Application.DisplayAlerts = False tim = Now datmois = Format(tim, "mmm") datjour = Format(tim, "dd") datan = Format(tim, "yy") datheur = Format(tim, "hhmmss") ActiveWorkbook.Shee...