825 résultats trouvés

par GVIALLES
12 décembre 2017, 14:38
Forum : Excel - VBA
Sujet : Archivage Auto
Réponses : 10
Vues : 301

Re: Archivage Auto

Guillaume, Version avec effacement des données : Sub addInfos() Dim oRangeOrg As Excel.Range, oRangeDest As Excel.Range, oCell As Excel.Range Dim oSheet As Excel.Worksheet Dim lLastRow As Long Set oSheet = ThisWorkbook.Worksheets("Info fin de semaine") lLastRow = oSheet.UsedRange.Rows.Count Set oRan...
par GVIALLES
12 décembre 2017, 11:37
Forum : Excel - VBA
Sujet : Lancement de recherche sur un site web par Excel vba
Réponses : 1
Vues : 74

Re: Lancement de recherche sur un site web par Excel vba

Bonjour Luc,

Il semble que ce site demande un login/Mot de passe pour lancer une recherche :

Dans ce forum, h2so4 a donné une réponse pour réaliser une connexion dans le message :
"Connexion sur site avec mot de passe automitiquement"
par GVIALLES
12 décembre 2017, 11:06
Forum : Excel - VBA
Sujet : Archivage Auto
Réponses : 10
Vues : 301

Re: Archivage Auto

Bonjour Guillaume, Ma proposition de macro pour ajouter des lignes : Sub addInfos() Dim oRangeOrg As Excel.Range, oRangeDest As Excel.Range, oCell As Excel.Range Dim oSheet As Excel.Worksheet Dim lLastRow As Long Set oSheet = ThisWorkbook.Worksheets("Info fin de semaine") lLastRow = oSheet.UsedRange...
par GVIALLES
11 décembre 2017, 12:17
Forum : Excel - VBA
Sujet : calcul date bute
Réponses : 7
Vues : 103

Re: calcul date bute

Bonjour Stef,

A la condition de modifier les entêtes de mois avec un date à la place de texte (de les formater en "mois - année" pour avoir le même rendu),

la formule suivante doit faire la blague :

=FIN.MOIS(DATEVAL(CONCATENER(I2;"/";MOIS(I1);"/";ANNEE(I1)));7)
par GVIALLES
11 décembre 2017, 11:35
Forum : Excel - VBA
Sujet : VBA - Contrôle somme montants
Réponses : 2
Vues : 79

Re: VBA - Contrôle somme montants

Bonjour Jeremy,

Dans l'EXCEL donné en exemple, les montants ne sont pas signés. Est-ce la colonne "C" qui indique le signe sur les ligne "2"?
par GVIALLES
11 décembre 2017, 11:13
Forum : Excel - VBA
Sujet : Impossibilité de supprimé une Querytable
Réponses : 3
Vues : 403

Re: Impossibilité de supprimé une Querytable

Bonjour Reclaimer, Si le problème est toujours d'actualité, je propose le code : Sub RAZ_Produit() ' ' RAZ_Produit Macro ' ' With ActiveSheet.Range("A2:W16000") .QueryTable.Delete .ClearContents End With ActiveWorkbook.RefreshAll End Sub Il est préférable dans le code VBA d'utiliser directement un o...
par GVIALLES
11 décembre 2017, 10:37
Forum : Excel - VBA
Sujet : Ouverture de fichier
Réponses : 1
Vues : 99

Re: Ouverture de fichier

Bonjour Oumaid,

Le code joint est très éloigné de l'orthodoxie VBA EXCEL.

D'où sort-il?

Pour aller plus avant, il serait nécessaire d'avoir un exemple du fichier lu et de l'EXCEL à coloriser.
par GVIALLES
11 décembre 2017, 09:56
Forum : Excel - VBA
Sujet : Formule concatener
Réponses : 5
Vues : 107

Re: Formule concatener

Bonjour Link71,

Si la partie à extraire fait toujours 6 caractères, la formule la plus simple :

=DROITE(A1;6)

A1 étant la cellule dans laquelle se trouve la référence complète.
par GVIALLES
8 décembre 2017, 17:43
Forum : Excel - VBA
Sujet : Archivage Auto
Réponses : 10
Vues : 301

Re: Archivage Auto

Bonsoir Ahah Si ton pb est toujours d'actualité, voici ma proposition : Public Sub Archive_GVS() 'Pour plus de souplesse, on déclare les valeurs utiles en début de module Const cFirstRow = 4 Const cNbRows = 7 Const cFirstCol = 1 Const cLastCol = 6 Const cColEtat = 7 Const cArchiver = "Archiver" Dim ...
par GVIALLES
8 décembre 2017, 15:41
Forum : Excel - VBA
Sujet : les 2 macro ne lancent pas quant elles sont combinés
Réponses : 7
Vues : 139

Re: les 2 macro ne lancent pas quant elles sont combinés

Nonopince,

As-tu bien modifié l'extention xls en xlsx comme recommandé ?


vFilename = Application.GetSaveAsFilename(filefilter:="Microsoft Excel Workbooks,*.xlsx", _
Title:="Copie du classeur sans les macros")


J'ai testé de mon côté et c'est OK.