Résultats de la recherche

Bonsoir, Connaisez-vous un code vba qui me permetrait de bypasser cet avertissement, plusieurs essayer, aucun ne fonctionne malheureusement. merci encore :)

Bonsoir, Comment puis-je remplacer l'adresse couriel dans la macro suivante par cette valeur sans obtenir d'erreur dû au : " " Sheets("OUVETURE").Range("G15") 'envoi par mail If CheckBox1 = True Then ' Select the range of cells on the active worksheet...

Pouvez-vous m'aider à adapter la formule ci-dessous avec les paramètres suivants : le chemin d'enregistrement du pdf doit être : Sheets("X").Range("N21") & "\" le nom du pdf doit être : Format(Now() - 0, "dd_mmmm_YY") seul le feuille "x" doit etre enregister en PDF. le destinataire du...

Bonsoir, Actuellement j'utilise la macro suivante afin d'enregistrer un de mes onglet en pdf : 'PDF Dim Nomfichier As String, Chemin As String Nomfichier = Format(Now() - 0, "dd_mmmm_YY") Chemin = Sheets("X").Range("N21") & "\" Sheets("X").ExportAsFixedFormat Type:=xlTypePDF...

Bonjour, voilà la macro que je voudrais utiliser pour ouvrir un fichier PDF à partir d'un bouton. ThisWorkbook.FollowHyperlink "C:\DEV\leFichier.pdf" J'aimerais que la partie "leFicher" fasse référence au text dans la celule "Z1" de la feuille "X", c'est possible? *sachat que je vais...

Bonjour à tous, à l'ouverture de mon fichier, j'ai la suite suivante : Private Sub Workbook_Open() 'PERMET D'OUVRIR SHEET Sheets("GRIS").Select 'PERMET D'OUVRIR USERFORM3 UserForm3.Show End Sub Ensuite, je complete mon formulaire et je clique sur valider...

Bonjour à tous, (J'y prend goût à ce forum magnifique!) Voila, quand je clique sur mon commandbouton2 dans on userform1, j'ai la suite suivante qui s'éxécute, (tout fonction numéro1!) 'envoi par mail Private Sub CommandButton2_Click() Workbooks("DEV_VERSION1_2015_DENYSF 2.xlsm").SendMail...

Bonjour à tous, Voici ma première question sur ce forum: Jutilise le code suivant afin d'enregistrer mon fichier excel, en format pdf, avec comme nom, la date du jour, Dim Nomfichier As String, Chemin As String Nomfichier = Format(Now() - 1, "dd_mmmm_YY") Chemin =...